visual basicのプログラミングについて

質問

体重が標準体重の0.9倍以下の時は痩せすぎ、0.9倍を超えて、1.1倍以下の時は標準、1.1倍を超えた時は太りすぎと表示したいんですけど、できないんです。
Dim sintyo, taiju, hyojun As Integer
sintyo = Val(TextBox1.Text)
taiju = Val(TextBox2.Text)
hyojun = (sintyo - 100) * 0.9
Label5.Text = hyojun
Select Case taiju
Case taiju <= hyojun * 0.9
Label6.Text = "やせ過ぎ"
Case hyojun * 0.9 < taiju <= hyojun * 1.1
Label6.Text = "標準"
Case hyojun * 1.1 < taiju
Label6.Text = "太り過ぎ"
End Select
自分でこう入力したんですけど、label6が変化しません。わかる人がいたら至急回答お願いします。

回答No.1

TooManyBugs · ベストアンサー

Select Case の使い方が間違っているから意図するようには動きません。
Case文　の用法を確認すること。

お礼

なるほど、了解です。解答ありがとうございます！！