[求助] 各位进来帮我一下，好吗？

Question

大家能帮我修改一下代码吗？ 最好能在这个代码的基础上修改 ,因为这个我能看懂，当然如果这个代码修改不了，其他的也可以啦，最好注释多点的，简单易懂的
压缩文件里有个.exe文件，那个贪吃蛇的功能正是我需要的，可是没有源代码现在程序有2个问题：
1.当第一次游戏开始,gameover后，再次开始游戏时，那个食物的位置不是随机的，而是gameover时 食物的位置
2.还有就是，当头碰到身体时，gameover后，出现的是，头和碰到身体的那个部位形成的矩形，可是尾的那部分却没有了另外还需要的就是能设置 初始速度、身体的长度的确这是我的作业，也是最后的作业了，可是我不会，也没时间去研究它，马上要会计考试了，我要去准备会计方面的考试了，希望大家能帮我一下
各位进来的，如果会的话请帮我一下好吗？不会的话，那就请帮我顶一下帖子啦，先谢谢大家了
怎么上传文件老是提示：文件打不开呀？

Answer 1

初始速度改timer就可以了。每次蛇长大了就改快一点timer的值。

Answer 2

这里的附件不会上传，
我把它放在邮箱里了，[email protected]      密码：tanchishe

Answer 3

第一个问题
private isPause as Boolean
.
.
.
Private Sub GameStart_Click()'加这一句用来重置食物.isPause是Boolean,用来记录是否为暂停。即如果不是暂停后再开始就重置食物。
If Not isPause Then bean'加这句恢复暂停状态
isPause = False 
.
.
.
End Sub第二个问题Public Sub Timer1_Timer()
Dim isOver As Boolean '加这句用来记录是否相撞.
.
.
For n = 1 To UBound(s, 2)
    Line (s(0, n) * k + 2 + z, s(1, n) * g + 2 + d)-((s(0, n) + 1) * k - 2 + z, (s(1, n) + 1) * g - 2 + d), 255, BF
    If s(0, 0) = s(0, n) And s(1, 0) = s(1, n) Then isOver = True '将over改为isOver=True，不退出继续画蛇体.
Next
.
.
.
End Sub
初始速度改timer就可以了。每次蛇长大了就将timer的Interval值改小一点

Answer 4

以上第二个问题补充
在
for...next
后加一句
If isOver Then over

Answer 5

1.在暂停按钮中增加一句,上贴漏贴了
isPause=True
2.将
Public Sub Timer1_Timer()
中的over都改为 isOver = True。

Answer 6

已经解决了，因没法传附件，请到以下下载V1版，非V1版不要下，传错了
http://download.csdn.net/user/jxh2003zfr