在Inputbox函数框中输入一个正整数,

Dim A As Long, i As Long
Dim Flag As Boolean
Flag = True
A = InputBox("请输入一个正整数")
If A <= 0 Then
MsgBox "对不起，你输入的不是一个正整数"
Else
For i = 2 To A - 1
If A Mod i = 0 Then
Flag = False
Exit For
End If
Next
End If
If Flag Then
MsgBox "该数是一个素数"
Else
MsgBox "该数不是一个素数"
End If

如有问题,请联系我:qq=40787
如果正确,请帮忙加分,谢谢

Private Sub Command1_Click()
Dim a, i As Integer
a = InputBox("输入一数: ")

If a = 0 Or a = 1 Then
MsgBox a & "是质数"
Else

i = a / 2

Do While a Mod i <> 0
i = i - 1
Loop

If i = 1 Then
MsgBox a & "是质数"
Else
MsgBox a & "不是质数"
End If

End If
End Sub