对于一个不小于3的正整数，设计一个算法判断该正数是否是素数

设这个数为n，则用2到根号n取整试除，若都不能整除，则为素数，否则为合数。

设这个数为n，则用2到根号n取整试除，若都不能整除，则为素数，否则为合数。

Dim a, b, c
c = 0
a = Text1.Text
If a <= 3 Then
msgbox "输入数值不小于3"
Else
For b = 2 To a - 1
c = a Mod b
If c = 0 Then
Exit For
End If
Next
If c = 0 Then
Print "是素数"
Else
Print "不是素数"
End If

End If