VB测量自己身体指数的代码？

来源：百度知道 编辑：UC知道 时间：2024/06/09 02:55:44
有教程最好啊～！
没有发下代码也行
谢谢拉！！！
就是体重除身高的二次方

a=inputbox("请输入身高,米为单位","测量身体指数")
b=inputbox("请输入体重，公斤为单位","测量身体指数")
t=b/(a^2)
msgbox("您的身体指数为" & t)
if t<18.5 then
msgbox("过轻")
else
if t>=18.5 and t<=22.9 then
msgbox("正常")
else
if t>=23 and t<=24.9 then
msgbox("超重")
else
if t>=25 and t<=29.9 then
msgbox("严重超重")
else
msgbox("痴肥")
end if
end if
end if
end if

测量自己身体指数？？