麗山50題之11

Public Class Form1
    Dim a As Integer
    Dim b As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Do While a < 10000
            a = a + 1
            If (a Mod 7 = 2) And (a Mod 9 = 2) And (a Mod 3 = 2) Then
                b = b & a & vbNewLine
            End If
        Loop
        TextBox1.Text = b
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class