Vector decreciente y creciente

[RossanaIsabel]

Hola

Conseguí esto en un página para ordenar los vectores creciente y decrecientemente, pero no funciona, no lo ordena, he tratado de ver qué pasa pero no lo veo ya que estoy un poco cansada, si alguien puede probarlo y saber qué ocurre.

Private Sub Command1_Click()
Dim vector(1 To 5)
vector(1) = Text1.Text
vector(2) = CInt(Text2.Text)
vector(3) = CInt(Text3.Text)
vector(4) = CInt(Text4.Text)
vector(5) = CInt(Text5.Text)

n = 5

For k = 1 To n - 1
renglon = 1
Do While renglon <= n - k
If vector(renglon) <= n - k Then
If vector(renglon) < vector(renglon + 1) Then
temp = vector(renglon)
vector(renglon) = vector(renglon + 1)
vector(renglon + 1) = temp
End If
End If
renglon = renglon + 1
Loop
Next k

For x = 1 To 5
List1.AddItem (vector(x))
Next x
End Sub

Saludos

[lop7]

prueba con esto... es para hacerlo ascendentemente ,para la otra forma le cambias le signo > por < y ya

Código PHP:

  Private Sub Command1_Click()
Dim k As Integer
Dim vector(1 To 5)
vector(1) = Text1.Text
vector(2) = CInt(Text2.Text)
vector(3) = CInt(Text3.Text)
vector(4) = CInt(Text4.Text)
vector(5) = CInt(Text5.Text)
 
n = 5
For k = 1 To n
    For j = k To n - 1
        If vector(k) > vector(j + 1) Then
            temp = vector(k)
            vector(k) = vector(j + 1)
            vector(j + 1) = temp
        End If
    Next j
Next
 
For x = 1 To 5
   List1.AddItem (vector(x))
Next x
End Sub 
   

saludos