Imports System

Public Module Module1

    Public Sub Main()

        'menu

        dim opcion as integer

        Console.WriteLine("realice las conversiones solicitadas")

        Console.Writeline("Conversiones de longitud pasarlo a 1. pies, 2. yardas, 3. pulgadas")

        opcion=Console.Readline()

        'case

        select (opcion)

        case 1

            'conversiones

        case else 

            Console.Writeline("La opcion ingresada no es valida")

        end select 

    End Sub

​

    Private Sub conversiones

        'procedimientos de conversiones

        dim m, p, y, l as double

        dim opc as integer

        Console.Writeline("¿Qué desea convertir? 1. pies 2. yardas 3. pulgadas")

        opc=Console.Readline()

        'Opcion 1 trabaja metros a pies

        if opc= 1 then

            Console.Writeline("metros")

            m=Console.Readline()

            Console.Writeline("pies")

            p=Console.Readline()

            m= m*p

            Console.Writeline(" la conversion de metros a pies es de: "&m)

        end if 

    end sub

    Private Sub Conversiones

        'procedimientos de conversiones

        dim m, p, y, l as double

        dim opc as integer

        Console.Writeline("¿Qué desea convertir? 1. pies 2. yardas 3. pulgadas")

        opc=Console.Readline()

        'Opcion 1 trabaja metros a yardas

        if opc= 1 then

            Console.Writeline("metros")

            m=Console.Readline()

            Console.Writeline("yardas")

            y=Console.Readline()

            m= m/y

            Console.Writeline(" la conversion de metros a yardas es de: "&m)

        end if 

        end sub

End Module