[Visual Basic 6.0] 利用 CommandButton 按鈕來寫遊戲九宮格尋寶遊戲

2013-11-13

7850
0
Visual Basic 6.0
2013-11-14

摘要:[Visual Basic 6.0] 利用 CommandButton 按鈕來寫遊戲九宮格尋寶遊戲

點下重新開始後，會先要求玩家從玩家九宮格中選出一個位置為隱藏寶藏讓電腦猜，此時此刻電腦也同樣的在九宮格其中一格藏入寶藏。


Dim 寶藏是否建立

Private Sub 玩家_Click(Index As Integer)
If 寶藏是否建立 = False Then
    MsgBox "玩家寶藏放置位置為：第" & Index + 1 & "格"
    玩家(Index).Tag = "寶藏"
    玩家(Index).Caption = "寶藏"
    For I = 0 To 8
        玩家(I).Enabled = False
        電腦(I).Enabled = True
    Next I
    電腦(Int(Rnd * 9)).Tag = "寶藏"
    MsgBox "玩家先猜！", , "玩家先猜！"
End If
End Sub

Private Sub 重新開始_Click()
Call 開始遊戲
End Sub

Private Sub 結束遊戲_Click()
End
End Sub

Sub 開始遊戲()

For I = 0 To 8
    玩家(I).Enabled = True
    電腦(I).Enabled = False
    電腦(I).Caption = I + 1
    玩家(I).Caption = I + 1
    電腦(I).Tag = ""
    玩家(I).Tag = ""
Next I

寶藏是否建立 = False

MsgBox "請先設定您要放的寶藏位置"

End Sub

Private Sub 電腦_Click(Index As Integer)
If 電腦(Index).Tag = "寶藏" Then
    For I = 0 To 8
        玩家(I).Enabled = False
        電腦(I).Enabled = False
    Next I
    MsgBox "玩家猜中了！", , "玩家勝利！"
Else
    電腦(Index).Tag = "X"
    電腦(Index).Caption = "X"
    電腦(Index).Enabled = False
    MsgBox "玩家沒猜中！", , "換電腦猜！"
重猜:
    電腦猜 = Int(Rnd * 9)
    If 玩家(電腦猜).Tag = "X" Then
        GoTo 重猜
    ElseIf 玩家(電腦猜).Tag = "寶藏" Then
        For I = 0 To 8
            玩家(I).Enabled = False
            電腦(I).Enabled = False
        Next I
        MsgBox "電腦猜中了！", , "電腦勝利！"
    Else
        玩家(電腦猜).Caption = "X"
        玩家(電腦猜).Tag = "X"
        MsgBox "電腦未猜中！", , "換玩家猜！"
    End If
End If
End Sub

九宮格尋寶遊戲.rar

#0xDe 從分享中學習

#Facebook：ProgrammerDe (https://www.facebook.com/MicrosoftDes) 有問題歡迎提問

回首頁