1. Realizar un programa que lea por teclado dos números, si el primero es mayor al segundo informar su suma y diferencia, en caso contrario informar el producto y la división del primero respecto al segundo.

 

Problemas propuestos

1. Realizar un programa que lea por teclado dos números, si el primero es mayor al segundo informar su suma y diferencia, en caso contrario informar el producto y la división del primero respecto al segundo.

Module Module1

 

    Sub Main()

        Dim num1, num2, suma, diferencia, producto As Integer

        Dim division As Single

 

 

        Console.Write("Ingrese primer valor:")

        num1 = Console.ReadLine()

 

        Console.Write("Ingrese segundo valor:")

        num2 = Console.ReadLine()

 

        If num1 > num2 Then

            suma = num1 + num2

            diferencia = num1 - num2

 

            Console.Write("La suma de los dos numeros es:")

            Console.Write(suma)

 

 

            Console.ReadKey()

 

            Console.Write("La diferencia de los dos numeros es:")

            Console.Write(diferencia)

 

            Console.ReadKey()

        Else

            producto = num1 * num2

            division = num2 / num1

            Console.Write("El Producto de los dos numeros es:")

            Console.Write(producto)

 

            Console.ReadKey()

 

            Console.Write("La division de los dos numeros es:")

            Console.Write(division)

            Console.ReadKey()

 

 

        End If

 

 

 

    End Sub

 

End Module

 

 

 

2. Se ingresan tres notas de un alumno, si el promedio es mayor o igual a siete mostrar un mensaje "Promocionado". 

Module Module1

    Sub Main()

        Dim nota1, nota2, nota3 As Integer

        Dim promedio As Double

 

 

        Console.Write("Ingrese primera nota:")

        nota1 = Console.ReadLine()

 

        Console.Write("Ingrese segunda nota:")

        nota2 = Console.ReadLine()

 

        Console.Write("Ingrese tercera nota:")

        nota3 = Console.ReadLine()

 

        promedio = (nota1 + nota2 + nota3) / 3

 

        Console.Write(" El promedio es :" & promedio)

        Console.ReadLine()

 

        If promedio >= 70 Then

 

            Console.Write("Promocionado")

 

        Else

 

 

 

 

        End If

        Console.ReadKey()

 

    End Sub

 

End Module

 

 

 

 

 

 

 

 

 

 

 

 

3. Se ingresa por teclado un número positivo de uno o dos dígitos (1..99) mostrar un mensaje indicando si el número tiene uno o dos dígitos.
(Tener en cuenta que condición debe cumplirse para tener dos dígitos, un número entero)

 

Module Module1

 

    Sub Main()

 

        Dim numero As Integer

 

       

        Console.Write("Ingrese un numero de uno o dos digitos:")

        numero = Console.ReadLine()

        If numero <= 9 Then

            Console.Write(" Tiene un digito")

 

        Else

 

            Console.Write(" Tiene dos digitos")

 

 

        End If

 

 

        Console.ReadKey()

 

    End Sub

 

End Module