作者happyonly (谷野)
看板Visual_Basic
标题[VB6 ] 请教各高手了
时间Fri Mar 17 12:01:26 2006
拜托各位高手了 请问我错在那里
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
1F：推 fumizuki:你 And 打成 Or 了 03/17 12:40