Module Module1
Sub Main()
Dim Num1 As Integer, Num2 As Integer
Dim Opcion As Integer, Resultado As Double
Console.ForegroundColor = ConsoleColor.Red : System.Console.WriteLine("")
System.Console.WriteLine(" Operaciones de Matematicas Básicas")
System.Console.WriteLine(" ==================================")
System.Console.WriteLine("") : System.Console.WriteLine("") : Console.ResetColor()
Console.ForegroundColor = ConsoleColor.Green
System.Console.WriteLine(" [1] Suma")
System.Console.WriteLine(" [2] Resta")
System.Console.WriteLine(" [3] Multiplicación")
System.Console.WriteLine(" [4] División")
System.Console.WriteLine(" [5] Potencia")
System.Console.WriteLine(" [6] Salir")
Console.ResetColor() : System.Console.WriteLine("") : System.Console.WriteLine("")
System.Console.Write(" Seleccione Opción: ") : Console.ForegroundColor = ConsoleColor.Green : Opcion = Console.ReadLine : Console.ResetColor()
System.Console.WriteLine("") : System.Console.WriteLine("")
Select Case Opcion
Case 1
System.Console.WriteLine(" ++++++++++++++++++++++++++++++++++++++++++++++++")
System.Console.WriteLine(" | Operación de Suma |")
System.Console.WriteLine(" ++++++++++++++++++++++++++++++++++++++++++++++++")
System.Console.WriteLine("")
System.Console.Write(" Sumando 1: ") : Num1 = Console.ReadLine
System.Console.Write(" Sumando 2: ") : Num2 = Console.ReadLine
System.Console.WriteLine("")
Resultado = Val(Num1 + Num2)
System.Console.Write(" La suma es :" & Str(Resultado))
Case 2
System.Console.WriteLine(" ++++++++++++++++++++++++++++++++++++++++++++++++")
System.Console.WriteLine(" | Operación de Resta |")
System.Console.WriteLine(" ++++++++++++++++++++++++++++++++++++++++++++++++")
System.Console.WriteLine("")
System.Console.Write(" Ingrese Minuendo : ") : Num1 = Console.ReadLine
System.Console.Write(" Ingrese Sustraendo: ") : Num2 = Console.ReadLine
System.Console.WriteLine("")
Resultado = Val(Num1 - Num2)
System.Console.Write(" La diferencia es :" & Str(Resultado))
Case 3
System.Console.WriteLine(" ++++++++++++++++++++++++++++++++++++++++++++++++")
System.Console.WriteLine(" | Operación de Multiplicación |")
System.Console.WriteLine(" ++++++++++++++++++++++++++++++++++++++++++++++++")
System.Console.WriteLine("")
System.Console.Write(" Ingrese Multiplicando : ") : Num1 = Console.ReadLine
System.Console.Write(" Ingrese Multiplicador : ") : Num2 = Console.ReadLine
System.Console.WriteLine("")
Resultado = Val(Num1 * Num2)
System.Console.Write(" El Producto es :" & Str(Resultado))
Case 4
System.Console.WriteLine(" ++++++++++++++++++++++++++++++++++++++++++++++++")
System.Console.WriteLine(" | Operación de División |")
System.Console.WriteLine(" ++++++++++++++++++++++++++++++++++++++++++++++++")
System.Console.WriteLine("")
System.Console.Write(" Ingrese Dividendo: ") : Num1 = Console.ReadLine
System.Console.Write(" Ingrese Divisor : ") : Num2 = Console.ReadLine
System.Console.WriteLine("")
Resultado = Val(Num1 / Num2)
System.Console.Write(" El Cociente es :" & Str(Resultado))
Case 5
System.Console.WriteLine(" ++++++++++++++++++++++++++++++++++++++++++++++++")
System.Console.WriteLine(" | Operación de Potencia |")
System.Console.WriteLine(" ++++++++++++++++++++++++++++++++++++++++++++++++")
System.Console.WriteLine("")
System.Console.Write(" Ingrese Base : ") : Num1 = Console.ReadLine
System.Console.Write(" Ingrese Exponente : ") : Num2 = Console.ReadLine
System.Console.WriteLine("")
Resultado = Val(Num1 ^ Num2)
System.Console.Write(" La Potencia es :" & Str(Resultado))
Case 6
If MsgBox("Esta seguro que desea sali??", MsgBoxStyle.Question + vbYesNo, "Operaciones Matematicas") = 6 Then
End
End If
Case Else
MsgBox("El número ingresado esta fuera del rango", MsgBoxStyle.Critical, "Operaciones Aritmeticas")
End Select
System.Console.ReadLine()
End Sub
End Module