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

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/28 15:38:00
Vb编程:求100-999之间的所有素数求100-999之间的所有素数,并在窗体上输出要求:自定义一个过程判断一个数是否是素数(答案正确追加30以上)

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