Unidad 3. Lenguaje Visual Basic de Aplicaciones (VBA) (XII)



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

Noviembre-2010
Pág. 3.12

Atrás  Inicio  Adelante





Página inicial  Cursos Informática Gratuitos

Síguenos en:   Facebook       Sobre aulaClic            Política de Cookies