Retornar 10 Numero Primos Acima De 100

[fahledu]

Crianças

Estou brincado um pouco com vb mas to apanhando...

a ideia é retornar os 10 numeros primos acima de 100... No form coloquei um botão e um listbox.. e no font:

Private Sub Command1_Click()
Dim p(10), x, que, n, y As Integer
n = 101
que = 1
Do
y = 0
For x = 1 To n
r = n Mod x
If (r = 0) Then
y = y + 1
ElseIf (y = 2) Then
p(que) = n
que = que + 1
End If
n = n + 1
Next
Loop Until que < 10
For x = 1 To 10
List1.AddItem p(x)
Next
End Sub

so que apenas retorna o valor 103 na primeira linha e umas 9 linhas em branco... :unsure:

[kuroi]

acho que você ta esquecendo de zerar o y:

...
ElseIf (y = 2) Then
    p(que) = n
    que = que + 1
    y = 0
End If
...[/code]

[fahledu]

Valeu...

Estava mesmo esquecendo de zerar o Y, mas ia só mostrava quatro valores... Então foi alterar o loop de < 10 para = 11...