NOMBRES PREMIERS

Public Sub funcPremier()
    On Error GoTo errEntier   'Si autre chose qu'un nombre entier est tapé au clavier
        Dim N As Long
        Dim i As Long
        i = 2
        N = CInt(Form1.txtPremier.Text)
            Select Case N   ' Traitement des cas possibles
            Case Is < 0
            Form1.lblPremier.Caption = "Il faut entrer un nombre positif ou nul..."
                Form1.lblPremier.FontSize = 20
                Form1.lblPremier.AutoSize = True
            Case Is = 2
                Form1.lblPremier.Caption = "2 est un nombre premier, c'est le seul" _
                & " nombre pair premier !"
                Form1.lblPremier.FontSize = 20
                Form1.lblPremier.AutoSize = True
            Case Is <= 1
                Form1.lblPremier.Caption = "Ce nombre n'est pas premier"
                Form1.lblPremier.FontSize = 20
            Case Else
                While (i < Sqr(N)) And ((N Mod i) <> 0)  'Algorithme pour déterminer si le nombre
                i = i + 1                               ' est premier ou non
                Wend
                If (N Mod i) <> 0 Then
                    Form1.lblPremier.Caption = "Ce nombre est premier"
                    Form1.lblPremier.FontSize = 20
                Else
                    Form1.lblPremier.Caption = "Ce nombre n'est pas premier"
                    Form1.lblPremier.FontSize = 20
                End If
            End Select
    Exit Sub
errEntier:
        If Err.Number = 13 Then   'Traitement de l'erreur si l'utilisateur entre un nombre non entier
        intReponse = MsgBox("Veuillez taper un nombre entier svp !", vbOKOnly, "Attention!")
        End If
End Sub

Télécharger le zip

21 décembre 2006 15:11:00 :

Deux rectifications : 1- Mise de la variable N en Long + conversion de la chaine de caractère en Int 2- Modification du logarithme de calcul : la boucle s'arrête à la racine carrée...

11 janvier 2007 10:36:53 :

Aucune.