Imports System

'Realizado por Sol Flores

Public Module Module1

    Public Sub Main()

        Console.WriteLine("MENÚ DE OPCIONES")

        CONSOLE.WriteLine("1. TEOREMA")

        CONSOLE.WriteLine("2. AREA CIRCULAR")

        CONSOLE.WriteLine("3. MOVIMIENTO CIRCULAR")

        CONSOLE.WriteLine("INGRESE UNA OPCIÓN")

        DIM OPCIÓN AS INTEGER

        OPCIÓN = CONSOLE.ReadLine()

        SELECT OPCIÓN 

        CASE 1 

            TEOREMA

        CASE 2

            ACIRC

        CASE 3

            MOVCIR

        END SELECT

    END SUB

        PRIVATE SUB TEOREMA 

        DIM A, B AS INTEGER

        DIM C AS DOUBLE

        CONSOLE.WriteLine("INGRESE VARIABLE A: ")

        A = CONSOLE.ReadLine()

        CONSOLE.WriteLine("INGRESE VARIABLE B: ")

        B = console.ReadLine()

        'EVITAR EL INGRESO DE 0 Y NEGATIVOS 

        IF A>0 AND B>0 THEN

        C = math.Sqrt(A^2+B^2)

        CONSOLE.WriteLine("LA RESPUESTA ES: " &C)

        ELSE 

            CONSOLE.WriteLine("INGRESO DE UNA VARIABLE NO VALIDA")

            MAIN()

        END IF 

        END SUB

    PRIVATE SUB ACIRC

        DIM R, H AS INTEGER

        DIM AC AS DOUBLE 

        CONSOLE.WriteLine("INGRESE R: ")

        R = CONSOLE.ReadLine()

        CONSOLE.WriteLine("INGRESE H: ")

        H = CONSOLE.ReadLine()

        IF R>0 AND H>0 THEN

            AC = MATH.PI*R^2*H

            CONSOLE.WriteLine("LA RESPUESTA ES: " &AC)

        ELSE

            CONSOLE.WriteLine("SE INGRESO UNA VARIANTE NO VALIDA")

            MAIN()

        END IF

    END SUB

    PRIVATE SUB MOVCIR

        DIM M, R, H AS INTEGER 

        DIM P, PI AS DOUBLE 

        PI = 3.1416

        CONSOLE.WriteLine("INGRESE M: ")

        M = CONSOLE.ReadLine()

        CONSOLE.WriteLine("INGRESE R: ")

        R = CONSOLE.ReadLine()

        CONSOLE.WriteLine("INGRESE H: ")

        H = CONSOLE.ReadLine()

        IF M>0 AND R>0 AND H>0 THEN 

            P = M/1/3*PI*R^2*H

            CONSOLE.WriteLine("LA RESPUESTA ES: " &P)

        ELSE 

            CONSOLE.WriteLine("SE INGRESO UNA VARIABLE NO VALIDA")

        END IF

    END SUB

End Module