VB程序设计：判断一个数是否为质数（素数）.

Question

VB程序设计：判断一个数是否为质数（素数）.

Answer 1

Private Sub Command1_Click()
Dim x,i,f As Boolean
x = InputBox("请输入一个数",,51)
For i = 2 To Sqr(x)
If x Mod i = 0 Then
f = True
Exit For
End If
Next
If Not f Then
MsgBox "是素数"
Else
MsgBox "非素数"
End If
End Sub