请大家帮忙解释一下这个程序输出结果是：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

帮忙！弄不明白

这是计算机等级考试的一道题，不解

我怎么觉得你的程序少一个 end if 啊？

i=0
输出a(0)=1

i=1
输出a(1)=2

i=2
输出a(2)=3,a(2)=1

i=3
输出a(3)=4

i=4
输出a(4)=1

上面解释的很正确

顶