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

来源:学生作业帮助网 编辑:作业帮 时间:2024/07/20 06:11:28
100-1000素数表100-1000的素数
x)340b[<pY-1"}Lepv6DPYX\b VPXWZt/ *SQ`t0R0\XQ 4I)`u@2Rdj&V0DtKj V(dx@caA73HDe8j@)8gikXp"~ַmt>ٱɎÛI= %@MI:O[=ٱFFniNIfNf^*HUqrQ~NNRbQӍ5,ź}{14F 1U

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