Question

VB中函数怎么返回两个返回值

Answer 1

要返回多个值，有几种办法，最直接的就是用传址参数
Function f1(byref retVal1,byref retVal2)
或者用全局变量（比如模块级变量）
或者返回包装过的对象
或者返回多个返回值糅合的字符串

Answer 2

你可以把返回类型定义为数组，返回一个数组，里面存放x和y
还可以做成一个class，x和y定义成class里面的两个公共变量。在函数中给x和y赋值。然后调用这个class就可以了

Answer 3

最简单方法是通过参数传址（Byref）：
'主程序
a=1
b=2
call fun_add(a,b)
....

function fun_add(byref a,byref b)
a=a+1
b=b+1
end function

Answer 4

不明白你的意思，你是想让VB自带的函数一次性返回两个值？不能用两句话来让他返回两个不同值吗？

追问

function 最后想要返回两个值，但是它只能返回一个，有什么办法？

追答

已经有人回答了，自定定function可以设多个变量的。
方法一：
就如Function f1(byref retVal1,byref retVal2)

方法二简单些：
用全局变量，在源码顶部dim两个全局变量。然后在程序里面去调用function里面让全局变量1= 全局变量2=
最后在你的调用function语句之后，就能使用全局变量1和2来获取两个值了。