判断n是否为素数,可用n除以弯激2到根号n之间所有颤闹岩的整数,除不尽则n为素数
For a = 2 To Int(Sqr(n))
If n Mod a <> 0 Then '余数不为0,则n为素数茄御
isprime = True 'n为素数
Else
isprime = False 'n不为素数
Exit For '退出for循环
End If
Next a
Private Sub Form_Click()
Dim i As Integer, m As Integer
m = Val(InputBox(""))
For i = 2 To m - 1
If m Mod i = 0 Then Exit For
Next i
If i >= m Then
Print m; "贺槐饥是素数"禅返
Else
Print m; "不明碧是素数"
End If
End Sub
这类的问题太多了