有什么方法可以将一维数组直接附到二维数组的某个下标里？

[cantops]

如题。我想实现这样的效果
Dim arrParams(4,1),i
arrParams(0,0)="name"
arrParams(1,0)="type"
arrParams(2,0)="Direction"
arrParams(3,0)="Size"
arrParams(4,0)="Value"
arrParams(0,1)="name1"
arrParams(1,1)="type1"
arrParams(2,1)="Direction1"
arrParams(3,1)="Size1"
arrParams(4,1)="Value1"
For i=0 TO ubound(arrParams,2)
MsgBox arrParams(1,i) arrParams(2,i) .....
Next

老用这种方式，要加的值一多代码就很长了。不大方便
能不能直接把 array("1","2","3","4")附值到arrParams里呢？

[clear_zero]

好像不能你那么用
用循环就好了

[tmd007]

Dim arrParams(), i, N
N = 10'动态下标
ReDim arrParams(4, N)
For i = 0 To N
arrParams(0, i) = "name" & IIf(i, i, "")
arrParams(1, i) = "type" & IIf(i, i, "")
arrParams(2, i) = "Direction" & IIf(i, i, "")
arrParams(3, i) = "Size" & IIf(i, i, "")
arrParams(4, i) = "Value" & IIf(i, i, "")
Next
Debug.Print arrParams(4, N)