qu'on vous appuiez sur calculer il va mettre les nombre dans un fichier texte dans C: appeler premier
Source / Exemple :
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
Conclusion :
je vous remercie pour votre attention veuillez donner une note
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.