level 7
假如 n = 97 ,那么 97 ÷ 2、97 ÷ 3 …… 97 ÷ 96 都除不尽,所以 97 是个素数。
虽然这种判断的次数多了一些,但许多教材上都是这样做的。
判断少一些的算法如下:
cc = CStr(n) & " 不是素数。"
If n <= 1 Then cc = CStr(n) & " 取值不合理。"
If n = 2 Then cc = CStr(n) & " 是素数。"
If n Mod 2 <> 0 And n > 2 Then
cc = CStr(n) & " 是素数。"
m = Int(Sqr(n) + 1)
For i = 3 To m Step 2
If n Mod i = 0 Then
cc = CStr(n) & " 不是素数。"
Exit For
End If
Next
End If
Print cc
2020年08月22日 20点08分
