用Excel+VBA编写俄罗斯方块游戏.pdf

… … G姗 EPROGRAM … ．… ……… …… … ……… ………………………………………………… …… j 宴鼍 ¨¨ 用 gxcll 编写俄罗斯方块游爱 -- i 一 = i 。囊。 …鬻许社l瞎一 摘 要： “俄罗斯方块”作为一款经典的休 闲游戏在新鲜 出炉时就显得非常直观 ，虽然经过 了大量的变形和更改 ，但游戏核心依然保持不变 。文 中以Excel2007为游戏平 台．利用 VBA及Excel的功能和属性 ，详细地介绍了俄罗斯方块程序游戏编写过程。 关键词 ：Excel；VBA；俄罗斯方块 俄罗斯方块这款经典游戏可 以说是家喻户晓。游戏的概念 1 设置 人机界面 十分简单 ，游戏区域顶部随机落下各种形状各异的方块 ，玩家 要试图用它们拼成没有空隙的行并赢得分数 。俄罗斯方块验证 1．1 定义游戏 区域 了 “简单 的往往是最好的”这样一个道理 ．方块之 中似乎蕴藏 操作步骤 ： 着无穷 的魔力 ，至今仍经久不衰 ，相信现在还有不少人在闲暇 (1)选 中单元格 区域 E2：R25，共 24行 14列，此区域即 之余会玩上几把消遣一下 为方块 的活动范 围，当方块向上累计触及到 “TETRIS”工作 很多编程爱好者都 曾经编写过 自己的俄罗斯方块游戏 ，现 表 的第二行同时也是游戏 区域 的顶部时游戏结束 。 在将带领大家一步步实现一个 Excel版本 的俄罗斯方块。 (2)在编辑栏左端的 “名称 ”框 中键入名称 “GameArea” 图 1是实现的游戏界面 。 并按下 “Enter”键 。 (3)对 区域 “GameArea”左右两边 的列 以及 区域底部下 一 行单元格进行修饰美化 ，采用适当的颜色进行填充 ．这些区 域将用作方块的 “围墙 ”，注意一定要使用某种颜色进行填充 ． 因为这将是判断方块是否能够移动 的重要依据 ．具体判断方法 将会在下面详细介绍 。修饰结果如图2所示 。 图 1 Excel俄 罗斯方块 首先打开 Excel2007，新建一个T作簿并 将其保存为 Excel启用宏 的工作簿 ，文件名为 Excel俄罗斯方块．xlsm，并 将工作表 “Sheetl”重命名为 T“ETRIS”．作为游戏界面并调 整此丁作表中的列宽和行宽至合适大小并使其大小一致 ，因为 在游戏中单元格将被用来组成方块 ，如果大小不合适或不一致 对游戏 的效果影响很大 。本例 中游戏区域 的行宽和列宽都为 16像素大小。 图2 游戏 区域修饰结果 … … … … … … … ‘ ’ … … … ～ … … … … 一 … … … … … … ” 实用第一 智慧密集 ． 。 。 。 。 。 … 1．2 定义下一个方块 的显示区域 至此实现的游戏界面如图5所示 。 (1)选中单元格 区域 T15：W1