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


‘Lister des nombres de 1 à 100Private Sub Command2_Click()
 r = 100
 Me.Caption = 0
 Me.ForeColor = vbBlue
 For j = 1 To r
   For i = 2 To j
     If Val(j) Mod i = 0 And i <> Val(j) Then
      Me.ForeColor = vbBlue ‘la couleur pour les non premiers nombres
      Exit For
     Else
      Me.ForeColor = vbRed ‘la couleur pour les premiers nombres
     End If
   Next i
  Print ” ” & Format(j, “000”);
  If Me.ForeColor = vbRed Then Me.Caption = Me.Caption + 1 ‘La totale de nombre des premiers nombres
  If j Mod 10 = 0 Then Print
 Next j
End Sub

Leave a Reply

↑ Back to top