100-1000素数表100-1000的素数

来源:学生作业学帮网 编辑:学帮网 时间:2024/06/30 09:54:25

100-1000素数表
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