numeri primi inferiori a quello inserito

[Delas]

avete qualche idea, devo fare un programmino che calcoli tutti i numeri primi inferiori a quello inserito...
help plz!
:master:

[brutus1234]

Se devi proprio calcolarli sti numeri primi, sono *azzi, è una raza di numeri che non rispondono a nessun ordine coherente, esistono e basta.
Se vuoi conoscere quali numeri primi eistono in un determinato spazio numerico devi fare la verifica di tutti i numeri per le sue proprietà: sono divisibile per 1 e per se stesso. Fa atenzione a non usare numeri grandi.
ciao

brutus1234

[Delas]

si, ho provato qualcosa ma mi incasino in una assurda ricorsività. hai qualche stralcio di codice da dove cominciare?

[chipdb]

Direi di cominciare da questo :gren:

Ciao

[Delas]

se a qualcuno può servire...

Private Sub Command1_Click()
On Error GoTo Error
x = Text1.Text
List1.Clear
List1.AddItem ("Elenco numeri primi")
List1.AddItem ("inferiori a " & x & ":")
List1.AddItem ("")

For i = 1 To x
    l = 0

    For y = 1 To x
     If (i Mod y) = 0 Then
      l = l + 1
     End If
    Next y

    If l = 2 Or i = 1 Then
    List1.AddItem (i)
    End If
Next i

Error:
End Sub