素数（质数）：就是一个大于等于2的整数,并且只能被1和本身整除,而不能被其它整除数的数.

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