Imports System

Public Module Module1

    Dim imc as double

    Public Sub Main()

        Console.WriteLine("Calculadora índice de masa corporal")

        Dim Libras, Kilos as integer

        Console.WriteLine("ingrese su peso en libras: ")

        Libras = console.ReadLine()

        Kilos= Libras/2.20

        Dim Altura as double

            Console.WriteLine("Ingrese altura en metros: ")

            Altura = Console.ReadLine()

            imc =(Kilos/ Altura ^(2))

            Console.Writeline(" SU IMC ES: "&imc)

        Console.WriteLine("1. Mujer, 2. Hombre, 3. Niño")

        Dim opcion as integer

        Opcion= Console.ReadLine()

        Dim edad as integer

            Console.WriteLine("ingrese edad: ")

        edad = Console.ReadLine()

            If edad <=20 then

                niño

            end if

    End sub

    Private sub Niño()

        If imc >= 10 then

            Console.WriteLine("Bajo peso")

        end if

        If imc > 10 and imc <=85 then

            console.WriteLine("Peso normal")

        end if 

        If imc>85 and imc<=95 then

            console.WriteLine("Sobrepeso")

        End if

        If imc > 95  then

            console.WriteLine("Obesidad")

        End if

​

        End sub

End Module