begingame.bas

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

Attribute VB_Name = "BeginGame"
Public Sub BeginGamesp()
 Dim i As Integer, j As Integer, flag As Integer, remainder As Integer
  
   flag = 0
   overFlag = 0
   ClickOver = 0
   time = 0
 With main
   .MnuSelect.Enabled = True
   .MnuSave.Enabled = False
   .TimeTXT.Caption = Format$(time, "000")
   MineNum = MineNumMax
   .LandmineTXT.Caption = Format$(MineNum, "000")
   .Timer1.Enabled = False
   .Picture2.Enabled = True
   For i = 0 To MaxI
     For j = 0 To MaxJ
      IsLandmine(i, j) = 0
      .mask((MaxJ + 1) * i + j).Picture = LoadPicture()
      .reveal((MaxJ + 1) * i + j).Font.Bold = True
      .reveal((MaxJ + 1) * i + j).Font.Size = 10
      .reveal((MaxJ + 1) * i + j).ForeColor = &HFF&
     Next j
   Next i
   For i = 0 To MaxNumber - 1
      .mask(i).Visible = True
      RightClickNum(i) = 0
   Next i
   Do
      Randomize
      remainder = Rnd() * 10000000 Mod MaxNumber
      i = remainder \ (MaxJ + 1)
      j = remainder Mod (MaxJ + 1)
      If IsLandmine(i, j) = 0 Then
         IsLandmine(i, j) = 1
         flag = flag + 1
      End If
   Loop While (flag < MineNumMax)
 End With

End Sub