扫雷程序“布雷”代码（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