Imports System

'EVALUACION UNIDAD 1'

'REALIZADO POR ALEJANDRO'

'NOVENO 2'

​

Public Module Module1

    Public Sub Main()

        Console.WriteLine("1. CALCULAR IMC")

​

        Console.WriteLine("3. CERRAR PROGRAMA")

            DIM OPCION AS INTEGER

        DIM P,IMC,A AS DOUBLE

            OPCION = CONSOLE.READLINE()

        SELECT CASE OPCION

        CASE=1

            Console.writeline("INGRESE ALTURA EN METROS")

            A = Console.Readline()

            Console.writeline("INGRESE PESO EN KILOGRAMOS")

            P = Console.Readline()

            IMC= (P)/A^2    

            Console.writeline("SU IMC ES "&IMC)

                        IF IMC <= 18.5 THEN

                    CONSOLE.WriteLine("BAJO PESO")

            END IF 

            IF IMC <= 18.5 AND IMC  <=24.9 THEN

                CONSOLE.WriteLine("ADECUADO")

            END IF 

                IF IMC <= 25.0 AND IMC  <=29.9 THEN

                CONSOLE.WriteLine("SOBREPESO")

            END IF 

                IF IMC <= 30.0 AND IMC  <=34.9 THEN

                CONSOLE.WriteLine("OBESIDAD 1")

            END IF 

                IF IMC <= 35.0 AND IMC  <=39.9 THEN

                CONSOLE.WriteLine("OBESIDAD 2")

            END IF 

                IF IMC >40  THEN

                CONSOLE.WriteLine("OBESIDAD 3")

            END IF 

            END SELECT

​

End sub

    End module