UC知道vb编程问题，高手请进
来源：百度知道 编辑：UC知道 时间：2024/06/22 18:07:14
Private Sub Command1_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
程序运行后，单击命令按钮，输出结果是123141
为什么？有高手能详细解释一下这个程序吗？谢谢了！
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
程序运行后，单击命令按钮，输出结果是123141
为什么？有高手能详细解释一下这个程序吗？谢谢了！
重排一下，你那样写太没层次了，看着晕
Private Sub Command1_Click()
Dim a(5) '定义 a(0) - a(5) 6个
For i = 0 To 4 '0-4 五次循环
a(i) = i + 1
t = i + 1
If t = 3 Then '这有个条件判断,t=3，也就是i=2的时候才是True
Print a(i);
a(t - 1) = a(i - 2)
Else 'i<>2的时候就运行这里
a(t) = a(i)
End If
If i = 3 Then a(i + 1) = a(t - 4)
a(4) = 1
Print a(i);
Next i '到这里再回到For i那里，直到i=5为止
End Sub
其他的就没什么难的了，运算有点乱，用纸写写就行了
0分有点懒
Private Sub Command1_Click() '当按钮1被单击时
Dim a(5) ‘定义一个一维数组，内部5个元素
For i = 0 To 4 ’I从1到4- -不懂？那基础就.....for的结构自己看
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