求證:n是否為素數,只需判斷n能否被2

求證:n是否為素數,只需判斷n能否被2

vb方法
Dim n As Double
n = Text1.Text
a = 2
m = Int(Sqr(n))
s = 0
While a