VB扫雷源代码

               ElseIf What(mX, mY - 1) >= 1 And What(mX, mY - 1) <= 9 Then
                    Picture1.PaintPicture image1(What(mX, mY - 1)).Picture, mX
- 1, mY - 2
                    What(mX, mY - 1) = -What(mX, mY - 1)
                    OpenFlag = OpenFlag + 1
                 End If
              End If
              ''打开右上的点
              If mY - 1 >= 1 And mX + 1 <= NowWidth Then
                    If What(mX + 1, mY - 1) = 0 Then
                       What(mX + 1, mY - 1) = 11
                       Picture1.PaintPicture image1(0).Picture, mX, mY - 2
                       OpenFlag = OpenFlag + 1
                    ElseIf What(mX + 1, mY - 1) >= 1 And What(mX + 1, mY - 1)
<= 9 Then
                       Picture1.PaintPicture image1(What(mX + 1, mY -
1)).Picture, mX, mY - 2
                       What(mX + 1, mY - 1) = -What(mX + 1, mY - 1)
                       OpenFlag = OpenFlag + 1
                    End If
              End If
              ''再打开右面的点
              If mX + 1 <= NowWidth Then
                 If What(mX + 1, mY) = 0 Then