Imports System.Console
Module Module1
    Dim gewicht, körpergröße, alter As Integer
    Dim bmi As Short
    Dim strGewicht, strGröße, strAlter As String
 
    Sub Main()
        WriteLine("Berechnung Ihres BMI (Body Mass Index)" & vbNewLine)
        WriteLine("Bitte geben Sie Ihr Gewicht in kg ein: ")
 
        Do While (IsNumeric(strGewicht) = False)
            strGewicht = ReadLine()
        Loop
        gewicht = CInt(strGewicht)
        WriteLine("Geben Sie bitte Ihre Größe in cm ein: ")
 
        Do While (IsNumeric(strGröße) = False)
            strGröße = ReadLine()
        Loop
        körpergröße = CInt(strGröße)
 
        WriteLine("Geben Sie bitte Ihr Alter ein: ")
        Do While (IsNumeric(strAlter) = False)
            strAlter = ReadLine()
        Loop
        alter = CInt(strAlter)
 
        WriteLine("Ihr BMI beträgt:")
        Try
            bmi = CShort(gewicht / ((körpergröße / 100) ^ 2))
            WriteLine(CStr(bmi) & vbNewLine)
            Select Case alter
                Case 18 To 24
                    Select Case bmi
                        Case 19 To 24
                            WriteLine("Ihr BMI-Wert is im normalen Bereich!")
 
                        Case Is < 19
                            WriteLine("Sie neigen zur Untergewichtigkeit!")
                        Case Is > 24
                            WriteLine("Sie neigen zur Übergewichtigkeit!")
 
                    End Select
                Case 25 To 34
                    Select Case bmi
                        Case 20 To 25
                            WriteLine("Ihr BMI-Wert ist im normalen Bereich!")
                        Case Is < 20
                            WriteLine("Sie neigen zur Untergewichtigkeit!!")
                        Case Is > 25
                            WriteLine("Sie neigen zur Übergewichtigkeit!")
                    End Select
                Case 35 To 44
                    Select Case bmi
                        Case 21 To 26
                            WriteLine("Ihr BMI-Wert ist im normalen Bereich!")
                        Case Is < 21
                            WriteLine("Sie neigen zur Untergewichtigkeit!!")
                        Case Is > 26
                            WriteLine("Sie neigen zur Übergewichtigkeit!")
                    End Select
                Case 45 To 54
                    Select Case bmi
                        Case 22 To 27
                            WriteLine("Ihr BMI-Wert ist im normalen Bereich!")
                        Case Is < 22
                            WriteLine("Sie neigen zur Untergewichtigkeit!!")
                        Case Is > 27
                            WriteLine("Sie neigen zur Übergewichtigkeit!")
                    End Select
                Case 55 To 64
                    Select Case bmi
                        Case 23 To 28
                            WriteLine("Ihr BMI-Wert ist im normalen Bereich!")
                        Case Is < 23
                            WriteLine("Sie neigen zur Untergewichtigkeit!!")
                        Case Is > 28
                            WriteLine("Sie neigen zur Übergewichtigkeit!")
                    End Select
                Case Is > 64
                    Select Case bmi
                        Case 24 To 29
                            WriteLine("Ihr BMI-Wert ist im normalen Bereich!")
                        Case Is < 24
                            WriteLine("Sie neigen zur Untergewichtigkeit!!")
                        Case Is > 29
                            WriteLine("Sie neigen zur Übergewichtigkeit!")
                    End Select
                Case Is < 18
                    WriteLine("Sie müssen volljährig sein um diesen BMI-Test" & _
                      "durchzuführen!")
                Case Else
                    WriteLine("Es ist ein Fehler aufgetreten!")
            End Select
            WriteLine(vbNewLine)
            WriteLine("Vielen Dank für Ihren BMI-Test!")
        Catch ex As Exception
            WriteLine("Ihr BMI konnte NICHT berechnet werden! Bitte starten sie" & _
              "das Programm neu!")
        End Try
        ReadLine()
        Read()
    End Sub
End Module