怎么用vb做扫雷程序

先说一个 扫雷的吧，，没办法给你源程序，

就给你说制作过程吧，

打开VB6.0

在窗体的上半部分，用pictureBOX控件画一定的区域用来模仿WINDOWS那样的，里面显示雷数，时间，以及开始，，并且命名为picture1

在画好后，在picture1里 放4个控件，text1,text2,commandbutton(按钮),timer1.并且给这4个控件属性定义属性值：text1和text2的BackColor属性为黑色，ForeColor为红色，FONT属性改为小二号。text1 的text属性为10,text2的text属性为0

按钮控件的名称属性改为C1，Caption属性改为开始。FONT属性改为小二号

Timer1 属性 Enabled 为 False, Interval为1000

再Picture1的下面再用Picturebox控件画一定的区域做为雷区。将这个控件的名称属性改为P ，AutoRedraw属性改为True

然后再把控件P（雷区）里 放一个按钮(数组)控件，其属性：名称改为C，Caption为空

（怎么建数组控件？就是在该控件上点右键选择复制，在空白区选择粘贴，系统会提示你是否建立数组控件，你选是就OK了） 它变成数组控件后，两个控件名称一样都是C 但是会有一个C（0）和C（1） 你把（1）的删除就行了，在C（0）控件的属性style改为1，

做完以上的，，只需要把以下代码复制到代码区即刻运行

有三个，分别是扫雷世界、扫雷大战、益智版扫雷。下面演示搜索这三个小程序的流程：

演示设备：华为畅享20、EMUI9.1、微信8.01 。

一、进入手机微信发现页，点击打开小程序。

二、 打开小程序界面后，点击右上角搜索按钮。

三、在搜索栏中输入关键词“扫雷”二字，点击搜索。

四、如下图，这时就可以搜索到这三个扫雷小程序，点击即可开启游玩。

普通版本WINDOS扫雷程序是将布雷和扫雷结合

扫雷程序思想讲解

在我大二的时候就编写了一个扫雷程序，现在也有很多

源程序下载，我不知道他们的算法是怎么样的，但我想我的

算法应是最清晰和简单的。下面就来讲解我的扫雷程序思想。

首先我们在雷区上随机地放上雷，没有雷的地方被点击

后就会显示一个数字表示它周围有几个雷，这是怎么实现的

呢？我们可以把整个雷区看成一个二维数组a[i,j]，如雷区：

11 12 13 14 15 16 17 18

21 22 23 24 25 26 27 28

31 32 33 34 35 36 37 38

41 42 43 44 45 46 47 48

51 52 53 54 55 56 57 58

我要知道a[34]周围有几个雷，就只有去检测

a[23]，a[24]，a[25]

a[33]， a[35]

a[43]，a[44]，a[45]

这8个雷区是否放上了雷，仔细观察它们成在数学关系。

抽象出来就是：a[i,j]的雷的个数就是由

a[i-1,j-1]，a[i-1,j]，a[i-1,j+1]

a[ i ,j-1], a[ i ,j+1]

a[i+1,j-1]，a[i+1,j]，a[i+1,j+1]

（如果超出边界再加以判断）

这样的8个雷区决定的。

扫雷程序还会自动展开已确定没有雷的雷区。如果

a[3,4]周围雷数为1，a[2,3]已被标示为地雷，那么

a[24]，a[25],a[33]，a[35],a[43]，a[44]，a[45]

将被展开，一直波及到不可确定的雷区。这也是实现的

关键。我们可以把数组的元素设定为一个类对象，它们

所属的类

因此普通版本WINDOS扫雷程序是将布雷和扫雷结合的

---