子弹动能计算

Tesla.Angela

很久之前根据BBC的科普视频制作的。方便“看枪战片还喜欢较真”的人使用。复制代码，并另存为.VBS文件即可运行。

1. '//默认是AK47的参数（7.62*39）
   
2. m=inputbox("输入弹头质量（单位是克）：","","7.9")
   
3. v=inputbox("输入枪口初速（单位是米/秒）：","","710")
   
4. r=inputbox("输入子弹直径（单位是厘米）：","","0.762")
   
5. e=0.5*(cdbl(m)/1000)*(cdbl(v))^2
   
6. s=3.1415926535*((cdbl(r)/2)^2)
   
7. msgbox "弹头质量：" & m & "g" & vbcrlf &_
   
8.         "枪口初速：" & v & "m/s" & vbcrlf &_
   
9.         "子弹直径：" & r & "cm" & vbcrlf &_
   
10.         "枪口动能：" & e & "J" & vbcrlf &_
    
11.         "枪口每平方厘米动能：" & cstr(e/s) & "(J/cm^2)" & vbcrlf &_
    
12.         "备注：在中国大陆，枪口动能比超过1.8(J/cm^2)的枪支被视为真枪。",,"子弹动能计算"

复制代码

根据计算结果立马可以看穿神剧。