因为 可以通过 function xxx() as string
返回一个字符串
所以, 你可以把想要返回的值通过 ,连接成字符串返回,用到时再分割一下就达到了返回数组的效果。
或者定义一个 type typTest,
把想要的参数都放在type里,
然后通过 function xxx() as typTest 来取得返回的各值
不一定要用返回值,用参数带回来也行
private function xxx(byval n as long ,byval d as long ,byref x as long ,byref y as long )
x=n+d
y=n*d
end function
dim x as long ,y as long
call xxx( 2,3,x,y)
print x,y