【VB开源代码栏目提醒】：网学会员在VB开源代码频道为大家收集整理了“扫雷VB程序设计思路 - 计算机教材“提供大家参考，希望对大家有所帮助!

1、画网格线 2、随机在网格里撒雷，1表示网格有雷，0表示没有，用二维数组保存 3、判断鼠标按在哪个网格上，然后读取二维数组，累加得出被点击的网格的周围的雷数量，并做一些效果比如在网格上显示雷数量，用什么颜色显示 4、如果鼠标按的那个网格没有雷，则程序必须自动把该网格的上下左右的网格也翻开，假如还是没有雷，再翻开...直到有雷或者达到了边界。

    这里涉及到用递归，返回条件就是某个网格四周终于有雷或则达到了边界。

     5、再加入一些效果。

    比如鼠标按下和松开显示什么，比如LED倒数灯等，都比较容易实现。

     以下是一些具体的设计思路： 点击右键就插旗红色表示 单击边框处就自动显示所有雷. 这个小游戏关键的技术有两点第一怎么放置雷第二点击时怎么判断这个是不是雷以及边上有几个雷. 好现在大家跟着我一起慢慢来做建一个VB程序这个不用我说吧 画一个timer控件设置时间间隔为1000 调整大小画上两个Picture box用来当容器如图Picture text Command 在 Picture 1 上画上两个 text 用来当雷总数和计时器 还要画上一个 Command 按钮来做开始按钮我改了它的名称为C1 样子自己设置喜欢什么就设成什么样子就可以了. 在Picture 2上画上一个Command 按钮.就一个不要画好多 --这个按钮要注意了属性设置如下: Caption设成空. Index 设成0 Style设置成 1 名称:C 我是改了名称 下面是源码 Dim a9 9 As Integer coun As Integer rei As Integer 为0时打开一大片的的0 Public Sub op0i As Integer Ci.BackColor HFFFFFF: Ci.Caption aInti / 10 Inti Mod 10 If i - 1 0 And i Mod 10 0 Then If Ci - 1.BackColor HFFFFFF Then C_Click i - 1 If i 9 And i Mod 10 9 Then If Ci - 9.BackColor HFFFFFF Then C_Click i - 9 If i 10 Then If Ci - 10.BackColor HFFFFFF Then C_Click i - 10 If i 11 And i Mod 10 0 Then If Ci - 11.BackColor HFFFFFF Then C_Click i - 11 If i 1 0 And temp Mod 10 0 Then If aInttemp - 1 / 10 Inttemp - 1 Mod 10 -1 Then aInttemp - 1 / 10 Inttemp - 1 Mod 10 aInttemp - 1 / 10 Inttemp - 1 Mod 10 1 附近的雷数加1 If temp - 9 0 And temp Mod 10 9 Then If aInttemp - 9 / 10 Inttemp - 9 Mod 10 -1 Then aInttemp - 9 / 10 Inttemp - 9 Mod 10 aInttemp - 9 / 10 Inttemp - 9 Mod 10 1 附近的雷数加1 If temp - 10 0 Then If aInttemp - 10 / 10 Inttemp - 10 Mod 10 -1 Then aInttemp - 10 / 10 Inttemp - 10 Mod 10 aInttemp - 10 / 10 Inttemp - 10 Mod 10 1 附近的雷数加1 If temp - 11 0 And temp Mod 10 0 Then If aInttemp - 11 / 10 Inttemp - 11 Mod 10 -1 Then aInttemp - 11 / 10 Inttemp - 11 Mod 10 aInttemp - 11 / 10 Inttemp - 11 Mod 10 1 附近的雷数加1 If temp 1