Module Module1
Dim A As Integer
Dim B As Integer
Dim OPERADOR As String
Dim E As Integer
Sub Main()
Console.WriteLine("Ingrese Primer Numero")
A = Console.ReadLine()
Console.WriteLine("Ingrese Segundo Numero")
B = Console.ReadLine()
Console.WriteLine("Ingrese Operador")
OPERADOR = Console.ReadLine()
Select Case OPERADOR
Case ("+")
E = A + B
Case ("-")
E = A - B
Case ("*")
E = A * B
Case ("/")
E = A / B
Case Else
Console.WriteLine(" No Ingreso Un Operador Valido")
End Select
Console.WriteLine("El resultado es {0} de la operacion", E)
Console.ReadLine()
End Sub
End Module
No hay comentarios:
Publicar un comentario