sábado, 15 de junio de 2013

Programa Como Solicitar Dos Números y Un Operador

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