Soyez le premier à donner votre avis sur cette source.
Vue 29 069 fois - Téléchargée 664 fois
Private Sub Command1_Click() Dim i, n, p, j As Long Command1.Enabled = False Open "c:\premier.txt" For Output As #1 Close #1 Open "c:\premier.txt" For Append As #1 p = Val(Text1.Text) n = Val(Text2.Text) For i = p To n Step 1 For j = 2 To Round((i - 1) / 2) + 1 Step 1 If i Mod j = 0 Then GoTo 1 End If Next j Print #1, i 1: Next i Close #1 Command1.Enabled = True End Sub Private Sub UpDown1_Change() End Sub
21 nov. 2006 à 14:35
mais comme je l'explique il ya d'autre méthodes:
Dim LastJ As long
For i = p To n Step 1
LastJ = Round((i - 1) / 2) + 2
For j = 2 To LastJ Step 1
If i Mod j = 0 Then Exit For
Next j
If j = LastJ then Print #1, i
Next i
Ensuite il est important sur ce type d'algo de gagner du temps
et la premiére des chose a faire c'est de déclarer le type des variables.
dans le cas contraire c'est variant qui est utilisé et ça veut dire une grosse chute de performance.
(ca a déjà été dit mais aucune correction n'as été aporter).
pour déclarer toutes tes variables en long :
Dim i As Long, n As Long, p As Long, j As Long
21 nov. 2006 à 13:06
Malkuth, selon le code (Dim j,i,... as long, je suppose que c'est du VB6, donc pas de continue.
17 nov. 2006 à 21:28
GOTO Fais vraiment sale dans un code et est moins facile pour relire le code.
Quand vous pensez que vous pouver pas faire autrement dite vous que des projet de plusieurs dizaines de miliers de ligne de code sont écrit sans faire appel a goto, que dans la plupart des cas le langage à des mécaniques pour faire sans, et dans le dernier recours un petit if devrait faire l'affaire.
4 juil. 2006 à 16:04
19 avril 2006 à 17:12
je vous aime tous !!!!
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.