在VB数组中插入一数据，前面顺序不变，后面依次向后

定义一个可变数组就可以了啊，前面可以直接赋值后面的就可以向上加了啊，

dim a()
'假设你要在第七位插入数据，如插入ChaRu 即a(7)=charu
redim a(10)
'你的数据
……
ReDim Preserve a(11)
j=11
for i=7 to 11
a(j)=a(j-1)
j=j-1
next
a(7)="charu"