麗山50-11

 

 

Public Class Form1
    Dim b As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For A As Integer = 1 To 9999
            If (A Mod 7 = 2) And (A Mod 9 = 2) And (A Mod 3 = 2) Then
                b = b & A & vbNewLine
            End If
        Next
        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

 

^^