Saludos!! Tengo que hacer uun ejercicio para conseguir ordenar tres valores conseguidos de forma aleatoria.
Hay un trozo del programa que no me sale!!
Espero que me podais ayudar
Un saludo!
Private Sub Ordenar_Click()
Dim Comodin As Integer
Dim Mayor As Integer
Dim Menor As Integer
If Label1.Caption > Label2.Caption Then
Mayor = Label1.Caption
Menor = Label2.Caption
Else
Mayor = Label2.Caption
Menor = Label1.Caption
End If
If Label3.Caption > Mayor Then
Medio = Mayor
Mayor = Label3.Caption
Else
Medio = Label3.Caption
End If
If Medio > Menor Then
Comodin = Medio
Menor = Medio
Medio = Comodin
End If
Label4.Caption = Mayor
Label5.Caption = Medio
Label6.Caption = Menor
End Sub