Revisenlo (sobre ordenador de numeros)

aldomiguel
01 de Abril del 2005
esta vex me pide ordenar los tres numeros reales diferentes mediante un procedimiento de intercambio de dos valores:

asi hice yo:

Private Sub cmdAceptar_Click()
Dim x1 As Single
Dim x2 As Single
Dim x3 As Single
Dim x4 As Single
x1 = Val(txtNumero1.Text)
x2 = Val(txtNumero2.Text)
x3 = Val(txtNumero3.Text)
If (x1 < x2) Then
If (x1 < x3) Then
x4 = x1
ElseIf (x3 < x2) Then
x4 = x3
Else
x4 = x2
End If
Else
If (x2 < x3) Then
x4 = x2
ElseIf (x3 < x1) Then
x4 = x3
Else
x4 = x1
End If
End If
lblMenor.Caption = "El menor de los numeros es: " & x4
End Sub

Private Sub cmdBorrar_Click()
txtNumero1 = ""
txtNumero2 = ""
txtNumero3 = ""
lblMenor.Caption = "El menor de los numeros es: " & 0
End Sub

Private Sub cmdSalir_Click()
If MsgBox("Desea terminar", vbQuestion + vbYesNo, "hjgjhgj") = vbYes Then
End
End If
End Sub



espero ke este bien haver diganme, plissssss
ricien estoy entrando a esta nota necesito un apoyo y mucha guia plisssssss. kiero ser un buen programador. ;)