我的狗狗睡着了
春芽
共回答了22个问题采纳率:95.5% 举报
我理解题目的用意是:将1,2,3,4,5 数组的第1个元数移到最后,重新显示.我修改的代码如下:Private Sub Command1_Click()
Dim a(5)
For i = 1 To 5
a(i) = i
Next
t = a(1)
For i = 2 To 5
a(i - 1) = a(i)
Next
a(5) = t
For i = 1 To 5
Print a(i)
Next
End Sub 运行结果如下图所示:
1年前
4