急！请教VB高手替我分析

下面这段程序用VB编写的，实现在是图片配对的功能，即有8张picture,每单击一下,就会显示图片,根据你翻开的,去找与之相同的另一张图片,这是好友给我发的代码，哪位朋友能替我分析一下这个代码啊，谢谢啦！感激不尽Dim ii As Integer, num As Integer
Dim st(0 To 7) As String
Dim n(0 To 7) As Integer
Dim m(2) As Integer
Dim ss(8) As String
Private Sub Command1_Click()
Command1.Enabled = False
Timer3.Enabled = True
For i = 0 To 7
Image1(i).Picture = LoadPicture("")
Image1(i).Enabled = True
Image1(i).Stretch = False
Next
Timer1.Enabled = True
Randomize
n(0) = Int(Rnd * 8 + 1)
For i = 1 To 7
lp: Randomize
n(i) = Int(Rnd * 8 + 1)
For j = 0 To i - 1
If n(i) = n(j) Then GoTo lp
Next
Next
For i = 0 To 7
st(i) = App.Path + "\easy\" + CStr(n(i)) + ".jpg"
Next

End Sub

Private Sub Command2_Click()
Unload MDIForm1
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = False