Imports System

'REALIZADO POR: JOSE ZAMORA

Public Module Module1

    Public Sub Main()

        DIM PESO,KILOGRAMOS,ESTATURA, IMC AS DOUBLE

        Console.WriteLine("CALCULADORA ED INDICE DE MASA CORPORAL")

        CONSOLE.WriteLine("INGRESE PESO EN LIBRAS")

        PESO=CONSOLE.ReadLine()

        KILOGRAMOS = PESO/2.2

        CONSOLE.WriteLine("INGRESE ESTATURA EN METROS")

        ESTATURA=CONSOLE.ReadLine()

        IF PESO > 0 AND ESTATURA > 0 THEN

            IMC = KILOGRAMOS/(ESTATURA^2)

            CONSOLE.WriteLine("EL INDICE DE MASA GRASA CORPORAL ES: {0}",IMC)

        ELSE 

            CONSOLE.WriteLine("NO SE PERMITE EL INGRESO DE CERO, INTENTE DE NUEVO")

        END IF

        IF IMC<18.5 THEN

            CONSOLE.WriteLine("PESO INFERIOR AL NORMAL")

        END IF 

        IF IMC>=18.5 AND IMC <25 THEN

            CONSOLE.WriteLine("PESO NORMAL")

        END IF

        IF IMC >=25 AND IMC <30 THEN

            CONSOLE.WriteLine("PESO SUPERIOR AL NORMAL")

        END IF

        IF IMC >=30 THEN

            CONSOLE.WriteLine("OBESIDAD")

        END IF

    End Sub

End Module

​

​