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

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执行

vb定义数组并赋值 vb定义一个数组 vb一维数组赋值

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。