Imports System

​

Public Module Module1

​

    Public Sub Main()

        'these are the variables i have in the code

        dim weight, height, bmi as decimal

        dim choice, bmis as string

        'I have added an Imperial and Metric system to my caclulator

        console.writeline("Imperial or metric system for height and weight?")

        choice = console.ReadLine()

        'If their choice is "Imperial" then they get the pounds and feet version.

        if choice = "Imperial" then

            console.WriteLine("Enter your weight in pounds.")

            weight = console.ReadLine()

            console.WriteLine("Enter your height in feet.")

            height = console.ReadLine()

            'this is the formula for bmi in vb.net, weight divided by height sqaured

            bmi = weight / (height * height)

            'this is showing the bmi meaning

            if bmi <= 15

                bmis = "severly underweight"

            else if bmi < 18.5 Then

                bmis = "underweight"

            Else If bmi < 25 Then

                bmis = "average/normal weight"

            Else if bmi < 30 Then

                bmis = "overweight"

            Else if bmi <= 39

                bmis = "obese"

            Else

                bmis = "morbidly obese"

            end if

        else

            'Metric version

            if choice = "Metric" then

                console.WriteLine("Enter your weight in Kilograms.")

                weight = console.ReadLine()

                console.WriteLine("Enter your height in Meters.")

                height = console.ReadLine()

                'formula

                bmi = weight / (height * height)

                'bmi meaning

                if bmi <= 15

                    bmis = "severly underweight"

                else if bmi < 18.5 Then

                    bmis = "underweight"

                Else If bmi < 25 Then

                    bmis = "average/normal weight"

                Else if bmi < 30 Then

                    bmis = "overweight"

                Else if bmi <= 39

                    bmis = "obese"

                Else

                    bmis = "Morbidly obese"

                End If

            end if

        end if

​

        ' these show the bmi and the meaning of the bmi at the end

        console.WriteLine(" Your BMI is                  :  " & bmi)

        console.WriteLine("  And you are  :  " &bmis)

    End Sub

End Module

​