Imports System

'Examen U2

'Kimberly Morales

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Menu de opciones")

        Console.WriteLine("1. Teorema")

        Console.WriteLine("2. Conversiones")

        Dim Opcion as integer 

        Opcion = Console.ReadLine()

        Select Opcion

        case 1

            Dim a, b, t as integer 

            Console.WriteLine("Ingrese la base")

            b = Console.ReadLine()

            IF b=0 THEN

            Console.Writeline(" ingresar numero que no sea 0")

            b= Console.Readline()

            end if 

            Console.WriteLine("Ingrese la altura")

            a = Console.ReadLine()

            IF a=0 THEN

            Console.Writeline(" ingresar numero que no sea 0")

            a= Console.Readline()

            end if 

            t = ( Math.Sqrt ( (a^2 + b^2) )) * b^3

            Console.WriteLine("Teorema= "&t)

        case 2

            Dim metros as double

            Dim ft as double

            Dim Yarda as double

            Dim pul as double

            Console.WriteLine("Ingrese cantidad en metros (menor a 100 metros)")

            metros = Console.ReadLine()

            ft = METROS * 3.281

            Yarda = METROS * 1.094

            pul = METROS * 39.37

            Console.WriteLine("La cantidad en PIES es: "&ft &" pies")

            Console.WriteLine("La cantidad en YARDAS es: "&Yarda &" yardas")

            Console.WriteLine("La cantidad en PULGADAS es: "&pul &" pulgadas")

    Case else 

        End Select

        Console.WriteLine("¿Desea realizar otra operación? 1.Si  2.No ")

         Opcion = Console.ReadLine()

        Select Opcion

                case 1

                  Main()

                case 2

                  Console.Clear()

        End Select

    End Sub

End Module