您现在的位置: 首页 > 微信营销 > 微信动态文章 > 扫雷微信小程序源码:请问下谁有JAVA扫雷源代码(带注释)

扫雷微信小程序源码:请问下谁有JAVA扫雷源代码(带注释)

作者:pc668   来源:  热度:770  时间:2021-08-01
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=t

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

谁能给一下埽蕾vb代码和详细解释(急)

如果是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还是空白,希望兄台看透了发布出来大家共享下了.

登录

使用微信帐号或QQ直接登录,无需注册