Imports System

'APLICACION PARA CALCULO DE IMC

'REALIZADO POR ALICIA

Public Module Module1

    Public Sub Main()

        DIM PESO AS INTEGER

        DIM ESTATURA, KG AS DOUBLE

        DIM IMC AS DOUBLE

        'ENTRADAS

        Console.WriteLine("CALCULADORA DE IMC")

        CONSOLE.WriteLine("INGRESE EL PESO EN LIBRAS:  ")

        PESO = CONSOLE.ReadLine()

        '1KG=2.2LB

        CONSOLE.WriteLine("INGRESE ESTATURA EN METROS:  ")

        ESTATURA = CONSOLE.ReadLine()

        'PROCESOS

        KG = PESO/2.2

        IMC = KG/ESTATURA^2

        'RESULTADOS

        CONSOLE.WriteLine("EL PESO EN KG ES:  {0:F2}" ,KG)

        CONSOLE.WriteLine("LA ESTATURA EN METROS ES:  " &ESTATURA)

        CONSOLE.WriteLine("EL 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>=25 AND IMC <=29.9 THEN

            CONSOLE.WriteLine("SOBREPESO")

        END IF

        IF IMC>29.9 THEN

            CONSOLE.WriteLine("OBESIDAD")

        END IF

    End Sub

End Module