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
End If
Next i
MsgBox (”C’est un premier nombre”)
End Sub
- * 0 Comments *
- Tags: Code, premier nombre, VB
