vbs未来身高预算器
代码：
a=inputbox ("请问你的性别是什么?输入1代表男,输入2代表女。"&vbcrlf&""&vbcrlf&"请注意:"&vbcrlf&""&vbcrlf&"预算性别为男的身高时,第一次出现输入父亲、母亲身高时,请如实填写再按确定,再出现输入父亲身高时,请输入1按确定!"&vbcrlf&""&vbcrlf&"预算性别为女的身高时,第一次出现输入母亲的身高时,输入1按确定,再出现输入父亲、母亲身高时,请如实填写再按确定!")
if a=1 then
i=inputbox ("请输入你父亲的身高,单位:厘米","请输入非零正数")
end if
if i=i then
end if
o=inputbox ("请输入你母亲的身高,单位:厘米","请输入非零正数")
if o=o then
end if
msgbox "你未来的身高大约为" & (i*1.08+o*1.08)/2 & "厘米"
if a=2 then
q=inputbox ("请输入你父亲的身高,单位:厘米","请输入非零正数")
end if
if q=q then
end if
w=inputbox ("请输入你母亲的身高,单位:厘米","请输入非零正数")
if w=w then
end if
msgbox "你未将来的身高为" & (q*0.923+w)/2 & "厘米"
下载附件后请打开：未来身高预算器.zip>未来身高预算器.vbs 没有压缩软件请下载：
http://download.haozip.com/haozip_v2.4.exe附件：
用户系统信息：Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US) AppleWebKit/534.3 (KHTML, like Gecko) Chrome/6.0.472.33 Safari/534.3 SE 2.X MetaSr 1.0
