我想做一个BMI计算器，想套用一下case函数，但调试却发现总是出现“case else”中的情况，无论计算结果是什么，一下便是我用的完整代码，求解答：
Private Sub Command1_Click()
a = InputBox("请输入您的身高（单位：米）", "输入")
b = InputBox("请输入您的体重（单位：公斤）", "输入")
c = b / (a * a)
text1.Text = c
Select Case c
 Case c < 18.5
MsgBox ("消瘦，多吃点东西吧，别再减肥了！")
Case 18.5 < c < 23.9
MsgBox ("体重健康，继续保持哦！")
Case 24 < c < 27.9
MsgBox ("稍微重了一点儿，饮食上多加注意，多做运动哦！")
Case Else
MsgBox ("太重了，该减肥了")
End Select
End Sub

Dim a, b, c As Single
Private Sub Command1_Click()
a = CSng(InputBox("请输入您的身高（单位：米）", "输入"))
b = CSng(InputBox("请输入您的体重（单位：公斤）", "输入"))
c = b / (a * a)
Text1.Text = c
If c < 18.5 Then
MsgBox ("消瘦，多吃点东西吧，别再减肥了！")
ElseIf 18.5 < c and c < 23.9 Then                    vb不可以这种写法a<c<b，要拆开
MsgBox ("体重健康，继续保持哦！")
ElseIf 24 < c and c < 27.9 Then
MsgBox ("稍微重了一点儿，饮食上多加注意，多做运动哦！")
Else
MsgBox ("太重了，该减肥了")
End If
End Sub

select case语句你理解错了。
例如：
select  case  a          这里a可以是条件语句或者是变量。
case 1                   这里1表达的是a的值，，而不是条件语句。
。。。。。
case 2
。。。。。
end select

case is <18.5
case is <23.9
case is <27.9
case else

这种写的话，一定要小的数字写到前面，大的数字写到后面。

Private Sub Command1_Click()
a = InputBox("请输入您的身高（单位：米）", "输入")
b = InputBox("请输入您的体重（单位：公斤）", "输入")
c = b / (a * a)
Text1.Text = c
Select Case c
Case Is < 18.5
MsgBox ("消瘦，多吃点东西吧，别再减肥了！")
Case Is < 23.9
MsgBox ("体重健康，继续保持哦！")
Case Is < 27.9
MsgBox ("稍微重了一点儿，饮食上多加注意，多做运动哦！")
Case Else
MsgBox ("太重了，该减肥了")
End Select
End Sub