Question

Las validaciones en Visual Basic se realizan aplicando estructuras como If – Then – Else – End If.
Desarrolle un programa que determine el mayor, menor o igualdad de dos números dados por INPUTBOX

Si está bueno, doy coronita. Por favor.

Answer 1

Respuesta:

Sub NumeroMayorMenorigual()

 Dim num1, num2 As Integer

num1 = InputBox("Ingresa un numero", "Primer numero", 0)

num2 = InputBox("Ingresa un numero", "Segundo numero", 0)

 

If num1 = num2 Then

  MsgBox "Los numeros son iguales: " & num1

Else

   If num1 > num2 Then

        MsgBox "El " & num1 & " es el mayor y el " & num2 & " es el menor"

   Else

        MsgBox "El " & num2 & " es el mayor y el " & num1 & " es el menor"

   End if

End if

MsgBox "Gracias"

End Sub

Explicación:

• Defines como número entero las dos variables para guardas los números que vas a ingresar por Inputbox: num1 y num2
• Guardas la entrada del primer número mediante el INPUTBOX en la variable num1.
• Guardas la entrada del segundo número mediante el INPUTBOX en la variable num2.
• Primera estructura IF para reconoces si son iguales, si la condición se cumple entonces el programa escribe mediante MsgBox >> Los numeros son iguales y a continuación una la variable num1. Como son iguales, da lo mismo elegir num1 o num2.
• en el ELSE, anidamos una estructura IF nueva para comprobar si el numero 1 es mayor que el numero 2 respectivamente las variables num1 y num2.
• Si la condición se cumple entonces escribe que el numero 1 es mayor que el numero 2.
• Sino entonces escribe la ultima opción que nos queda por descarte, el numero 2 es mayor que el numero1
• Al final después de salir de la estructura IF, escribe gracias.