Imports System

'REALIZADO POR: Ara Robredo

​

Public Module Module1

    Public Sub Main()

        Console.WriteLine("MENU DE OPCIONES")

        CONSOLE.WriteLine("1. ELEVA AL CUADRADO UN NUMERO")

        CONSOLE.WriteLine("2. ELEVA A X POTENCIA UN NUMERO")

        CONSOLE.WriteLine("3. CALCULA LA RAIZ CUADRADA DE X NUMERO")

        CONSOLE.Write("INGRESE UNA OPCION: ")

        DIM OPCION AS INTEGER

        OPCION = CONSOLE.ReadLine()

        SELECT OPCION

        CASE 1

            DIM NUMERO AS INTEGER

            CONSOLE.Write("INGRESE UN NUMERO : ")

            NUMERO = CONSOLE.ReadLine()

            DIM CUADRADO AS INTEGER

            CUADRADO = NUMERO ^2

            CONSOLE.Write("EL CUADRADO ES :" &CUADRADO)

        CASE 2

            DIM BASE, EXPONENTE AS INTEGER

            CONSOLE.WriteLine("INGRESE UN BASE: ")

            BASE = CONSOLE.ReadLine()

            CONSOLE.WriteLine("INGRESE UN EXPONENTE: ")

            EXPONENTE = CONSOLE.ReadLine()

            DIM RESULTADO AS INTEGER

            RESULTADO = BASE ^ EXPONENTE

            CONSOLE.WriteLine("EL RESULTADO ES: " &RESULTADO)

​

        CASE 3 

            DIM NUMERO AS INTEGER

            CONSOLE.Write("INGRESE UN NUMERO : ")

            NUMERO = CONSOLE.ReadLine()

            DIM RAIZ AS DOUBLE

            RAIZ = MATH.Sqrt(NUMERO)

            CONSOLE.WriteLine("LA RAIZ CUADRADA DEL NUMERO ES: " &RAIZ)

        CASE ELSE

            CONSOLE.WriteLine("INGRESE UNA OPION VALIDA")

        END SELECT 

    End Sub

End Module