vb定义数组并赋值 VB编程,将一维数组中10个元素向右循环移n位?

VB编程,将一维数组中10个元素向右循环移n位?定义一个新数组来存储新订单。这是一个通用的算法,但是已经忘记了VB的语法,希望大家也能有所帮助。dim old[10]={1,3,5,7,9,2,4,6

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=i3

如果newi>=10那么

newi=newi1-10

end if

new[newi]=old[i

]i

while执行