Comment vérifier un premier nombre dans VB

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

Continue reading

↑ Back to top