一个FOR 循环的问题
请大家帮忙解释一下这个程序输出结果是:1 2 3 1 4 1我不太明白
Private Sub Form_Click()
Dim a(5)
For i = 0 To 4
a(i) = i + 1
t = i + 1
If t = 3 Then
Print a(i);
a(t - 1) = a(i - 2)
Else
a(t) = a(i)
End If
If i = 3 Then a(i + 1) = a(t - 4)
a(4) = 1
Print a(i);
Next i
End Sub