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

a=inputbox(\"请输入身高,米为单位\",\"测量身体指数\")

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

文章插图
b=inputbox(\"请输入体重,公斤为单位\",\"测量身体指数\")
t=b/(a^2)
【VB测量自己身体指数的代码?】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


    特别声明:本站内容均来自网友提供或互联网,仅供参考,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系,我们将在24小时内删除。