private sub command1.click()
frmMain.mnuBegin.checked=False
frmMain.mnuMiddle.checked=False
frmMain.mnuExpert.checked=False
frmMain.mnuCust.checked=True
iCols=txtCol.Text
iRows=txtRow.Text
iBombs=txtNum.Text
iLevel=3
OnGameNew
frmMain.Form Print
Unload Me
End Sub
Private Sub Command2 Click()
Unload Me
End Sub
Private Sub Form Load()
txtRow.Text=20
txtCol.Text=20
txtNum.Text=20
End Sub
如果是WINDOWS自带的是VC 的编写的
这里有个VB代码布局是10*10的,希望对你有用
dim a(10,10),b(100) as longFor i = 1 To 10 For j = 1 To 10 a(i, j) = "0" Next jNext iFor k = 1 To 20 '²¼À×10: a1 = Int(Rnd * 10) 1 b1 = Int(Rnd * 10) 1 If a(a1, b1) = "0" Then a(a1, b1) = "*" n = n 1 Else GoTo 10 End IfNext k'ÉèÖÃÀ×±ßÉϵÄÊý×ÖFor n = 2 To 9 'ÖмäÅÐ¶Ï For t = 2 To 9 If a(n, t) = "*" Then For n1 = n - 1 To n 1 For t1 = t - 1 To t 1 If a(n1, t1) <> "*" Then a(n1, t1) = LTrim$(Str$(Val(a(n1, t1)) 1)) End If Next t1 Next n1 End If Next tNext nFor i = 2 To 9 If a(1, i) = "*" Then 'µÚÒ»ÐÐÅÐ¶Ï For j = 1 To 2 For k = i - 1 To i 1 If a(j, k) <> "*" Then a(j, k) = LTrim$(Str$(Val(a(j, k)) 1)) End If Next k Next j End If If a(10, i) = "*" Then 'µÚÊ®ÐÐÅÐ¶Ï For j = 9 To 10 For k = i - 1 To i 1 If a(j, k) <> "*" Then a(j, k) = LTrim$(Str$(Val(a(j, k)) 1)) End If Next k Next j End IfNext iFor i = 2 To 9 If a(i, 1) = "*" Then 'µÚÒ»ÐУ¬µÚiÁÐÅÐ¶Ï For j = i - 1 To i 1 For k = 1 To 2 If a(j, k) <> "*" Then a(j, k) = LTrim$(Str$(Val(a(j, k)) 1)) End If Next k Next j End If If a(i, 10) = "*" Then 'µÚiÐУ¬µÚÊ®ÁÐÅÐ¶Ï For j = i - 1 To i 1 For k = 9 To 10 If a(j, k) <> "*" Then a(j, k) = LTrim$(Str$(Val(a(j, k)) 1)) End If Next k Next j End IfNext i'Ëĸö½ÇÅжÏIf a(1, 1) = "*" Then 'µÚ1ÐУ¬µÚ1ÁÐÀ×ÅÐ¶Ï For i = 1 To 2 For j = 1 To 2 If a(i, j) <> "*" Then a(i, j) = LTrim$(Str$(Val(a(i, j)) 1)) End If Next j Next iEnd IfIf a(1, 10) = "*" Then 'µÚ1ÐУ¬µÚ10ÁÐÀ×ÅÐ¶Ï For i = 1 To 2 For j = 9 To 10 If a(i, j) <> "*" Then a(i, j) = LTrim$(Str$(Val(a(i, j)) 1)) End If Next j Next iEnd IfIf a(10, 1) = "*" Then 'µÚ10ÐУ¬µÚ1ÁÐÀ×ÅÐ¶Ï For i = 9 To 10 For j = 1 To 2 If a(i, j) <> "*" Then a(i, j) = LTrim$(Str$(Val(a(i, j)) 1)) End If Next j Next iEnd IfIf a(10, 10) = "*" Then 'µÚ10ÐУ¬µÚ10ÁÐÀ×ÅÐ¶Ï For i = 9 To 10 For j = 9 To 10 If a(i, j) <> "*" Then a(i, j) = LTrim$(Str$(Val(a(i, j)) 1)) End If Next j Next iEnd IfFor i = 1 To 100 b(i) = a((i - 1) \ 10 1, (i - 1) Mod 10 1)Next i布雷为扫雷微信小程序源码：10*10型
详细解释的话,你看下
* 0 0 0 * 0 * * *
0 1 0 * 5 0 * 8 *
0 0 0 * * * * * * （0代表1-8的数字，*代表雷）
主要是利用数学上的逻辑原理编写的,具体解释.这在ZHIDAO还是空白,希望兄台看透了发布出来大家共享下了.
0
丙肝是什么病微信交流群,丙肝母婴贴吧
耳鸣微信交流群,全国耳鸣交流群
打呼噜微信交流群,怎么加入陌生微信群
「东莞车迷微信群」求个东莞的大众高尔夫微信群
「聋人微信和扣扣群」微信有聋哑人的群吗
「加入菏泽大型微信群」如何加入菏泽一中高三一部十八班微信群
「启动微信群名软件」微信群怎么设置不让别人改群名？
「微信红包群规则复制」微信红包群规章制度是什么样的？
「微信稀奇古怪总代群」我想在微信上卖稀奇古怪的玩意，一件代发的，不需要加盟费！有的留个
「微信群群主有哪些特权」微信群主有哪些特权？