急！VB中function函数返回多值怎么实现

[dida_20140507]

论坛上有人说是通过数组来实现返回多个值，但我还是没有看懂，求指点！！！
例如：
需要对不同的n，d值进行一系列计算，返回x，y值
我就先假定计算过程为
x=n+d
y=n*d
怎么编写function函数，调用的时候就可以直接由不同的（n,d）计算然后同时返回x，y的值呢？？？



我现在刚开始应用VB，跪求大神指点~~~比较着急，在线等回复，谢谢了！
要是能直接发一段代码附上注释就再好不过了

[yachong]

不一定要用返回值，用参数带回来也行 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

[dida_20140507]

第一次发帖，非常感谢您的回复！！！ 刚刚我运行了一下，确实可以达到预期效果， 我还想请教下，如果想让整个工程都能调用的话，是不是可以新建标准模块，用sub过程啊？还是就用function函数就可以？

[yachong]

不关心返回值的话就用sub好了 要声明成public sub

[王二.麻子]

引用 1 楼 yachong 的回复:

不一定要用返回值，用参数带回来也行 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

byval？你是想说byref吧？

[王二.麻子]

竟然。。。 混分了，哎

[dida_20140507]

引用 3 楼 yachong 的回复:

不关心返回值的话就用sub好了 要声明成public sub

哦哦好的，我明白了，晚上再试试~谢谢了！

[dida_20140507]

引用 7 楼 beal_p 的回复:

因为 可以通过 function xxx() as string 返回一个字符串 所以， 你可以把想要返回的值通过 ,连接成字符串返回，用到时再分割一下就达到了返回数组的效果。 或者定义一个 type typTest, 把想要的参数都放在type里， 然后通过 function xxx() as typTest 来取得返回的各值

谢谢！这个方法我之前也看到过，不过我昨天用yachong的方法已经把问题解决了呢，还是谢谢你哈~~

[beal_p]

因为 可以通过 function xxx() as string 返回一个字符串 所以， 你可以把想要返回的值通过 ,连接成字符串返回，用到时再分割一下就达到了返回数组的效果。 或者定义一个 type typTest, 把想要的参数都放在type里， 然后通过 function xxx() as typTest 来取得返回的各值