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

剪刀石頭布？

這個家族有．．．
http://tw.webfile.yahoo.com/file/filer?cid=stara_visionary&r=36793#