dima(5)fori=1to5a(i)=inexta(1)=tfori=2to5a(i-1)=a(i)nexta(i-1)=tfori=1to5printa(i)next结果是2-3-4-5-1为什么最后一个是1呢.

Question

dim a(5)
for i=1 to 5
a(i)=i
next
a(1)=t
for i =2 to 5
a(i-1)=a(i)
next
a(i-1)=t
for i=1 to 5
print a(i)
next
结果是2-3-4-5-1为什么最后一个是1呢.

Answer 1

我理解题目的用意是：将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

 

运行结果如下图所示：