VB遊戲 (20點~~~)

Question

如果有VB遊戲 請提供參考一下
給我檔案 謝謝

不好意思
請問你還有別的遊戲嗎?
因為我們老師應該不會讓我們用骰子遊戲過關
有沒有在複雜點
或是簡單 好玩的
謝謝

Answer 1

' 猜配對的格子
' 猜對了就把字留下來
' 猜錯了就把字清除掉

' 螢幕上要有 10 x 10 Text1 的陣列 (從 0 到 99)

Dim prev_n As Integer, a(100) As Integer ' 整體性變數

Private Sub Form_Load()

Dim i As Integer, j As Integer, b As Integer
Dim n As Integer

' 兩個 1, 兩個 2, 兩個 3, ..., 兩個 50
n = 100
For i = 1 To n / 2
a(2 * i - 1) = i
a(2 * i) = i
Next i

' 重新洗牌
Randomize
For i = 1 To n
j = (Int(Rnd() * n) + 1)
b = a(i)
a(i) = a(j)
a(j) = b
Next i
prev_n = -1

End Sub

Private Sub Text1_Click(Index As Integer)

If (Text1(Index).Text <> "") Then Exit Sub ' 這一格猜過了

Text1(Index).Text = a(Index + 1) ' 秀出那一格的數字
If (prev_n = -1) Then ' 猜第一格
prev_n = Index ' 記錄第一格的位置
Else ' 猜第二格
If a(prev_n + 1) = Text1(Index).Text Then
MsgBox "你猜對了"
Else
MsgBox "你猜錯了"
Text1(Index).Text = "" ' 清除猜錯的格子
Text1(prev_n).Text = ""
End If
prev_n = -1 ' 變成還沒猜的情形
End If

End Sub

Answer 2

學vb就到vb研究小站吧
http://www.myinfobox.net/VBStudy2/index.html

裡面可以挖到小游戲的範例跟原史碼

Answer 3

骰子遊戲
執行檔：
http://allens.myweb.hinet.net/18.exe
原始檔：
http://allens.myweb.hinet.net/18la.exe

有其他問題再問我吧
因為程式碼過長這邊PO不下