我想自定义一个函数

返回值为数组怎么办

好人来帮忙啊!!!!!!!!!!

定义数组返回值不见得真的返回去呀？

例如:

Public Function ReturnArray(ByVal AryNum As Integer ByRef Ary() as String)
     Dim i As Integer
     ReDim Ary(AryNum)
     For i=0 to AryNum
           Ary(i)=CStr(i)        
     Next i
End Function
这里Ary用的是ByRef按引用方式传递，这样函数内部做的改变等同于在外部做的改变。也就是拿这个函数写个调用上面这个函数的例子
    Dim AryNum,i as Integer
    AryNum=100
    Dim Ary() As String
    Call ReturnArray(AryNum,Ary())
    For i=0 to AryNum
          Print Ary(i)
    Next i
这样不就等于把数组返回来了吗？

也就是把数组作为参数传递进函数内部赋值，因为是引用方式传递。所以在函数内部给数组赋值等同于在函数外部给数组赋值，函数执行完后。不必返回就已经可以使用数组了。