[Open]
[Close]
昨朽杲昨杳
'宣告一個變數,名為bomb,integer為型態
Dim bomb As Integer
Private Sub Form_Load()
'開始執行時改變按鈕屬性把9個地雷按鈕隱藏
CmdBtn(1).Visible = False
CmdBtn(2).Visible = False
CmdBtn(3).Visible = False
CmdBtn(4).Visible = False
CmdBtn(5).Visible = False
CmdBtn(6).Visible = False
CmdBtn(7).Visible = False
CmdBtn(8).Visible = False
CmdBtn(9).Visible = False
End Sub
Private Sub CmdStart_Click()
'遊戲一開始電腦即隨機選定一個按鈕為地雷
'此處不需加入程式碼
Randomize Timer
bomb = CInt(Int((9 * Rnd) + 1))
'利用InputBox輸入玩家1和玩家2的名稱並於LblUser輸出
LblUser(1) = InputBox("請輸入玩家名稱", "玩家名稱")
LblUser(2) = InputBox("請輸入玩家名稱", "玩家名稱")
'遊戲開始後便改變按鈕屬性把9個地雷按鈕顯示出來
CmdBtn(1).Visible = True
CmdBtn(2).Visible = True
CmdBtn(3).Visible = True
CmdBtn(4).Visible = True
CmdBtn(5).Visible = True
CmdBtn(6).Visible = True
CmdBtn(7).Visible = True
CmdBtn(8).Visible = True
CmdBtn(9).Visible = True
'再把開始按鈕隱藏
CmdStart.Visible = False
End Sub
Private Sub CmdBtn_Click(Index As Integer)
If Index = bomb Then
'利用MsgBox通知玩家地雷按鈕被按中了
MsgBox "地雷被引爆!你輸了~~"
Else
'否則隱藏該按鈕
CmdBtn(Index).Visible = False
End If
End Sub