提取数组
例如大数组(1 2 3 4 5 6 7 8 9 10 11 12 13 )，现在想提取为（1 2 3），（2 3 4），（3 4 5），（4 5 6）......这样的前后搭接形式，怎么提取啊？
假设大数组为a,按你的表述则a(0)=1、a(1)=2、a(2)=3...，假设提取后的数组为b，还假设数组a的维数不确定，程序设计如下
dim a,b() as integer,i as integer
a=array(1,2,3,4,5,6,7,8,9,10,11,12,13)
redim b(ubound(a)-2,2)
for i=0 to ubound(a)-2
b(i,0)=a(i)
b(i,1)=a(i+1)
b(i,2)=a(i+2)
next
'该代码运行后结果就在二维数组b中，b(0,0)=1 b(0,1)=2 b(0,2)=3 b(1,0)=2 b(1,1)=3 b(1,2)=3...b(10,0)=11 b(10,1)=12 b(10,2)=13
