100-1000素数表

Private Sub command1_Click()
Dim x As Integer
For x = 100 To 1000
flag = 0
For j = 2 To Int(Sqr(x))
If x Mod j = 0 Then
flag = flag + 1
End If
Next j
If flag = 0 Then
Text2.Text = Text2.Text & x & Chr(13) & Chr(10)
End If
Next x
End Sub

控件有两个：command 和 textbox，其中textbox的multiline 和scrollbars属性要设置成true