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
