Un petit programme de calcul des nombre premiers

Description

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

Codes Sources

A voir également

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.