不能将数组的结果赋值给一个数组

我试图将数组的结果分配给一个数组。 它工作正常，如果我尝试将结果数组的一个元素分配给我的数组，但它试图将整个结果数组分配给我的数组（“无法分配给数组”）时返回错误。

Sub test() Dim lol(6) as Double lol = Hehe2() End Sub Function Hehe2() As Double() Dim Zliczacz(1 To 6) As Double Zliczacz(1) = 1 / 2 Zliczacz(2) = 1 / 2 Zliczacz(3) = 1 / 2 Zliczacz(4) = 1 / 2 Zliczacz(5) = 1 / 2 Zliczacz(6) = 1 / 2 Hehe2 = Zliczacz() End Function 

Answer 1

如果将接收数组声明为dynamic且types相同，则只能将一个数组分配给另一个数组。 你的是固定的，所以它不会工作。 你需要使用：

 Dim lol() as Double