Question

编写程序,判断一个正整数(>=3)是否为素数.(用VB）

Answer 1

所谓素数，是指除了1和该数本身之外，不能被其他任何整数整除的数。例如，13是素数，因为它不能被2，3，4，…，12整除。

　　判断一个数n(n≥3)是否素数的方法是很简单的：将n作为被除数，将2到(n-1)各个整数轮流作为除数，如果都不能被整除，则n为素数。

Private Sub Command1_Click()
Dim N As Long, Flags As Boolean
N = Val(Text1.Text)
Flags = True
For i = 2 To Sqr(N)
If N Mod i = 0 Then
Flags = False
Exit For
End If

Next

MsgBox N & IIf(Flags, "", "不") & "是一个素数"

End Sub

Answer 2

Private Sub Form_Click()
Dim n As Integer
Do While n < 3
n = InputBox("请输入一个整数：")
Loop
Print Prime(n)
End Sub

Function Prime(a) As String
For i = 2 To Sqr(a)
If a Mod i = 0 Then
Prime = "不是素数"
Exit Function
End If
Next i
Prime = "是素数"
End Function