como veran por cada operacion que realizo, ¿pregunta si desea probar con otra operacion si al darle Si entonces que me limpie la operacion realizada anteriormente y que el cursor se posicione en donde Seleccione Opcion: stava viendo la ayuda pero no logro hacerlo si alguien me puede orientar seria de gran ayuda...
Código
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