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