急~~~有人可以用ＶＢ寫遊戲程式？

Question

如題！

我需要用ＶＢ寫的”遊戲程式”，只要程式碼就好！

不要太過於簡單的！（要發表的～～～）

至於有什麼物件．．．等，大致說一下就ｏｋ了！
重點是程式碼！
謝謝！～～～～

我直接把它複製上去，但是有幾項是錯誤的。
ex：　j = (Int(Rnd() * n) 1)
　　　Text1(Index).Text = a(Index 1) ' 秀出那一格的數字
　　　If a(prev_n 1) = Text1(Index).Text Then
以上三項是有錯的！

還有．．．能夠順便把執行結果的圖片寄給我嗎？
　　[e-mail]　　（謝謝^^）

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

ㄏㄏ 真會猜
ㄏㄏ 真夠閒
ㄏㄏ 真JJ