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