Probleminha Em Logica!

[Ganhei]

FALA PESSOAL beleza???

TIVE ALGUNS PROBLEMINHAS E NÃO APARECI POR AKI UM BOM TEMPO...

MAS VAMOS LÁ!

EU PRECISO PASSAR ESSE ALGORITMO PARA VB

ALGORITMO ORDENA

INICIO

DECLARE VALOR : VETOR [1..15] NUMERICO

DECLARE AUX,I,J NUMERICO

PARA I DE 1 ATE 15

FAÇA

ESCREVA"DIGITE UM NUMERO"

LEIA VALOR

FIMPARA

PARA J DE 15 ATE 2

FAÇA

PARA I DE 1 ATE J

SE VALOR > VALOR[i+1]

ENTÃO

AUX=VALOR

VALOR=VALOR[i+1]

VALOR [i+1] = AUX

FIMSE

FIMPARA

FIMALGORITMO

TO PERDIDO COM O PARA!!!

VALEU POR ENQUANTO

[]´S Ganhei

[Fabson]

Espero que isso ajude .....

Dim VALOR(15) As Double

Dim AUX As Integer, I As Integer, J As Integer

For I = 1 To 15

VALOR(I) = InputBox("Digite um numero")

Next I

For J = 14 To 2 Step -1

For I = 1 To J

If VALOR(I) > VALOR(I + 1) Then

AUX = VALOR(I)

VALOR(I) = VALOR(I + 1)

VALOR(I + 1) = AUX

End If

Next I

Next J

Cls

For I = 1 To 15

Print VALOR(I)

Next I

[Ganhei]

Fala beleza???

esqueci de mencionar uma coisa! eu preciso que ele mostre os numero digitados (na ordem digitado) e os numero ordenados( crescente)

mas ajudou bastante

[]´s Ganhei