我想做一個BMI計算器，想套用一下case函數，但調試卻發現總是出現“case else”中的情況，無論計算結果是什么，一下便是我用的完整代碼，求解答：Private Sub Command1_Click()a = InputBox("請輸入您的身高（單位：米）", "輸入")b = InputBox("請輸入您的體重（單位：公斤）", "輸入")c = b / (a * a)text1.Text = cSelect Case cCase c < 18.5MsgBox ("消瘦，多吃點東西吧，別再減肥了！")Case 18.5 < c < 23.9MsgBox ("體重健康，繼續保持哦！")Case 24 < c < 27.9MsgBox ("稍微重了一點兒，飲食上多加注意，多做運動哦！")Case ElseMsgBox ("太重了，該減肥了")End SelectEnd Sub
2 回答
慕尼黑5688855
TA貢獻1848條經驗 獲得超2個贊
Select Case語句的使用格式不對，這樣修改就行了：
Private Sub Command1_Click()
a = InputBox("請輸入您的身高（單位：米）", "輸入")
b = InputBox("請輸入您的體重（單位：公斤）", "輸入")
c = b / (a * a)
Text1.Text = c
Select Case c
Case Is < 18.5
MsgBox ("消瘦，多吃點東西吧，別再減肥了！")
Case 18.5 To 23.9
MsgBox ("體重健康，繼續保持哦！")
Case 24 To 27.9
MsgBox ("稍微重了一點兒，飲食上多加注意，多做運動哦！")
Case Else
MsgBox ("太重了，該減肥了")
End Select
End Sub
海綿寶寶撒
TA貢獻1809條經驗 獲得超8個贊
case后邊應該是常量值而不是表達式。
下邊是一個例子
select case c
case 1
case 2
case 3
case else
end select
你的select case 應該改成if語句
if c<18.5 then
MsgBox ("消瘦，多吃點東西吧，別再減肥了！")
else
if c>18.5 and c<23.9 then
MsgBox ("體重健康，繼續保持哦！")
else
if 24 < c and c< 27.9 then
MsgBox ("稍微重了一點兒，飲食上多加注意，多做運動哦！")
else
MsgBox ("太重了，該減肥了")
end if
end if
end if
- 2 回答
- 0 關注
- 87 瀏覽
添加回答
舉報
0/150
提交
取消