緊急求救 VB

Question

拜託各位高手了 請問我錯在那裡
Private Sub Command5_Click()
W = Val(InputBox(\"請輸入體重(0~1000)PS:請誠實輸入\"))
If W < 0 Or W > 1000 Then MsgBox (\"使用者非人類 請勿耍白\")
H = Val(InputBox(\"請輸入身高(0.5~3.5)單位公尺\"))
If H < 0.5 Or H > 3.5 Then MsgBox (\"都說不是人類請勿使用 還玩啥啦\")
BMI = Val(W / H ^ 2)
If BMI < 24.9 Or BMI > 18.5 Then
Print BMI; \"哇...恭喜啦 你是個身材標準的俊男美女喔\"
ElseIf BMI > 25 Or BMI < 30 Then
Print BMI; \"該克制一下了 有點過重了^^\"
ElseIf BMI > 30 Then
Print BMI; \"哇靠=.=不要再吃了...不然會變...你應該了解吧\"
ElseIf BMI < 18.4 Or BMI > 14# Then
Print BMI; \"有點太輕了...多吃一點吧@@..\"
Else
Print BMI; \"=..=多吃一點啦...不然會被風吹走喔0.0你這個紙片人 0rz\"
End If
End Sub

為何我值行出來的結果 不論BMI值是多少...
都會出現....哇...恭喜啦 你是個身材標準的俊男美女喔
這個答案阿@@\"...請教各位高手 如何依照我給的條件...
來出現結果呢? 感謝了~\"~..

Answer 1

'Or改成And就行,順便改成在輸入錯誤時要求重新輸入Private Sub Command5_Click()Do  b = False  W = Val(InputBox("請輸入體重(0~1000)PS:請誠實輸入"))  If W < 0 Or W > 1000 Then MsgBox ("使用者非人類 請勿耍白"): b = TrueLoop Until b = FalseDo  b = False  H = Val(InputBox("請輸入身高(0.5~3.5)單位公尺"))  If H < 0.5 Or H > 3.5 Then MsgBox ("都說不是人類請勿使用 還玩啥啦"): b = TrueLoop Until b = FalseBMI = Val(W / H ^ 2)If BMI < 24.9 And BMI > 18.5 Then   Print BMI; "哇...恭喜啦 你是個身材標準的俊男美女喔"ElseIf BMI > 25 And BMI < 30 Then   Print BMI; "該克制一下了 有點過重了^^"ElseIf BMI > 30 Then   Print BMI; "哇靠=.=不要再吃了...不然會變...你應該了解吧"ElseIf BMI < 18.4 And BMI > 14# Then   Print BMI; "有點太輕了...多吃一點吧@@.."Else   Print BMI; "=..=多吃一點啦...不然會被風吹走喔0.0你這個紙片人 0rz"End IfEnd Sub

Answer 2

下面的網址應該對你有幫助

http://phi008780508.pixnet.net/blog