Nombre premier
cs_julienx
Messages postés
1
Date d'inscription
mardi 19 avril 2005
Statut
Membre
Dernière intervention
25 juillet 2005
-
25 juil. 2005 à 16:49
Zlub Messages postés 809 Date d'inscription mercredi 11 octobre 2000 Statut Membre Dernière intervention 29 septembre 2010 - 26 juil. 2005 à 00:49
Zlub Messages postés 809 Date d'inscription mercredi 11 octobre 2000 Statut Membre Dernière intervention 29 septembre 2010 - 26 juil. 2005 à 00:49
3 réponses
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
25 juil. 2005 à 18:24
25 juil. 2005 à 18:24
Salut
Il y a une belle collection de sources qui font ça sur le site : cherche
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
(je
Il y a une belle collection de sources qui font ça sur le site : cherche
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
(je
cs_CanisLupus
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Membre
Dernière intervention
13 mars 2006
21
25 juil. 2005 à 18:39
25 juil. 2005 à 18:39
Salut,
Il y a
http://www.vbfrance.com/code.aspx?ID=32294 sur le site mais j'ai une autre méthode traduite du C.
Une form avec une listbox (list1) et faire attention à la taille maximum que peut prendre le tableau. Dans cet exemple, ça calcule jusqu'à 1000.
Dim tabl() As Long
Sub calcul(Limite As Long)
Dim i As Long, n As Long, index As Long
Dim isprime As Integer
ReDim tabl(0)
tabl(0) = 1
ReDim Preserve tabl(1)
tabl(1) = 2
ReDim Preserve tabl(2)
tabl(1) = 3
index = 1
n = 3
Do
n = n + 2
If (n >= Limite - 3) Then Exit Do
i = 0
isprime = 1
Do
i = i + 1
isprime = n Mod tabl(i)
Loop While (isprime And tabl(i) * tabl(i) <= tabl(index))
If isprime Then
index = index + 1
ReDim Preserve tabl(index)
tabl(index) = n
End If
Loop
For i = 0 To UBound(tabl)
List1.AddItem tabl(i)
Next
End Sub
Private Sub Form_Load()
Call calcul(1000)
End Sub
-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?
Il y a
http://www.vbfrance.com/code.aspx?ID=32294 sur le site mais j'ai une autre méthode traduite du C.
Une form avec une listbox (list1) et faire attention à la taille maximum que peut prendre le tableau. Dans cet exemple, ça calcule jusqu'à 1000.
Dim tabl() As Long
Sub calcul(Limite As Long)
Dim i As Long, n As Long, index As Long
Dim isprime As Integer
ReDim tabl(0)
tabl(0) = 1
ReDim Preserve tabl(1)
tabl(1) = 2
ReDim Preserve tabl(2)
tabl(1) = 3
index = 1
n = 3
Do
n = n + 2
If (n >= Limite - 3) Then Exit Do
i = 0
isprime = 1
Do
i = i + 1
isprime = n Mod tabl(i)
Loop While (isprime And tabl(i) * tabl(i) <= tabl(index))
If isprime Then
index = index + 1
ReDim Preserve tabl(index)
tabl(index) = n
End If
Loop
For i = 0 To UBound(tabl)
List1.AddItem tabl(i)
Next
End Sub
Private Sub Form_Load()
Call calcul(1000)
End Sub
-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?
Zlub
Messages postés
809
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
8
26 juil. 2005 à 00:49
26 juil. 2005 à 00:49
Salut,
Ou sinon tu vois le code de Julien39 source #32289
++
Zlub
Ou sinon tu vois le code de Julien39 source #32289
++
Zlub
