VB写扫雷：从零开始其实不难

很多人一听到用VB写小游戏，第一反应就是“这也太老土了吧”。但真要说上手容易、逻辑直观，VB做扫雷这种经典小游戏，其实特别合适。我自己当年就是用VB写了个扫雷，才真正搞懂了什么叫数组、什么叫随机、什么叫递归。今天就把这套思路拆开了讲。

先说界面。扫雷最核心的东西是一张方块格子，VB里最简单的做法是直接用控件数组。比如一个9乘9的网格，放81个CommandButton，代码里用Load语句把它们生成出来，然后按行列排好。这一步没什么技巧，纯粹是体力活，但能让你对控件数组有特别直观的体会。每个按钮的Index属性就是格子的编号，0到80，用行号和列号相互换算一下就转过来了。

地雷的布置要用到随机数。VB里有Rnd函数，但要注意先加上Randomize，不然每次运行生成的雷位都一样，那就没法玩了。生成雷的时候，可以写一个简单的循环，随机选一个编号，如果格子没雷就放上去，直到放满设定好的雷数。这里有个小坑，随机数有概率重复选到同一个格子，所以循环里的判断必不可少。我当年就因为这个，调试的时候发现雷总是少几颗，折腾了半天才反应过来。

接下来是统计周边雷数。这块是扫雷的核心逻辑，也是最能体会到编程乐趣的地方。对于任意一个格子，要看它周围8个方向有没有雷，然后累加数字。最笨的办法是写8个if判断，但那样代码又长又容易漏。其实用一个双层循环就解决了，从行减一到行加一，从列减一到列加一，再判断一下有没有越界，没有越界且是雷的话，计数器就加一。这段逻辑写好了，整个游戏就完成了一半。

然后是点击的处理。鼠标左键点开格子的时候，如果点到的是雷，游戏结束，把所有雷显示出来。如果点到的是数字格，那就只翻开这一格。最有趣的是点到空格子，这时候要把周围一圈都为空的区域全部展开，这就得用到递归了，也就是让函数自己调用自己。点开一个空格，检查它周围的8个格子，如果发现邻居也是空格，就递归调用同一个函数去处理那个邻居。这个层层扩散的感觉，写出来之后特别爽，运行的时候看着一片空白呼啦啦展开，成就感很强。当然，递归要注意出口条件，不然就会栈溢出，程序直接卡死，这是新手最容易翻车的地方。

还要记得处理右键插旗。扫雷嘛，玩家得能标记可疑的雷。鼠标右键点击时，切换那个按钮的标题，放一面旗子，同时防止左键误点到。这个逻辑在VB里用Button参数判断一下是左键还是右键就能区分开。旗子放上以后，左键点击要直接跳过，确保不会误翻开。

胜利的判断也不能忽略。每翻开一个非雷格子，计数器加一，当翻开的数量等于总格子数减去雷数，那游戏就算通过了。这时候弹个消息框，恭喜一下玩家，顺便问一下要不要再来一局。重开的时候要记得把所有按钮的状态重置，标题清空，背景图恢复，雷重新洗牌。

界面美化就看个人喜好了。VB默认的灰色按钮虽然经典，但确实谈不上好看。你可以给标题栏换个文字，按钮上放点表情符号，或者用背景色来表示数字格和未打开格的区别。数字的字体大小也可以调一调，让1到8这八个数字显示得更清楚一些。不过这些都是锦上添花，先确保逻辑跑通，再去折腾外观。

最后说一句，扫雷这种小游戏，代码量不大，但麻雀虽小五脏俱全，数组操作、随机数、事件驱动、递归思想全都能练到。写一遍，你对VB的理解绝对会上一个台阶。别怕代码写得丑，先跑起来，再慢慢改，学习编程本来就是这么回事。