摘 要：扫雷是一款windows用户很熟悉的小游戏，笔者分析了基于VB制作的扫雷游戏的过程，阐述各模块的主要功能，演示了游戏运行的效果。

关键词：VB；扫雷游戏

中图分类号：TP311.52

为了提高学生的学习兴趣，本人尝试在VB教学中用游戏实例来把各项知识点融入进去，扫雷程序是windows系统自带的小游戏，我们可以用VB软件设计出跟它类似的游戏。

1 扫雷游戏程序需求与流程规划

此游戏主要功能如下：

（1）处理游戏界面（地雷区、计时器、地雷计数器）等相关图形的处理。

（2）地雷的个数由随机数决定。

（3）游戏玩家打开方格是，检查方格属性属于地雷方格，临近地雷方格还是空白方格。

2 此款游戏设计的主要组件及语法

表1

组件及语法 说明

For...Next 利用循环布置地雷区、按下时检查非地雷方块

Mousedown与Mouseup事件 判断按下或放开方块时的按键为左键或右键

Imagelist组件 存储游戏过程中所需的图案

Image组件 利用此显示地雷方块

Timer组件 设定触发时间，来控制方块游戏时间

PictureBox組件 利用此组件作为地雷方块的布置区域

递归 利用递归展开非地雷的方块

3 主窗体设计

图1

主窗体界面设置说明如下：

（1）地雷数显示区（PictureBox）。

（2）游戏的状态显示（Image）。

（3）经过时间显示区（PictureBox ）。

（4）地雷区（PictureBox）。

（5）计时控制（timer）

（6）用来加载图形资源3个imagelist对象。

4 程序运行界面

图2

5 主要程序代码

Public Sub showReMines（reMineNum As Integer）

If reMineNum>=0 Then

Set Form1.mineCountImage1.Picture=_

Form1.countIList.ListImages（reMineNum＼100+1）.Picture

Set Form1.mineCountImage2.Picture=_

Form1.countIList.ListImages（（reMineNum Mod 100）＼10+1）.Picture

Set Form1.mineCountImage3.Picture=_

Form1.countIList.ListImages（reMineNum Mod 10+1）.Picture

Else

Set Form1.mineCountImage1.Picture=_

Form1.countIList.ListImages（11）.Picture

Set Form1.mineCountImage2.Picture=_

Form1.countIList.ListImages（（（reMineNum* -1）Mod 100）＼10+1）.Picture

Set Form1.mineCountImage3.Picture=_

Form1.countIList.ListImages（（reMineNum*-1）Mod 10+1）.Picture

End If

End Sub

6 结束语

通过本款游戏程序的制作，学生能把所学的VB知识运用到实践中，提高了独立思考和动手能力。

参考文献：

[1]杨忠宝，康顺哲.VB语言程序设计教程[M].北京：人民邮电出版社，2010.

[2]刘炳文.Visual Basic程序设计……