Vb游戏源代码

我有在EXCEL上发射炮弹的VBA代码，是我自己写的。我可以看到炮弹的弹道、爆炸、图像(先自己准备文件)，恢复后再发，适合小孩子玩。

副喷射轨迹时间函数()

有了时间值循环，语句就少了。

对于t = 0.1到30

选择。ShapeRange.IncrementLeft 20

h = 20 - 9.8 * t * t / 200

选择。形状范围

申请。wait now()+time value(" 00:00:1 ")'系统暂停1秒；

下一次测试

.....在此插入声音和图像效果。

末端接头

您可以在下面插入声音和图像效果以及状态恢复，以便于接下来的操作。

ActiveSheet。形状(“图片19”)。挑选

selection . shape range . increment top-280 # '展开，缩略图。

申请。wait now()+time value(" 00:00:1 ")'系统暂停1秒；

ActiveSheet。形状(“对象9”)。挑选

选择。有枪声。

申请。waitnow ()+timevalue ("00: 00: 2 ")'系统暂停2秒；

ActiveSheet。形状(“图片15”)。挑选

选择。ShapeRange。增量Top-280 #‘’依次爆炸展开。

申请。waitnow ()+timevalue ("00: 00: 3 ")'系统暂停1秒；

ActiveSheet。形状(“图片15”)。挑选

选择。ShapeRange。' Incrementtop280 # '撤消分解跟踪并重置图像。

ActiveSheet。形状(“图片19”)。挑选

选择。ShapeRange.IncrementTop 280#

活动工作表。形状(“图片6”)。选择“炮弹复位”。

选择。shape range . increment left-608.25

选择。shape range . increment top 177 #

末端接头