Corrigé 4.9 Vérifier si un nombre est premier

Code de la fonction :

Function DétermineNombrePremier(lngNB As Long) As Boolean  
  Dim lngDiviseur As Long  
  If lngNB < 4 Then  
    DétermineNombrePremier = True  
  Else  
    If lngNB Mod 2 = 0 Then  
      DétermineNombrePremier = False  
    Else  
      lngDiviseur = 3  
      Do While (lngDiviseur ^ 2 <= lngNB) _  
      And (lngNB Mod lngDiviseur > 0)  
        lngDiviseur = lngDiviseur + 2  
 ...
Pour consulter la suite, découvrez le livre suivant :
couv_TP21EXCV.png
60-signet.svg
En version papier
20-ecran_lettre.svg
En version numérique
41-logo_abonnement.svg
En illimité avec l'abonnement ENI
130-boutique.svg
Sur la boutique officielle ENI
Précédent
Corrigé 4.8 Inverser l’ordre des caractères
Suivant
Corrigé 4.10 Compter le nombre d’occurrences d’un nombre