无法将数组的函数结果赋给数组

Question

我试图将数组的函数结果赋给数组。它工作正常，如果我尝试将结果数组的一个元素分配给我的数组，但它在尝试将整个结果数组分配给我的数组时返回错误（＆＃34;不能分配给数组＆＃34;）。

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

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

Dim lol() as Double