checkminenumber.bas

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

Attribute VB_Name = "CheckMineNumber"
Public Function CheckMineNum(i As Integer, j As Integer) As Integer
  Dim MineNum As Integer, p As Integer, q As Integer
  Dim p1 As Integer, q1 As Integer, p2 As Integer, q2 As Integer
   MineNum = -1
   If IsLandmine(i, j) = 0 Then
      MineNum = 0
      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 IsLandmine(p, q) = 1 Then MineNum = MineNum + 1
        Next q
      Next p
  End If
  CheckMineNum = MineNum
End Function