'定义蛇的运动速度枚举值

'定义蛇嘚运动方向枚举值

'定义运动区域4个禁区的枚举值

'定义蛇头及身体初始化数枚举值

'该过程用于显示游戏信息

'该过程用于使窗体恢复原始大小

'該过程用于重新开始开始游戏

'该过程用于暂停/运行游戏

'该过程用于显示游戏规则

"果子后蛇的身体会变长，越长难度越大祝您好运！！", 0 + 64, "遊戏规则"

'该过程用于显示游戏开发信息

'该过程用于拖动窗体_(点击图标)

'该共用过程用于处理窗体控制按钮组的相关操作_(锁定、最小化、退出)

'該过程用于设置蛇运动速度的快慢

'该过程用于通过键盘的方向键改变蛇的运动方向

'该计时循环过程用于计算游戏耗费的秒数并显示

'该计时循环过程用于控制蛇的行动轨迹

'确认蛇头的运动方向并获取新的位置

'根据新的位置绘制蛇头

'移动蛇身体其他部分的位置

'判断蛇在移动中是否到了禁区而导致游戏失败

'判断蛇在移动中是否碰到了自己的身体而导致游戏失败

MsgBox "您的蛇在移动中碰到了自己的身体，游戏失败！", 0 + 16, "BS贪食蛇"

'判断蛇是否吃到了果子

'累加玩家的得分并刷新得分显示

'该私有子过程用于初始化游戏

'定义蛇身第2节的数据

'定义蛇身第3节的数据

'定义蛇身第4節的数据

'该私有子过程用于返回获取的果子的位置和颜色信息

'该私有子过程用于加长蛇的身体

'备份蛇原先身体的数据并使蛇的身体加长

'将備份蛇身体的数据返回到加长的蛇身数组中

'写入新加入的身体数据

'该自定义函数用于返回运动的蛇是否到达禁区而导致游戏失败

'该自定义函数用于返回运动的蛇是否碰到自己的身体而导致游戏失败

'该自定义函数用于返回运动的蛇是否吃到了果子

'定义蛇的数据类型结构

'定义果孓的数据类型结构

t = 3  '表示蛇头此时的方向为3(不是这个位置上的方向变量)也就是朝上，作为一直在进行的计时器用到的一个参数

Public Sub hh()  '根据蛇尾的方向变量设定下一个蛇尾的位置然后把之前的方姠变量清零

大一时候学了vb这门课程，突然想做个玩玩弄了一下午，过程挺痛苦的毕竟才大一，代码写的也很臃肿吧不过那时出来了還是很有成就感的

最近学弟在学vb，就把代码注释了一下方便阅读，顺便发到这里