Private Sub Command1_Click()
a = Val(InputBox("输入一个数"))
For i = 2 To a - 1
If a Mod i = 0 Then Exit For
Next
If i = a Then MsgBox a & "是素数" Else MsgBox a & "不是素数"
End Sub