VB扫雷源代码

= 0
MineFlag = 0
OpenFlag = 0
''清空数组
Erase What
For T = 1 To MineNumber
aa:
    ''任意取一个坐标(X,Y)
    X = Rnd * (mWidth - 1)
    Y = Rnd * (mHeight - 1)
    ''如果已经取过该坐标则重新再取
    If What(X + 1, Y + 1) = 10 Then GoTo aa
    ''将当前坐标标记为有雷
    What(X + 1, Y + 1) = 10
    Save(X + 1, Y + 1) = 10
Next
End Sub
Private Sub WriteNumber(ByVal mWidth As Long, ByVal mHeight As Long)
''写入信息
Dim X As Long
Dim Y As Long
Dim StartX As Long
Dim StartY As Long
Dim EndX As Long
Dim EndY As Long
Dim T As Long
Dim TT
Dim mNumber As Long

For X = 1 To mWidth
    ''从当前列的上一列开始
    StartX = X - 1
    If StartX = 0 Then StartX = 1
    ''在当前列的下一列结束
    EndX = X + 1
    If EndX > mWidth Then EndX = mWidth
    For Y = 1 To mHeight
        ''如果当前位置不是雷则开始计算
        If What(X, Y) <> 10 Then
           ''从当前行的上一行开始
           StartY = Y - 1
           If StartY = 0 Then StartY = 1
           ''在当前行的下一行结束
           EndY = Y + 1
           If EndY > mHeight Then EndY = mHeight
           ''累加器置0
           mNumber = 0
           ''计算四周有多少颗雷
           For T = StartX To EndX
               For TT = StartY To EndY
                   If TT = Y And T = X Then
                     ''如果是当前位置则不计入
                  
                   Else
                      ''如果是雷则计入
                      If What(T, TT) = 10 Then mNumber = mNumber + 1
                   End If
       &n