你参考参考吧。
这个程序里采取的是二次缓冲绘图，所以不会闪。我没加计分啥情况的。
还有碰撞检测还有点问题，可能是因为绘图就没绘好的原因。
感觉绘图半径的线的大小需要再仔细琢磨一下。

[此贴子已经被作者于2016-5-26 21:32编辑过]

风版事实上不需要那么麻烦再替我写个工程的，我只是需要一点建议，我可不是什么伸手党，您这样反而会让我过意不去的……真是麻烦了……
另外，您的工程我看了一下，借鉴作用有，但是不算很大。您的工程的算法有些不大一样，同时也没有解决我最重要的问题：程序卡顿问题
我把我的工程源文件发上来吧，您如果不嫌麻烦的话看一下吧，测试一下我的工程，看一下程序结果，然后在此基础上提一点加快程序运行速度的建议吧

我不是对您的方案否定，只是您的方案不适合我罢了……

以下是源文件

看了你的代码，
其他都没啥问题，关键就是在 显示部分。
使用控件来进行动画，肯定慢的。你的代码，说实在的，我无从下手改造。

还是建议你按我的显示方案改造，我的代码里，我是偷懒只用一个二维数组保存，按规范应该使用一个结构体。
这个结构的定义包括以下内容：
X
Y
移动速度
半径
生存周期
点颜色

如果每个点不一样的大，移动速度不一样
那么后面这4个属性都可以定义。然后绘图时使用上，以达到不同的点不同的大小和速度。

1、注销掉Debug.Print Movement语句，print很耗时的。
2、在next i语句前加句doevents，这样至少移动空心球不会卡顿。
3、再scalemode为twip的情况下，移动的距离最好是15的倍数，这正好是屏幕上的一个点，你移动的是20，则会在转换为屏幕的点坐标时产生小数，导致移动不均匀。

[此贴子已经被作者于2016-5-27 21:22编辑过]

谢谢，我立刻去试试看

14L的方案测试过了，注销Debug语句后在编译环境中速度略微快了一点，但是依然会在150个点以上时卡顿
Next i语句前加了Doevents，解决了大的点的闪烁问题
移动距离更换为15后，基本没有影响，个人认为是因为我有一句代码已经注定了不可能让移动距离为整数：

If Movement = 0 Then Movement = 1
If Shape1.Top > Shape(i).Top Then
  Shape(i).Top = Shape(i).Top + 15 / Movement
ElseIf Shape1.Top < Shape(i).Top Then
  Shape(i).Top = Shape(i).Top - 15 / Movement

我最近思考得出了一点结果，我觉得导致程序速度不佳的一个原因很可能是在Timer1里面：
我使用了For循环，而For循环是在一个Timer里的，这就导致随着点的增多，Timer的运行速度会越来越慢。
个人解决方案：编写一个算法，判定当点的数量大于X时，启用某个Timer，就是每个Timer仅仅处理50个点的移动。
但是算法还没想出来，正在努力思考中，先把我的想法发上来，如果大家发现我的想法有误也可以即使告诉我，让我不用在岔路上越走越远。

用vb的控件或普通作图语句是完成不了多元素作图的，因为在一定的时间片断内完成不了全屏刷图，卡顿是肯定的。实际上即使用api的bitblt函数刷我现在的这个1680*1050的屏幕也只有每秒4帧左右的刷屏速率，实际游戏处理多元素图形时，同样面临刷新速率跟不上的问题，一般的解决办法是采取分层处理手段或仿真手段，具体做法是游戏数据运算实际是在数组矩阵中完成，往屏幕上显示则是实时刷敌我关系最近的几个元素，其他元素则刷的过来就刷，刷不过来就丢弃，反正不影响实际战斗结果。

谢谢大家的帮助，我先把帖子结了，到时候另外启一个帖子继续讨论吧