作者yaya9915 (=_____________=)
看板Visual_Basic
标题[VB6 ] 翻牌游戏的问题
时间Sat Jun 6 22:35:20 2009
现在在写一个记忆游戏的程式
可是翻出来的牌都没有办法变成一对
总是会有一张牌是会出现三次
请大家帮我看一下哪里错了!
感谢!!!
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
1F：推 mraaa:看不懂你哪段是甚麽....解释一下吧... 06/07 09:31
2F：→ r31422009:Form_Load() 那边,翻牌那0~5要产生各2个吧!! 06/08 01:56
3F：→ r31422009:把card(i)的结果列出来,并非0~5各有2次. 06/08 01:57