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