Imports System

Public Module Module1

    dim imc as double 

    Public Sub Main()

        Dim peso as integer 

        dim kg as double 

        dim estatura as double

        Console.WriteLine(" CALCULO DE INDICE DE MASA CORPORAL ")

        Console.WriteLine (" Ingrese su peso en Libras ")

        peso = Console.ReadLine()

        kg = peso / 2.2

        Console.WriteLine (" Ingrese su estatura ")

        estatura =  Console.ReadLine()

        'imc = kg / (estatura^2)

        imc = kg / (estatura * estatura)

        Console.WriteLine (" Su indice de masa corporal es:  " &imc )

        dim edad as integer

        Console.WriteLine("Ingrese edad: ")

        edad =  Console.ReadLine()

        if edad <= 20 then

            nino

        end if 

        if edad >20 and edad <= 65

        end if

    End Sub

    private sub nino()

        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("Sobre peso")

        end if 

        if imc>95 then

            Console.WriteLine("Obesidad")

        end if 

    end sub 

​

End Module