如何利用function返回的数组？？？？

Question

带码如下，单击按钮以后为什么不能都将ReturnArr的返回值付给arr数组？
Private arr(2) As Integer
Public Function ReturnArr() As Integer()
    ReturnArr = arr()
End Function
Private Sub Command1_Click()
    Dim arr(2) As Integer
    arr = ReturnArr
End Sub

Answer 1

Private Sub Command1_Click() 
    Dim a() As Integer 
    a = ReturnArr 
End Sub 

Answer 2

Option ExplicitPrivate arr(2) As Integer
Public Function ReturnArr() As Integer()
    ReturnArr = arr()
End Function
Private Sub Command1_Click()
    Dim a() As Integer
    a = ReturnArr
    Debug.Print a(2)
End SubPrivate Sub Form_Load()
    arr(0) = 0
    arr(1) = 1
    arr(2) = 2
End Sub

Answer 3

Private arr(2) As IntegerPublic Function ReturnArr() As Variant
    ReturnArr = arr
End FunctionPrivate Sub Command1_Click()
    Dim ss() As Integer
    On Error Resume Next
    ss = ReturnArr
    If Err Then Exit Sub
End SubPrivate Sub Form_Load()
    arr(0) = 1
    arr(1) = 2
    arr(2) = 3
End Sub

Answer 4

只能用 动态数组和Variant变量来接收函数返回的数组，原因嘛，因为返回的不是数组，而是数组对象的指针，所以接收变量必须可以对象化指针的变量，不可以是确定大小的数据结构

Answer 5

我想利用function函数递归，然后改变数组值，最后只要数组值不知道要如何做