(最新整理)简易vb扫雷代码

1、(完整)简易vb扫雷代码(完整)简易vb扫雷代码 编辑整理：尊敬的读者朋友们：这里是精品文档编辑中心，本文档内容是由我和我的同事精心编辑整理后发布的，发布之前我们对文中内容进行仔细校对，但是难免会有疏漏的地方，但是任然希望（(完整)简易vb扫雷代码）的内容能够给您的工作和学习带来便利。同时也真诚的希望收到您的建议和反馈，这将是我们进步的源泉，前进的动力。本文可编辑可修改，如果觉得对您有帮助请收藏以便随时查阅，最后祝您生活愉快 业绩进步，以下为(完整)简易vb扫雷代码的全部内容。dim x as integer， total%private sub command1_click（）randomi

2、zedim k as integer, m as integerw = form1.widthh = form1.height 0.9x = val(inputbox(”请输入行列数)for i = 1 to x for j = 1 to x k = (i 1) * x + j load label1(k） label1（k).caption = label1(k).visible = true label1(k）.width = w x label1(k）。height = h x label1（k）。top = h / x （i 1） label1(k)。left = w / x （j -

3、 1) if (i + j） mod 2 = 0 then label1(k)。backcolor = qbcolor（12） else label1（k）。backcolor = qbcolor（15) end if label1(k).fontsize = 260 x label1（k)。tag = iif(int（rnd 20 + 1) mod 19 = 1, ”， ” ”) if label1(k）.tag = ” then total = total + 1 label1(k).alignment = 2 next jnext ilabel1（0）.backcolor = qbcol

4、or（0)for i = 1 to x for j = 1 to x if j + 1 1 then if label1(（i - 2) x + j + 1）。tag = ” then m = m + 1 end if if j + 1 = x and i + 1 x then if label1（i * x + j + 1）。tag = ” then m = m + 1 end if if i + 1 1 then if label1（i x + j 1）。tag = ” then m = m + 1 end if if i 1 and j 1 then if label1(i 2) * x

5、 + j 1）.tag = ” then m = m + 1 end if if j + 1 = x then if label1(（i - 1) * x + j + 1）。tag = ” then m = m + 1 end if if i + 1 = x then if label1(i x + j)。tag = ” then m = m + 1 end if if j 1 then if label1（i 1) * x + j - 1）.tag = ” then m = m + 1 end if if i 1 then if label1(i - 2) * x + j）。tag = th

6、en m = m + 1 end if label1(（i 1) * x + j）.tooltiptext = m m = 0 nextnextend subprivate sub form_load(）label1(0）。visible = falseme。width = 8000me.height = me.widthend subprivate sub label1_mousedown(index as integer， button as integer， shift as integer, p as single, q as single)static grossif button

7、= 2 then label1（index)。caption = if button = 1 then if label1(index）.tag = ” then msgbox ”你挖到雷了!！!！” gross = 0 for i = 1 to x * x label1（i)。caption = label1(i)。tag next i for i = 1 to x * x 延时 label1(i）.backcolor = vbwhite next for i = 1 to 1000000 doevents next for i = 1 to x * x unload label1(i） n

8、ext else label1（index).backcolor = vbgreen label1（index）.caption = label1（index).tooltiptext if label1（index）。tooltiptext = ”0” then if index mod x = 0 then i = index / x else i = int（index / x） + 1 if index mod x = 0 then j = x else j = index mod x if j + 1 = x and i 1 then label1（(i 2) x + j + 1).

9、caption = label1(（i - 2） x + j + 1）.tooltiptext end if if j + 1 = x and i + 1 x then label1(i * x + j + 1）.caption = label1（i x + j + 1）.tooltiptext end if if i + 1 1 and j 1 then label1(（i - 2) * x + j 1）。caption = label1(（i - 2) * x + j 1）。tooltiptext end if if j + 1 1 then label1(（i 2) * x + j).c

10、aption = label1(i - 2） x + j）。tooltiptext end if end if end ifend ifgross = 0if label1。count 1 then for i = 1 to x * x if label1(i）.caption = ” then gross = gross + 1 next iend ifs = 0if label1.count 1 then for i = 1 to x x if label1（i).backcolor = vbgreen then s = s + 1 next iend ifdebug.print ”s的值是; sdebug。print gross”; grossdebug.print total; total if s + g