用VB编程解得内弹道方程组,与实验结果比较。。。