Imports System

'Programación

'Examen 2da Unidad

'Santiago Bosarreyes

'9no-2      

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Menu De Opciones")

        Console.WriteLine("")

        CONSOLE.WriteLine("1.Teorema")

        Console.WriteLine("")

        CONSOLE.WriteLine("2.Conversiones")

        Console.WriteLine("")

        CONSOLE.WriteLine("Ingrese la opcion que quiera realizar")

        Console.WriteLine("")

        DIM OPCION AS INTEGER

        OPCION = CONSOLE.ReadLine()

        SELECT OPCION

        CASE 1

            TEOREMA

        CASE 2

            CONVERSIONES

        END SELECT

    End Sub

    PRIVATE SUB TEOREMA

        DIM A, B AS INTEGER

        DIM TEOREMA AS DOUBLE

        CONSOLE.WriteLine("INGRESE VARIABLE A")

        A = CONSOLE.ReadLine()

        CONSOLE.WriteLine("INGRESE VARIABLE B")

        B = CONSOLE.ReadLine()

        IF A>0 AND B>0 THEN

        TEOREMA = MATH.Sqrt((A^2+B^2)*B^3)

            Console.WriteLine("")

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

            Console.WriteLine("")

        ELSE

            CONSOLE.WriteLine("INGRESE VARIABLES VALIDAS")

            MAIN()

        END IF

            dim respuesta as integer

        CONSOLE.WriteLine("¿Desea Continuar?: 1.SI 2.NO")

                RESPUESTA = CONSOLE.ReadLine()

        if respuesta = 1

            main()

        end if

    END SUB

    PRIVATE SUB CONVERSIONES

        Console.WriteLine("")

        Console.WriteLine("MENU DE OPCIONES")

        Console.WriteLine("")

        CONSOLE.WriteLine("1.Metros a Pies")

        Console.WriteLine("")

        CONSOLE.WriteLine("2.Metros a Yardas")

        Console.WriteLine("")

        CONSOLE.WriteLine("3.Metros a Pulgadas")

        Console.WriteLine("")

        CONSOLE.WriteLine("Seleccione una Opcion")

        DIM OPCION AS INTEGER

        OPCION = CONSOLE.ReadLine()

        IF OPCION = 1

            DIM METROS AS INTEGER

            DIM FT AS INTEGER

            Console.WriteLine("")

            Console.WriteLine("Ingrese la cantidad de metros a convertir")

            METROS = CONSOLE.ReadLine()

            FT = METROS / 0.33

            Console.WriteLine("")

            Console.WriteLine("LA CANIDAD EN PIES: "&FT &" ft") 

            Console.WriteLine("")

        END IF

        IF OPCION = 2 THEN

            DIM METROS AS INTEGER

            DIM YARDAS AS INTEGER

            Console.WriteLine("")

            Console.WriteLine("Ingrese la cantidad de metros a convertir")

            METROS = CONSOLE.ReadLine()

            YARDAS = METROS * 1.1

            Console.WriteLine("")

            Console.WriteLine("LA CANIDAD EN YARDAS: "&YARDAS &" YARDAS")   

            Console.WriteLine("")

        END IF

        IF OPCION = 3 THEN

            DIM METROS AS INTEGER

            DIM PULGADAS AS INTEGER

            Console.WriteLine("")

            Console.WriteLine("Ingrese la cantidad de metros a convertir")

            Console.WriteLine("")

            METROS = CONSOLE.ReadLine()

            PULGADAS = METROS * 39

            Console.WriteLine("")

            Console.WriteLine("LA CANIDAD EN PULGADAS: "&PULGADAS &" PULGADAS") 

            Console.WriteLine("")

        END IF

        dim respuesta as integer

        Console.WriteLine("")

     CONSOLE.WriteLine("¿DESEA CONTINUAR?: 1.SI 2.NO")

        Console.WriteLine("")

                RESPUESTA = CONSOLE.ReadLine()

        if respuesta = 1

            main()

        end if

    END SUB

End Module