private sub command1_click()
txt1=input("请输入身高")
if not isnumeric(txt1) then
txt1=""
msgbox"非法输入，请重新输入！",16
exit sub
end if
txt2=input("请输入体重")
if not isnumeric(txt2) then
txt2=""
msgbox"非法输入，请重新输入！",16
exit sub
end if
end sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024