Imports System

'Evaluación final Unidad #2

'Por gabriela fuentes  

Public Module Module1

    Public Sub Main()

        Console.WriteLine("TEOREMA")

        DIM B, C AS INTEGER

        DIM A AS DOUBLE

        CONSOLE.WriteLine("INGRESE VARIABLE B: ")

        B= CONSOLE.ReadLine()

        IF B=0 THEN

                CONSOLE.WriteLine("LA VARIABLE INGRESADA NO ES VALIDA")

                MAIN()

        END IF

        CONSOLE.WriteLine("INGRESE VARIABLE C: ")

        C= CONSOLE.ReadLine()

        IF C=0 THEN

                CONSOLE.WriteLine("LA VARIABLE INGRESADA NO ES VALIDA")

                MAIN()

        END IF

        IF B>0 AND C>0 THEN 

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

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

            IF B<0 AND C<0 THEN

                CONSOLE.WriteLine("LA VARIABLE INGRESADA NO ES VALIDA")

    MAIN()

            END IF

        END IF 

        Console.WriteLine("DESEA CONTINUAR CON LA EJECUCIÓN DEL PROGRAMA: ")

        CONSOLE.WriteLine("1. SI")

        CONSOLE.WriteLine("2. NO")

        DIM OPCIÓN AS INTEGER

        OPCIÓN = CONSOLE.ReadLine()

        SELECT OPCIÓN 

        CASE 1

            DIM SI AS INTEGER

            CONSOLE.WriteLine(":)")

            MAIN()

        CASE 2

            DIM NO AS INTEGER

            CONSOLE.WriteLine("ESPERAMOS NUESTROS SERVCIOS TE HAYAN AYUDADO")

        END SELECT  

    END SUB

End Module