loopcheck.bas

这是学生做的一个游戏系统 大家参考一下

Attribute VB_Name = "LoopCheck"
Option Explicit
Public Sub LpChck(i As Integer, j As Integer)
 Dim index As Integer, p1 As Integer, q1 As Integer, p2 As Integer, q2 As Integer
 Dim p As Integer, q As Integer
 
  index = (MaxJ + 1) * i + j
  If CheckMineNum(i, j) > 0 And main.mask((MaxJ + 1) * i + j).Visible = True Then
      main.reveal(index).Caption = CheckMineNum(i, j)
      main.mask(index).Visible = False
      ClickOver = ClickOver + 1
  End If
  If CheckMineNum(i, j) = 0 Then
      main.reveal(index).Caption = ""
      main.mask(index).Visible = False
      ClickOver = ClickOver + 1
      p1 = IIf(i - 1 > 0, i - 1, 0)
      p2 = IIf(i + 1 < MaxI, i + 1, MaxI)
      q1 = IIf(j - 1 > 0, j - 1, 0)
      q2 = IIf(j + 1 < MaxJ, j + 1, MaxJ)
      For p = p1 To p2
        For q = q1 To q2
           If main.mask((MaxJ + 1) * p + q).Visible = True Then
             LpChck p, q
           End If
        Next q
      Next p
  End If
End Sub