Comprehension

tu ne nous dit pas en quoi tu programme

voila un petit truc en VB6

Private Function IsPrime(ByVal Number As Double) As Boolean
' Compteur
Dim i As Double
' Nombre
Dim d As Double

' Trois nombres ne seront pas pris en compte par le compteur, on s'organise pour
' qu'ils soient vus avant.
Select Case Number
Case 0
IsPrime = False
Exit Function
Case 1
IsPrime = False
Exit Function
Case 2
IsPrime = True
Exit Function
End Select

' Voici la boucle.
' Pas besoin de commencer à 1 et de finir au nombre, 3 et la racine du nombre
' font bien l'affaire
For i = 2 To Int(Sqr(Number)) + 1
' d = Number / i
d = Number Mod i
' If d = Int(d) Then
If d = 0 Then
IsPrime = False
Exit Function
End If
Next i

' Verdict ?
IsPrime = True
End Function

Tu fais une boucle avec i de n/2 a n et tu memorises i si celui ci est premier