[VB6 ] 翻牌遊戲的問題

[yaya9915 (=_____________=)]

現在在寫一個記憶遊戲的程式

可是翻出來的牌都沒有辦法變成一對

總是會有一張牌是會出現三次

請大家幫我看一下哪裡錯了!

感謝!!!

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
推 mraaa:看不懂你哪段是甚麼....解釋一下吧...
→ r31422009:Form_Load() 那邊,翻牌那0~5要產生各2個吧!!
→ r31422009:把card(i)的結果列出來,並非0~5各有2次.