Vb编程:求100-999之间的所有素数求100-999之间的所有素数,并在窗体上输出要求:自定义一个过程判断一个数是否是素数(答案正确追加30以上)

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/06 04:50:53
Vb编程:求100-999之间的所有素数求100-999之间的所有素数,并在窗体上输出要求:自定义一个过程判断一个数是否是素数(答案正确追加30以上)
xRKKQ+RpeB/A1S]F'lW * q {@̫Uo@-ܵ\wh6(eja(ʽ]ݵJ[Vd׭_ƃf]͊rd#\nn)6)-tE\i[喇7%_n[=uf7_ F%-W|X$E#,hdCː%b*LxiJ!鵀G3  2$r(V BjUȤ09)(̱ :!I >H,\@b4M0uFTWa"$c,z #*FHkTy5?Ni[;K|E%H~BP.+Ҙ>Ս

Vb编程:求100-999之间的所有素数求100-999之间的所有素数,并在窗体上输出要求:自定义一个过程判断一个数是否是素数(答案正确追加30以上)
Vb编程:求100-999之间的所有素数
求100-999之间的所有素数,并在窗体上输出
要求:自定义一个过程判断一个数是否是素数
(答案正确追加30以上)

Vb编程:求100-999之间的所有素数求100-999之间的所有素数,并在窗体上输出要求:自定义一个过程判断一个数是否是素数(答案正确追加30以上)
Private Sub Command1_Click()
For i = 100 To 999
If IsPrime(i) Then
n = n + 1
Print i;
If n Mod 10 = 0 Then Print
End If
Next i
End Sub
Public Function IsPrime(ByVal num As Long) As Boolean
Dim m As Long
m = Sqr(num)
IsPrime = True
For i = 2 To m
If num Mod i = 0 Then
IsPrime = False
Exit For
End If
Next i
End Function