Nombres premiers

Commenter

Contenu du snippet

Cette source permet de rechercher tous les nombres premiers situés entre deux bornes. Il faudra donc préciser les deux bornes entre lesquelles vous désirez rechercher les nombres premiers.

Source / Exemple : 


Dim BI As Long
Dim BS As Long
Dim I As Long
Dim Nb As Long
Dim Compteur As Long
Dim Flag As Long
Dim Test As Long

List1.Clear

BI = Val(Text1.Text)
BS = Val(Text2.Text)
I = BI

Do While I < 2
Flag = 0
I = I + 1
Loop

Do Until I > BS
Nb = I
Compteur = 2
Flag = 1
  Do While (Compteur <= int(sqr(Nb)) And Flag = 1)
    Test = Nb Mod Compteur
      If Test = 0 Then
        Flag = 0
      End If
    Compteur = Compteur + 1
  Loop

If Flag = 1 Then
  List1.AddItem Nb
End If
I = I + 1

Loop

Conclusion :


Pour le faire fonctionner, il suffit de mettre deux "textbox", un commande bouton et une liste...

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.