codigo para que ordenar 3 numeros de mayor a menor

[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....

[seba123neo]

Hola, podes guardar los numeros en un vector y ordenarlos..pero proba esto:

Código:

Private Sub Command1_Click()
    Dim a As Integer, b As Integer, c As Integer
    a = 1
    b = 5
    c = 10
    MsgBox (a + b + c * 2 + Abs(a - b) + Abs(a + b - c * 2 + Abs(a - b))) / 4
End Sub

saludos.

[Avellaneda]

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

[seba123neo]

si, lei muy mal el post...pense que decia el mayor de tres numeros...y eso que nombre lo de usar un vector para ordenarlos...