Cita:
Iniciado por José_Miguel 
me dejan
hacer un programa para que ordene tres numeros de mayor a menor
como lo hago
pienso hacerlo con puro if y if
pero es mucho codigo..
como hago con for o con while?
.. gracias....
El código que te pusieron anteriormente no ordena los números, sólo muestra el mayor de ellos.
Para ordenar:
Código:
Private Sub Command1_Click()
Dim MiVector As Variant
Dim x As Integer, i As Integer, j As Integer
MiVector = Array(15, 20, 7) ' números a ordenar
x = 1
While x = 1
x = 0
For i = 1 To UBound(MiVector)
If MiVector(i - 1) < MiVector(i) Then
j = MiVector(i - 1)
MiVector(i - 1) = MiVector(i)
MiVector(i) = j
x = 1
End If
Next i
Wend
' listar los números ordenados de mayor a menor en un ListBox
For i = 0 To UBound(MiVector)
List1.AddItem MiVector(i)
Next i
End Sub
