Imports System

​

Public Module Module1

​

    Public Sub Main()

        'I'm asking the users for their height in centimetres and weight in cm'

        console.WriteLine("Please enter your height in centimetres")

        Dim height as integer

        height = console.ReadLine()

        console.WriteLine("Now please enter your weight in kilograms")

        Dim weight as integer

        weight = console.ReadLine()

        'I have added the formula needed to calculate the BMI into the code'

        Dim BMI as decimal

        BMI = weight / height / height * 10000

        'With the BMI info inputed, the code then gives an answer to the user on their BMI'

        select case BMI

            case is > 30

                console.WriteLine("You are obese!")

            case is >= 25

                console.WriteLine("You are overweight")

            case is >= 18.5

                console.WriteLine("You are healthy weight")

            case is < 18.5

                console.WriteLine("You are underweight!")

            End Select

End Sub

End Module