急求程序备注,VB程序太难了

Private Sub ee_Click() Dim s As Integer'定义整型变量sDim z As Integer'定义整型变量z  If kk > 0 Then  'if条件kk控制，如果kk>0 将卸载image1数组    For i = 1 To 4       Unload Image1(i)卸载image1数组    NextEnd Ifs = 4 '变量赋值z = 2Image1(0)&#46;Visible = False ’图片不可见Call abc(s, z) ReDim Preserve WhichVisible(0 To 4) ReDim numer(1 To 2)numer(1) = Int(Rnd * 7) + 1    Do        numer(2) = Int(Rnd * 7) + 1    Loop While numer(1) = numer(2)ReDim nn(1 To 4, 1 To 2)For i = 1 To 4nn(i, 2) = numer(Int(Rnd * 2) + 1)Image1(i)&#46icture = LoadPicture(App&#46ath & "\" & 8 & "&#46;jpg")NextEnd SubPrivate Sub Image1_Click(Index As Integer)Static z12 As Integer, z21 As IntegerDebug&#46rint Index ck = ck + 1If ck Mod 2 <> 0 Then a = Index Image1(a)&#46icture = LoadPicture(App&#46ath & "\" & nn(a, 2) & "&#46;jpg") WhichVisible(a) = True If a <> b Then If WhichVisible(a) And WhichVisible(b) Then If nn(a, 2) = nn(b, 2) ThenTf = True End IfEnd IfEnd If Timer1&#46;Enabled = True                    Else       b = Index         Image1(b)&#46icture = LoadPicture(App&#46ath & "\" & nn(b, 2) & "&#46;jpg")        WhichVisible(b) = True                If a <> b Then                    If WhichVisible(a) And WhichVisible(b) Then                         If nn(a, 2) = nn(b, 2) Then                             Tf = True                         End If                    End If                 End If        Timer2&#46;Enabled = True  End If       End SubPublic Sub abc(k, x)For n = 1 To kLoad Image1(n)kk = nImage1(n)&#46;Visible = TrueImage1(n)&#46;Top = -200 + Int((n + 1) / x) * 800Image1(n)&#46;Left = (n Mod x) * 1000 + 150Image1(n)&#46icture = LoadPicture(App&#46ath & "\" & 8 & "&#46;jpg")NextEnd Sub