06/12/2007, 13:59
|
| | | Fecha de Ingreso: septiembre-2005
Mensajes: 76
Antigüedad: 18 años, 8 meses Puntos: 0 | |
| Re: Ordenar Tres Valores
Private Sub Ordenar_Click()
Dim Comodin As Integer
Dim Mayor As Integer
Dim Menor As Integer
Dim medio As Integer
If Val(Label1.Caption) > Val(Label2.Caption) And Val(Label1.Caption) > Val(Label3.Caption) Then
Mayor = Label1.Caption
If Val(Label2.Caption) > Val(Label3.Caption) Then
medio = Val(Label2.Caption)
Menor = Val(Label3.Caption)
Else
medio = Val(Label3.Caption)
Menor = Val(Label2.Caption)
End If
ElseIf Val(Label2.Caption) > Val(Label1.Caption) And Val(Label2.Caption) > Val(Label3.Caption) Then
Mayor = Val(Label2.Caption)
If Val(Label1.Caption) > Val(Label3.Caption) Then
medio = Val(Label1.Caption)
Menor = Val(Label3.Caption)
Else
medio = Val(Label3.Caption)
Menor = Val(Label1.Caption)
End If
ElseIf Val(Label3.Caption) > Val(Label1.Caption) And Val(Label3.Caption) > Val(Label2.Caption) Then
Mayor = Val(Label3.Caption)
If Val(Label2.Caption) > Val(Label1.Caption) Then
medio = Val(Label2.Caption)
Menor = Val(Label1.Caption)
Else
medio = Val(Label1.Caption)
Menor = Val(Label2.Caption)
End If
End If
Label4.Caption = "Numero mayor: " & Mayor
Label5.Caption = "Numero Medio: " & medio
Label6.Caption = "numero Menor: " & Menor
End Sub
__________________
Buby Systems |