VBA实现贪食蛇游戏

最新推荐文章于 2023-01-14 20:14:59 发布

Theo

最新推荐文章于 2023-01-14 20:14:59 发布

阅读量4.2k

点赞数 1

分类专栏： VBA 游戏文章标签： vba 游戏 excel

本文链接：https://blog.youkuaiyun.com/piao208/article/details/50103389

版权

本文介绍了如何使用VBA在Excel中实现一个20 x 20的游戏区域，包含游戏开始、停止和清空功能。通过PgUp和PgDn键调整游戏速度，Ctrl键暂停游戏。详细讲解了游戏的变量定义、事件处理以及蛇的移动和状态检查，最终实现一个完整的贪食蛇游戏体验。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

说明:
用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 '

最低0.47元/天解锁文章