標題:
昨朽杲昨杳
[打印本頁]
作者:
皇者【Ter】
時間:
2008-10-6 15:26
標題:
昨朽杲昨杳
'宣告一個變數,名為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
作者:
shtldzw
時間:
2009-7-12 04:55
標題:
推币机
主要经营:玛莉机、连线机、礼品机、娃娃机、摇摆机、大型娱乐机、模拟机、投币器、推币机及各类游戏机配件!
企业网站:
www.sh220.cn
QQ:575865016
联 系 人:陈丽军 电话:13485931220 15956345708 传真:020-83276765
歡迎光臨 IPvE vLan 遊戲平台|網吧系統 (https://ipve.com/bbs/)
Powered by Discuz! 6.0.0