NOMBRES PREMIERS

Signaler
Messages postés
550
Date d'inscription
vendredi 5 janvier 2001
Statut
Membre
Dernière intervention
23 septembre 2006
-
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/31113-nombres-premiers

Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
10
J'y vais... j'y vais...

Encore une dernière remarque :

Tu déclare BI, puis tu défini BI avec la valeur de Text1... Bon, trés bien... Je suppose que BI, c'est pour Borne Inférieure... L'ennui c'est qu'ensuite BI n'est jamais plus utilisé... En d'autre terme, on peut effacer les deux lignes où BI apparaît...

A se demander, si le code est complet...
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
10
A bon, aller... encore moi... (après je dors...)

Tu écris :

Test = Nb Mod Compteur
If Test = 0 Then
Flag = 0
End If

IL serait plus "propre" d'écrire : (p'être plus rapide aussi...)

If (Nb Mod Compteur)=0 then Flag=0

Et on économise la déclaration de la variable Test, en prime...
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
10
Je continue un peu...

Si on reprends le début, on aurait la même chose avec :

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

List1.Clear
BI = Val(Text1.Text)
BS = Val(Text2.Text)
I=2

A+

Amicalement,
Us.
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
10
Encore un truc...

Tu écris :

Do Until I > BS
Nb = I
Compteur = 2
Flag = 1


Donc dés le début Flag=1... Pourquoi pas... (pour l'instant j'ai pas regardé la suite...)

Mais, alors se pose toute de suite la question : Pourquoi avoir Flag à zéro ?... juste avant...
Afficher les 8 commentaires