测试你的身体健康指数

im a, b, c, gender, x, name
name=inputbox("请输入你的姓名： ","输入姓名")
gender= msgbox("你是帅哥吗？"& vbnewline &vbnewline & _
"如果是男的， 你就是帅哥，请选“是（Y)” " & vbnewline & _
"如果是女的， 你就是美女， 你就选“否(N)”",vbYesNo,"帅哥还是美女")
a= inputbox("请输入你的身高（米）：","输入身高")
if a="" or a>2.5 then
msgbox "没有身高数据或身高数据异常，无法继续. 计算将结束",,"身高数据为空"
wscript.quit
end if
b=inputbox("请输入你的体重（公斤）：","输入体重")
if b="" or b <10 then
msgbox "没有体重数据或体重异常，无法继续. 计算将结束",,"体重数据为空"
wscript.quit
end if
c= Round(b/a/a,1)
If gender= vbno and c<18 then
x ="偏瘦， 注意营养，有些瘦，现在的审美观点来说，你就是苗条美女， 骨感美人，skimmy "
Elseif gender= vbno and c>18 and c<22 then
x ="标准体重， 不胖不瘦， 保持就好， 你是标准美女， "
Elseif gender= vbno and c>22 and c<26 then
x ="微胖美女， 肥而不腻，soft and smooth "
Elseif gender= vbno and c>26 then
x ="胖胖美女， 肥有肥的好处， 冬天不冷，但是很衣服不好买哟！damn fat lady "
Elseif gender= vbyes and c<18 then
x ="苗条师哥， 骨感美人，skimmy "
Elseif gender= vbyes and c>18 and c<22 then
x ="偏瘦， 注意营养，有些瘦，现在的审美观点来说，你就是标准师哥， 不胖不瘦，testful "
Elseif gender= vbyes and c>22 and c<26 then
x ="微胖师哥， 肥而不腻，soft and smooth "
Elseif gender= vbyes and c>26 then
x ="胖胖师哥， 肥有肥的好处， 冬天不冷，但是衣服不好买哟！死胖子女人 "
End if
msgbox name &"， 你的健康指数是：" & c & vbnewline & vbnewline & x,,"测试结果"