扫雷程序“布雷”代码（vb）

dim a(10,10),b(100) as long
For i = 1 To 10
    For j = 1 To 10
        a(i, j) = "0"
    Next j
Next i
For 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 If
Next 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 t
Next n
For 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 If
Next i
For 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 If
Next 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 i
End If
If 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 i
End If
If 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 i
End If
If 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 i
End If
For i = 1 To 100
    b(i) = a((i - 1) \ 10 + 1, (i - 1) Mod 10 + 1)
Next i

布雷为：10*10型

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18