【用EXCEL编写俄罗斯方块小游戏（基于VBA）】

工作属性原因，工作中使用excel办公是常态。前一阵子因工作业务需求，需要用到VBA。研究了一阵子VBA，解决了当时的需求。
后来想想，VBA可以如此彻底的控制excel，那么可不可以编个小游戏呢。
说干就干，先拿与表格最像的俄罗斯方块试试手。

预览成品效果 （文末附下载地址┗( ▔, ▔ )┛）

第一步：准备工作

首先，俄罗斯方块游戏需要完成哪些工作。

1. 设置游戏窗口大小：俄罗斯方块游戏窗口大小为横10个方格、竖20个方格。
2. 设置可变形方块元素：俄罗斯方块一共7种不同样式的方块。
3. 设置游戏交互：俄罗斯方块有4种操作：，左移方块、右移方块、方块加速下落、方块变形。
4. 保持游戏正常进行：随机形状方块下落，至底部或遇到方块后停止。任意行方块满行则分数+100，此行消除。方块堆满窗口游戏结束。

第二步：分步解决

（一）设置游戏窗口

设置游戏窗口大小及外观，对于有着多年做表经验的我来说，简直是信手拈来。（原来编游戏如此简单，这么快就完成了第一步。休息一天O(∩_∩)O哈哈~）

（二）初始化游戏各对象

设计思路：标准的俄罗斯方块共有7个方块，分别是“一”、“J”、“L”、“T”、“S”、“Z”、“田”。
我们注意到每个不同形状的俄罗斯方块均有4个方格，我们选取其中一个作为形状的旋转中心，并通过相对中心的偏移坐标储存不同方块。

	shape_0 = Array(Array(0, 0), Array(0, 1), Array(0, -1), Array(0, 2)) '初始化长方块
    shape_1 = Array(Array(0, 0), Array(0, 1), Array(0, -1), Array(-1, 1)) '初始化L1方块
    shape_2 = Array(Array(0, 0), Array(0, 1), Array(0, -1), Array(-1, -1)) '初始化L2方块
    shape_3 = Array(Array(0, 0), Array(0, 1), Array(0, -1), Array(-1, 0)) '初始化T方块
    shape_4 = Array(Array(0, 0), Array(0, 1), Array(-1, -1), Array(-1, 0)) '初始化Z方块
    shape_5 = Array(Array(0, 0), Array(0, -1), Array(-1, 1), Array(-1, 0)) '初始化S方块
    shape_6 = Array(Array(0, 0), Array(-1, 0), Array(-1, -1), Array(0, -1)) '初始化田方块
    shape_base = Array(shape_0, shape_1, shape_2, shape_3, shape_4, shape_5, shape_6) '所有方块数据存入数组

通过数组嵌套（非三维数组）完成方块坐标数据的存储。
随机产生0–6的随机数，根据随机数选取方块坐标数据。以焦点坐标为中心利用Offset函数偏移出四个range单元格，使用Union函数连接四个range单元格生成。然后对方块着色并加边框。 并对当前方块的下壁碰撞值赋值（用于碰撞检测，判定方块是否到底或者已落至某一方块上方）。

Sub draw_shape(s_n_can, s_s_x, s_s_y)'画出随机方块过程   
    Set drop_rng_focus = Cells(s_s_x, s_s_y) '传入焦点方块X,Y
    Set b_rng_can = Cells(s_s_x, s_s_y)
    Set p_rng_can = b_rng_can
    For dr_i_2 = 0 To UBound(shape_base(s_n_can))
        off_x_can = shape_base(s_n_can)(dr_i_2)(0)
        off_y_can = shape_base(s_n_can)(dr_i_2)(1)
        Set p_rng_can = Union(p_rng_can, b_rng_can.Offset(off_x_can, off_y_can))'偏移并连接单元格
    Next
    p_rng_can.Interior.ColorIndex = shape_color(s_n_can