Numeros Primo!

[Ganhei]

beleza pessoal!?

mais uma duvida minha.....

Tenho que fazer programa encontre TODOS os números primos entre o número pedido pelo usuário e 2 (que é o menor primo). Por exemplo, caso o usuário entre o número 9, a resposta deve ser:

7, 5, 3, 2

alguém poderia me ajudar???

Fiz um assim sera que da pra aproveitar!?

Private Sub calcular_Click()

Dim primo As Boolean

visor = Val(entrada.Text)

i = 2

resto = 0

primo = True

saida.ForeColor = RGB(0, 0, 255)

While i < visor

resto = visor Mod i

If resto = 0 Then

primo = False

End If

i = i + 1

Wend

If primo = False Then

saida.ForeColor = RGB(255, 0, 0)

saida.Caption = "Não é Primo"

Else

saida.Caption = "Primo"

End If

End Sub

valeuu!

[Luiz Humberto]

Acesse o link abaixo, acho que pode te ajudar.

http://www.ime.usp.br/~renata/mac2014/aula1.txt

[Graymalkin]

Já usou vetores? Isso ficaria bem mais fácil com a utilização de um vetor. Dá uma lida nesse tópico e nos sites indicados pelo William no mesmo: http://scriptbrasil.com.br/forum/index.php?showtopic=26525

Abraços,

Graymalkin

[William Rodrigues]

Já usou vetores? Isso ficaria bem mais fácil com a utilização de um vetor. Dá uma lida nesse tópico e nos sites indicados pelo William no mesmo: http://scriptbrasil.com.br/forum/index.php?showtopic=26525

Fora que de quebra teve uma ótima explicação sua

Abraços,

William Rodrigues

[Ganhei]

huahauhauha fazemos o q podemos!!! hehehe

[William Rodrigues]

E também te ajudamos no que podemos

Abraços,

William Rodrigues