如何在数组中插入记录??

我现在有两个数组,a()、b()，我要把b中的记录插入到a中。就是比如在a数组中有0，1，2，3，4，5，6，7，8，9，我要把b数组中的5和2插入到a数组中，并且在3后面插入“5”，在7后面插入“2”，就是插入完之后不要排序，插入后的结果就是0，1，2，3，5，4，5，6，7，2，8，9。我就是已知b数组中需要插入的数据和插入的位置都知道，这个怎样写？
Dim a() As Integer
dim i as integer
dim j as integer
dim k as integer
dim m as integer
dim ss as integer
dim var1 as integer

k=5 '要插入5个数字
ss=10'素组原始大小

ReDim a(ss) '重新定义数组大小不保留数据
For i = 0 To ss-1 '模拟一组数 0-9的
a(i) = i
Print a(i) & ",";
Next i

ReDim Preserve a(ss+k) '重新定义数组大小保留原有数据
for k1=0 to k-1 '重复插入数据
m = CInt(InputBox("输入要插入的数:"))
a(ss+k1)=m ‘重复插入数据
next k1

'调整循序
for i=0 to ss+k-1
for j=i to ss+k-1
if a(i)>=a(j) then
var1=a(i)
a(i)=a(j)
a(j)=var1
end if
next j
next i

For i = 0 To ss+k-1
Print a(i) & ",";
Next i

这段代码不符合我

如何在数组中插入记录?? C中数组插入 用VB跟SQL Server,如何实现将数据库中的记录存放在数组中 怎样在表中插入记录 如何ASP提取记录集保存到数组中 asp 如何将数组元素一次性插入到数据库中 asp中在任意记录前插入记录,access数据库. 如何在SQL数据库的表中随机的插入几千条记录 如何在存储过程中得到刚插入的一条记录的ID号 如何在ACCESS2003窗体设计中插入多行记录（250分）