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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/26 12:19:34
100-1000素数表100-1000的素数100-1000素数表100-1000的素数100-1000素数表100-1000的素数PrivateSubcommand1_Click()DimxAsIn

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

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