Como calcular o Índice de Massa Corporal em VB.NET - Como calcular IMC em VB.NET - Exercícios Resolvidos de VB.NET

Informe seu peso: 82
Informe sua altura: 1,85
Seu IMC é: 23.959094229364496
Sua classificação é Saudável

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' vamos solicitar o peso e a altura da pessoa
    Console.Write("Informe seu peso: ")
    Dim peso As Double = Double.Parse(Console.ReadLine())
    Console.Write("Informe sua altura: ")
    Dim altura As Double = Double.Parse(Console.ReadLine())

    ' vamos calcular o IMC
    Dim imc As Double = peso / (altura * altura)
    Console.WriteLine("Seu IMC é: " & imc)

    ' vamos mostrar a classificação
    If imc < 16 Then
      Console.WriteLine("Sua classificação é Magreza grave")
    ElseIf (imc >= 16) And (imc < 17) Then
      Console.WriteLine("Sua classificação é Magreza moderada")
    ElseIf (imc >= 17) And (imc < 18.5) Then
      Console.WriteLine("Sua classificação é Magreza leve")
    ElseIf (imc >= 18.5) And (imc < 25) Then
      Console.WriteLine("Sua classificação é Saudável")
    ElseIf (imc >= 25) And (imc < 30) Then
      Console.WriteLine("Sua classificação é Sobrepeso")
    ElseIf (imc >= 30) And (imc < 35) Then
      Console.WriteLine("Sua classificação é Obesidade Grau I")
    ElseIf (imc >= 35) And (imc < 40) Then
      Console.WriteLine("Sua classificação é Obesidade Grau II")
    Else
      Console.WriteLine("Sua classificação é Obesidade Grau III (mórbida)")
    End If

    Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub
End Module