VB编程 将一维数组中10个元素向右循环移n位

定义一个新的数组存储新的顺序。这个是大概的算法，但是已经忘记了vb的语法，希望也可以帮倒你啦。

dim old[10]={1,3,5,7,9,2,4,6,8,10}

dim new[10]

dim n,i,newi

n=3

i=0

while i<10

newi=i+3

if newi>=10 then

newi=newi+1-10

end if

new[newi]=old[i]

i++

do while