Imports System

​

Public Module Module1

​

    Dim height As Decimal

​

    Dim weight As Decimal

​

    Dim bmi As Decimal

​

    Dim status As String

​

    Public Sub Main()

        Console.WriteLine("BMI calculator")

        Console.WriteLine("Please enter your mass in kilograms")

        weight = Console.ReadLine()

        Console.WriteLine("Please enter your height in metres")

        height = Console.ReadLine()

        'the height and weight are output and input'

        bmi = weight / (height * height)

        'the BMI is calculated'

        If bmi < 18 Then

            status = "underweight"

        Else If bmi < 25 Then

            status = "normal"

        Else if bmi < 30 Then

            status = "overweight"

        Else

            status = "obese"

        End If

​

        Console.WriteLine("Your BMI is currently " & bmi)

        Console.WriteLine("You are currently " & status)

    'This tells you your BMI and whether you are, underweight, healthy, overweight or obese'

    End Sub

End Module

​