可以返回二维数组的vb自定义函数怎么写？

函数只能返回一个值，要想返回二维数组，就必须把二维数组用传址方式传给函数，那么函数运算时对数组的任何变化都立刻反映到数组中。如：
private function f(a() as integer) as integer
dim i as integer,j as integer
for i=1 to 2
for j=1 to 3
a(i,j)=i^2+j^2
next j
next i
end function
dim A(1 to 2,1 to 3) as integer,s as integer
s=f(a())
这个调用相当于给那个数组赋值。

public finction fn(m,n)
dim a()
redim a(m,n)
fn = a
end function