VisualBasic 的問題(小遊戲)

Question

請問一下VisualBasic該怎ㄇ做小遊戲??
可以幫我列舉一個小遊戲的程式碼嗎??

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
如果有問題, 請來函討論. 不然, 我可能會錯失你再補充的疑點.

Answer 2

推薦好玩遊戲天堂：http://www.webgame520.com/
有很多網頁遊戲分享！很多好玩的遊戲介紹！