Private Sub Command1_Click()
n= Text1.Text
For i = 2 To Int(Sqr(n))
If n Mod i = 0 Then
msgbox "不是"
Exit Sub
End If
Next i
msgbox "是"
End Sub