VB中二维数组赋值问题

Question

string型一维数组a(0 to 29), 值为：a(0)="0,0,0" a(1)="1,100,0" a(2)="2,200,0" …… ，现在想把它拆开，赋给二维数组b(0 to29,0 to2), 用split函数时一直提示维度错误，请高手指点，感激不尽。

Answer 1

Dim a(0 To 29) As String, b() As String
Dim i As Integer, j As Integer
ReDim b(UBound(a), 2)

For i = 0 To UBound(a)
a(i) = i & "," & i * 100 & "," & i
Next

For i = 0 To UBound(a)
For j = 0 To 2
b(i, j) = Split(a(i), ",")(j)
Next
Next

Answer 2

你的a()含有三组数据：“1，100，0”，请问，赋值给二维数组时，把哪一部分赋值给b(i,0),哪一部分赋值给b(i,1)？也就是从哪儿拆开？是保留三组数据还是变成两组数据？再有，b()的类型还是string型吗？还是integer型？
请说详细一点，以便帮助你。