VB扫雷源代码

t(mX - 1, mY + 1)
                       OpenFlag = OpenFlag + 1
                    End If
              End If
              ''四点判断完后将本点标记为已判断过
              What(mX, mY) = 12
           End If
       Next
   Next
   If Continue = False Then Exit Do
Loop
End Sub
Private Sub EndGame()
Dim X As Long
Dim Y As Long
For Y = 1 To NowHeight
    For X = 1 To NowWidth
        If What(X, Y) = 10 Then
           Picture1.PaintPicture image1(13).Picture, X - 1, Y - 1
        Else
           If What(X, Y) = 13 Then
              If Save(X, Y) <> 10 Then
                 Picture1.PaintPicture image1(12).Picture, X - 1, Y - 1
              End If
           ElseIf What(X, Y) = 14 Then
              If Save(X, Y) = 10 Then
                 Picture1.PaintPicture image1(13).Picture, X - 1, Y - 1
              End If
           End If
        End If
    Next
Next
End Sub