要返回多个值,有几种办法,最直接的就是用传址参数
Function f1(byref retVal1,byref retVal2)
或者用全局变量(比如模块级变量)
或者返回包装过的对象
或者返回多个返回值糅合的字符串
你可以把返回类型定义为数组,返回一个数组,里面存放x和y
还可以做成一个class,x和y定义成class里面的两个公共变量。在函数中给x和y赋值。然后调用这个class就可以了
最简单方法是通过参数传址(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
不明白你的意思,你是想让VB自带的函数一次性返回两个值?不能用两句话来让他返回两个不同值吗?