0

我想在函数(arrayA)、函数(存储)中创建一个数组。我希望函数存储返回数组 A,并将函数返回值存储在更大的数组 ArrayB 中。之后,我想通过存储在 arrayB 元素 (1) 中来打印出 arrayA 的每个元素。

请帮忙,非常感谢,我的代码如下。

dim arrA() as variant
dim arrB() as variant

redim arrB(1)

arrb(1) = store(arrA)

for i = 1 to ubound(arrB(1)
debug.print arrB(1)(i)
next i

function store(A() as variant)

redim a(1 to 3, 1 to 3)

a(1,3) = "1"
a(1,2)="2"

store = A

end function
4

1 回答 1

0

要打印您的内容,arrA您必须像这样遍历它:

For i = 1 to UBound(arrB(1))
   For j = LBound(arrB(1), 2) To UBound(arrB(1), 2)
      Debug.Print arrB(1)(i, j)
   Next
Next

LBound/函数的第二个参数UBound用于选择我们想要的维度;在这种情况下,我们想要第二个,因为外部For已经通过了第一个。

于 2013-08-26T11:28:39.270 回答