Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine()

        'Menu de operaciones basicas

        'Realizado por: Danika Contreras

        'Noveno 1 

        DIM a, b AS INTEGER

        DIM r1, r2, r3, r4 AS INTEGER 

        DIM SUMA, RESTA, MULTIPLICA AS INTEGER

        DIM DIVIDE, POTENCIA AS INTEGER

        DIM RESPUESTA AS INTEGER

        CONSOLE.WriteLine("QUE CALCULO DESEA REALIZAR: ")

        CONSOLE.WriteLine("1. SUMA 2. RESTA 3. MULTIPLICA 4. DIVIDE 5. POTENCIA")

        RESPUESTA = CONSOLE.ReadLine()

        IF RESPUESTA = r1 THEN 

            CONSOLE.WriteLine("INGRESE UN NUMERO: ")

            r1 = CONSOLE.ReadLine()

            SUMA = a+b

        END IF 

            IF RESPUESTA = r2 THEN 

                CONSOLE.WriteLine("INGRESE NUMERO: ")

                r2 = CONSOLE.ReadLine()

                RESTA = a-b

        END IF 

                IF RESPUESTA = r3 THEN 

                    CONSOLE.WriteLine("INGRESE NUMERO: ")

                    r3 = CONSOLE.ReadLine()

                    MULTIPLICA = a*b

        END IF

        IF RESPUESTA = r4 THEN 

            CONSOLE.WriteLine("INGRESE NUMERO: ")

            r4 = CONSOLE.ReadLine()

            DIVIDE = IF ('a > b THEN a/b)' 

                END IF 

                IF ('b > a THEN b/a)' 

                    END IF 

                END IF 

    End Sub

End Module