VBA实现贪食蛇游戏

说明:
用excel画出20 x 20的区域，
添加三个按钮：游戏开始，游戏停止，清空按钮
游戏快捷键：
按PgUp按键，加快速度
按PgDn按键：减慢速度
按Ctrl按键：游戏暂停

变量定义：

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Dim mystop As Integer '开关
Dim MoveDir As String '移动方向

Dim CST_Area_X As Integer ' 画布大小 x
Dim CST_Area_Y As Integer '画布大小 y

Dim Pos_X As Integer '当前位置 行
Dim Pos_Y As Integer '当前位置 列

Dim snake_body As Collection

Dim game_map(22, 22) As Integer '画布状态
Dim offset_x As Integer   '画布偏移x
Dim offset_y As Integer

Dim eat_flg As Integer '食物是否被吃掉 标识
Dim food_x  As Integer '食物坐标
Dim food_y As Integer

Dim snake_length As Integer '蛇的长度

Dim snake_speed As Integer '蛇运行速度

Dim stop_flg As Integer '游戏暂停 标识

’游戏开始按钮

Private Sub START_Click()
    '游戏参数初始化
    Call Game_init
    
    '添加第一个食物
    Call giveFood
    
    '游戏开始
    Call GameStart
    
End Sub

'开始按钮按下后，触发的监控事件

Private Sub START_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    '判断按下的按键，上下左右中哪一个
    Select Case KeyCode
        Case 37 'left pressed
            MoveDir = "Left"
        Case 38 'up pressed
            MoveDir = "Up"
        Case 39 '