See this post in : English Version or Chinese Version Private Sub Command1_Click() 　r = InputBox(“Entrez un chiffre pour vérifier, SVP”) 　For i = 2 To r 　　　If Val(r) Mod i = 0 And i <> Val(r) Then ‘Ici donne une condition pour les non premiers nombres 　　　　MsgBox (“Ce n’est pas un premier nombre”) 　　　　Exit Sub [...]

More »