SoloCodigo

unm.. bueno me dejaron un ejercicio de vb donde tengo que escribir 3 numeros cualquiera y se orden de mayor a menor... en lo que yo hice se ordenan 3 numeros pero solo 3 numeros seguidos'... mejor dicho captura el mayor y el menor'.. pero el medio no..  .. les copio el codigo..


Dim a, b, c As Integer
Private Sub CmdLimpiar_Click()
txtN1 = ""
txtN2 = ""
txtN3 = ""
txtN1.SetFocus
End Sub

Private Sub cmdOrdenar_Click()
a = Val(txtN1)
b = Val(txtN2)
c = Val(txtN3)
If a > b Then
    If a > c Then
        mayor = a
    Else
        mayor = c
    End If
Else
    If b > c Then
        mayor = b
    Else
        mayor = c
    End If
End If
txtN1 = Str(mayor)



If a < b Then
    If a < c Then
        menor = a
    Else
        menor = c
    End If
Else
    If b < c Then
        menor = b
    Else
        menor = c
    End If
End If
txtN3 = Str(menor)


End Sub

Private Sub cmdSalir_Click()
End
End Sub




muchas gracias..   para cualquier cosa mi msn es j_daft@hotmail.com para mayor parte del tiempo en internet'.. recien estoy entrando en Vb.. por eso es que estoy algo volado en este tema.. sere un buen alumno'