急急!!!求VB答案!!急

来源：百度知道 编辑：UC知道 时间：2024/05/06 08:15:15
编程将一维数组A(10)中数组元素循环向后移动一个位置,最后一个元素移到第一个元素位置上.
大侠,怎么没有运行出来呢

t=a(10)
for i=10 to 1 step -1
a(i)=a(i-1)
next
a(0)=t

Dim A(10)
Dim i As Integer
Dim t

For i = 0 To 9
A(i) = i
Next i
t = A(9)

For i = 9 To 1 Step -1
A(i) = A(i - 1)
Next i

A(0) = t

For i = 0 To 9
Debug.Print A(i)
Next i

m=a(10)
for i= 9 to 1 step -1
a(i+1)=a(i)
next i
a(1)=m

变量自己定义吧

dim i, t,k ,N as int....
N=int(数组长度/2) //数组长度好像有个函数可以求出的。你这里可以用10来代替.
for i = 1 to N //交换的次数是数组长度的一半（一次就换掉两个元素了）
t=a(i) //把第一个元素放入临时变量。
k=11-i //算出与这个临时变量交换的数组成员。
a(i)=a(k) //以下两行就交换数组成员的数据。
a(k)=t
next i