Question

在VB中，判断一个大于或等于3的正整数是否是素数

Answer 1

a = InputBox("请输入数")
If a >= 3 Then
For i = 2 To Int(a / 2)
If a / i = a \ i Then ’除和整除相比较
m = 0
Exit For ‘若结果相等则退出
Else
m = 1
End If
Next i
Else
End If
If m = 0 Then
Print a & "不是素数"
ElseIf m = 1 Then
Print a & "是素数"
End If
思路是让给出的数在2到该数一半为被除数的情况下，除和整除的商是否相等为条件。

Answer 2

Dim a As Integer
a = InputBox("请输入数")
If a >= 3 Then
For i = 2 To a - 1
If a Mod i = 0 Then Exit For
Next
If i = a Then
Print a & "是素数"
Else
Print a & "不是素数"
End If
End If