Ejemplo 8
Escriba un código que al ingresar dos números, los imprima en forma ordenada (creciente)
Sub Ordena01()
Dim Num1, Num2 As Integer
Num1 = InputBox("Ingrese el primer número")
Num2 = InputBox("Ingrese el segundo número")
If Num1 < Num2 Then
MsgBox ("Numero menor: " & Num1 & Chr(13) + Chr(10) & "Número mayor: " & Num2)
Else
MsgBox ("Numero menor: " & Num2 & Chr(13) + Chr(10) & "Numero mayenor: " & Num1)
End If
End Sub
Ejemplo 9
Codificar un procedimiento que lea tres números e imprima en pantalla en forma creciente de sus valores. Como se puede apreciar, la lectura del código no es tan simple; requiere de una dosis de concentración. Más adelante usaremos arreglos para ordenar grandes series.
Sub ordena02()
Dim Num1, Num2, Num3 As Double
Num1 = InputBox("Ingresa el primer número")
Num2 = InputBox("Ingresa el segundo número")
Num3 = InputBox("Ingresa el tercer número")
If Num1 < Num2 Then
If Num2 < Num3 Then
MsgBox ("Los números ordenados: " + Chr(13) + Chr(10) & Num1 & Chr(13) + Chr(10) & Num2 & Chr(13) + Chr(10) & Num3)
Else
MsgBox ("Los números ordenados: " + Chr(13) + Chr(10) & Num1 & Chr(13) + Chr(10) & Num3 & Chr(13) + Chr(10) & Num2)
End If
Else
If Num2 < Num3 Then
If Num1 < Num3 Then
MsgBox ("Los números ordenados: " + Chr(13) + Chr(10) & Num2 & Chr(13) + Chr(10) & Num1 & Chr(13) + Chr(10) & Num3)
Else
MsgBox ("Los números ordenados: " + Chr(13) + Chr(10) & Num2 & Chr(13) + Chr(10) & Num3 & Chr(13) + Chr(10) & Num1)
End If
Else
MsgBox ("Los números ordenados: " + Chr(13) + Chr(10) & Num3 & Chr(13) + Chr(10) & Num2 & Chr(13) + Chr(10) & Num1)
End If
End If
End Sub
Síguenos en: Facebook Sobre aulaClic Política de Cookies