一维数组如何分割成二维数组???

Question

例如
     一维数组                                 二维数组
a(1)=10 10.00 0.00 589.1　　　　　　b(1,1)=10,b(1,2)=10.00,b(1,3)=0.00..
a(2)=11 11.00 0.00 589.0　　　　　　b(2,1)=11,b(2,2)=11.00,b(2,3)=0.00..
a(3)=12 12.00 0.00 589.2　　　　　　　　..............　
a(4)=13 13.00 0.00 589.4  <======>
a(5)=14 14.00 0.00 589.5                ........
a(6)=15 15.00 0.00 589.4
a(7)=16 16.00 0.00 589.3
a(8)=17 17.00 0.00 589.4
a(9)=18 18.00 0.00 589.4              .....
  .............
a(10000)=1 18.00 0.00 589.4       b(10000,1)=  b(10000,2)=

Answer 1

这么有规律的数值，将每个元素分开后循环赋值就可以了。代码大概类似：dim i as long,j as long
dim x() as string
for i=0 to ubound(a)
    x=split(a(i)," ")
    for j=0 to ubound(x)
       b(i,j)=x(j)
    next
next