![]() |
#2
风吹过b2012-04-18 08:24
|
Private Sub Form_Click()
Dim i As Integer, m As Integer
m = InputBox("")
For i = 2 To m - 1
If m Mod i = 0 Then Exit For
Next i
If i >= m Then
Print m; "是素数"
Else
Print m; "不是素数"
End If
End Sub
为什么要用 i>=m 来确定 m 是否为素数。