Question

求VB高手，连连看代码出了点问题，

Dim i, p, x, y As Integer
Dim a(26) As Integer

Private Sub Command1_Click()
Timer3.Enabled = True
End Sub
Private Sub Command2_Click()
Timer3.Enabled = False
End Sub

Private Sub Timer3_Timer()
Print
For i = 0 To 26
way1: Randomize
a(i) = Int(Rnd * 27)
If i = 1 Then
If a(0) = a(i) Then
GoTo way1
End If
End If
If i > 1 Then
For p = 0 To i - 1
If a(p) = a(i) Then
GoTo way1
End If
Next p
End If
Image1(i).Picture = LoadPicture(App.Path & "\" & CStr(a(i)) & ".jpg")
Image1(27 + i).Picture = LoadPicture(App.Path & "\" & CStr(a(i)) & ".jpg")
Image1(i).Tag = x
Image1(27 + i).Tag = y
Next i
End Sub
Private Sub image1_Click(Index As Integer)
For i = 0 To 26
If x = y Then
Image1(i).Visible = False
Image1(27 + i).Visible = False
End If
Next i

End Sub
一点击连连看的图片，所有图片就消失了，问题就出在这里，

Answer 1

？