Ho provato a creare un nuovo progetto e il codice ha funzionato. Grazie mille! comunque, siccome il mio scoppo non è tanto quello di copiare il codice, ma di capirlo, visto che lo sto studiando il visual basic, perché non posso mettere un codice del genere?
Sub FindPrimes(ByVal count As Integer)
'eventualmente pulisci il contenuto della TB
RichTextBox1.Clear()
'Aggiungo l'unico numero primo pari:
RichTextBox1.AppendText("2" + vbCrLf)
'Il numero correntemente analizzato:
'si parte da 3 e si prendono in consi-
'derazione solo i numeri dispari
Dim cur As Integer = 3
'Col ciclo popolo l'array del risultato
For i As Integer = 1 To count - 1
start:
Dim radq As Integer = Math.Sqrt(cur)
Dim divisore As Integer
'dato che abbiamo solo numeri dispari,
'si analizzano solo divisori dispari
'fino alla radice quadrata del numero
For divisore = 3 To radq Step 2
'se il risultato di una divisione
'da reto zero, il numero non è primo
If (cur Mod divisore) = 0 Then
'quindi aumento di due il numero analizzato
'(ottenendo il numero disperi successivo)
cur += 2
'e ricomincio ad analizzare
GoTo start
Else
'se il risultato di nessuna divisione da 0
'il numero è primo
RichTextBox1.AppendText(cur)
RichTextBox1.AppendText(vbCrLf)
cur += 2
GoTo start
End If
Next
Next
End Sub
Intendo dire...spostando quella parte di codice che dice
'se il risultato di nessuna divisione da 0
'il numero è primo
RichTextBox1.AppendText(cur)
RichTextBox1.AppendText(vbCrLf)
cur += 2
GoTo start
quando controlla se un numero è primo o no, perché non mi da altri risultati oltre a "2" (2 è impostato da codice). Scusa, ma se non lo capisco, mi dev'essere spiegato, se no continuerò a non capire e sbaglierò.Grazie mille comunque
_____platino_____
Visitate il mio Forum! ecco il link: www.studentsmeeting.forumitalian.com registratevi e pstate, mi raccomando! ;)