提取数组

假设大数组为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

果然是版主，厉害