[VB6 ] 翻牌遊戲的問題
現在在寫一個記憶遊戲的程式
可是翻出來的牌都沒有辦法變成一對
總是會有一張牌是會出現三次
請大家幫我看一下哪裡錯了!
感謝!!!
Private Sub Form_Activate()
Randomize
For i = 0 To 11
check(i) = 0
Image1(i).Enabled = True
Next
For j = 0 To 5
Do
num = Int(Rnd * 6)
Loop Until check(num) = 0
check(num) = 1
card(j) = num
Next
For k = 0 To 5
Image2(k).Visible = False
Next
End Sub
Private Sub Form_Load()
Randomize
For i = 0 To 11
num = Int(Rnd * 6)
check(num) = 1
card(i) = num
Next
End Sub
Private Sub Image1_Click(Index As Integer)
Image1(Index) = Image2(card(Index))
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.165.127.31
推
06/07 09:31, , 1F
06/07 09:31, 1F
→
06/08 01:56, , 2F
06/08 01:56, 2F
→
06/08 01:57, , 3F
06/08 01:57, 3F
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
