[VB6 ] 請教各高手了
拜託各位高手了 請問我錯在那裡
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值是多少...
都會出現....哇...恭喜啦 你是個身材標準的俊男美女喔
這個答案阿@@"...請教各位高手 如何依照我給的條件...
來出現結果呢? 感謝了~"~.
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.175.169.97
推
03/17 12:40, , 1F
03/17 12:40, 1F
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
