子弹动能计算
很久之前根据BBC的科普视频制作的。方便“看枪战片还喜欢较真”的人使用。复制代码，并另存为.VBS文件即可运行。'//默认是AK47的参数（7.62*39）m=inputbox("输入弹头质量（单位是克）：","","7.9")
v=inputbox("输入枪口初速（单位是米/秒）：","","710")
r=inputbox("输入子弹直径（单位是厘米）：","","0.762")
e=0.5*(cdbl(m)/1000)*(cdbl(v))^2
s=3.1415926535*((cdbl(r)/2)^2)
msgbox "弹头质量：" & m & "g" & vbcrlf &_
"枪口初速：" & v & "m/s" & vbcrlf &_
"子弹直径：" & r & "cm" & vbcrlf &_
"枪口动能：" & e & "J" & vbcrlf &_
"枪口每平方厘米动能：" & cstr(e/s) & "(J/cm^2)" & vbcrlf &_
"备注：在中国大陆，枪口动能比超过1.8(J/cm^2)的枪支被视为真枪。",,"子弹动能计算"根据计算结果立马可以看穿神剧。
页:
[1]