Imports System

'aplicacion para el calculo de indice de masa corporal

'realizado por max reyes

​

Public Module Module1

    Public Sub Main()'Declaración de variables

        dim peso as integer

        dim estatura, kg as double

        dim imc as double

        'Entradas

        Console.WriteLine("calculadora de IMC")

        console.WriteLine("ingrese peso en libras")

        peso = console.ReadLine()

        'Determinar 1kg = 2.2 libras

        console.WriteLine("ingrese estatura en metros: ")

        estatura = console.ReadLine()

        'Procesos

        kg = peso /2.2

        imc = kg /estatura ^2

        'Salidas = Mostrar los resultados

        console.WriteLine("El peso en kg es:  [0:F2]" &kg )

        console.WriteLine("La estatura en metros es: "   &estatura)

        console.WriteLine("IMC es:  [0:F1]" , imc)

        'calculo de intervalos

        If IMC < 18.5 then

            console.WriteLine("Bajo peso")

        end if

        If IMC >= 18.5 and IMC <= 24.9 then

            console.WriteLine("Peso normal")

        End if

        If IMC >= 24 and imc <=29.9 then

            console.WriteLine("Sobrepeso")

        End if

        if IMC >29.9 then

            console.WriteLine("Obesidad")

        End if

    End Sub

End Module