See this post in : English Version or French Version  Private Sub Command1_Click() 　r = InputBox(“请输入您要判断的数字”) 　For i = 2 To r 　　　If Val(r) Mod i = 0 And i <> Val(r) Then ‘这里给出了非质数的条件 　　　　MsgBox (“此数为非质数”) 　　　　Exit Sub 　　　End If 　Next i 　MsgBox (“此数为质数”) End Sub

More »