巨獸 逆襲

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim BMI As Single
        BMI = (TextBox2.Text / ((TextBox1.Text / 100) ^ 2))
        Label3.Text = "指數:" & CInt(TextBox2.Text / ((TextBox1.Text / 100) ^ 2))
        Select Case BMI
            Case Is < 18.5
     

          Label4.Text = "評語:體重過輕"
            Case Is < 24
                Label4.Text = "評語:體重正常"
            Case Is < 27
                Label4.Text = "評語:體重過重"
            Case Is < 30
                Label4.Text = "評語:體重過胖"
            Case Is < 35
                Label4.Text = "評語:體重過胖胖"
        End Select
    End Sub
End Class