DIM s() as string dim strin as string DIM a(3,6) as string strin = 1,2,3,4,5,6;15,26,34,28,79,46;10,6,52,21,3,4 s() =split(strin,",") for i = 0 to 3 for j = 0 to 6 a(i,j)=s(i+j) next j next i
以下是引用学习VB才2天在2006-11-27 15:54:17的发言: DIM s() as string dim strin as string DIM a(3,6) as string strin = 1,2,3,4,5,6;15,26,34,28,79,46;10,6,52,21,3,4 s() =split(strin,",") for i = 0 to 3 for j = 0 to 6 a(i,j)=s(i+j) next j next i