皇者【Ter】

'宣告一個變數，名為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

主要经营：玛莉机、连线机、礼品机、娃娃机、摇摆机、大型娱乐机、模拟机、投币器、推币机及各类游戏机配件！
企业网站：www.sh220.cn    QQ：575865016
联 系 人：陈丽军  电话：13485931220    15956345708  传真：020-83276765