VB中函数多个返回值问题

我正在做的一个VB小软件,其中经常会用到一个函数,作用是这样的:有三个点六个坐标值x1、y1、x2、y2、x3、y3,调用函数后产生一个点的X、Y值,如何能让这个函数返回两个值。

方法有两种。
第一种,自定一个变量类型,里面含两个元素,一个x、一个y。处理坐标通常都这样。

第二种,private function 函数(输入1 as **,输入2 as **,输入3 as **,输入4 as ***,输入5 as **,输入6 as **,输出1 as **,输出2 as **)as boolean
函数值是返回执行是否成功的逻辑值,大型程序一般都这样处理
温馨提示:内容为网友见解,仅供参考
第1个回答  2020-02-06
可以用sub过程,调用的时候返回两个值
例如
sub
test(输入变量,
输出变量X,输出变量y)
if
输入变量>100
then
x=10:y=20
end
sub
第2个回答  2009-11-11
你可以把返回类型定义为数组,返回一个数组,里面存放X和Y

还可以做成一个Class,X和Y定义成Class里面的两个公共变量。在函数中给X和Y赋值。然后调用这个Class就可以了
第3个回答  2009-11-11
返回两个值好像不行,不过你可以用sub过程,带两个变量进去,把函数中你要返回的值传回来
第4个回答  2009-11-11
在涵数的括号里付两个变量,如
Function hanshu(X As Integer, Y As Integer)
.....

X=...
Y=...
End Function

VB中函数多个返回值问题
第一种,自定一个变量类型,里面含两个元素,一个x、一个y。处理坐标通常都这样。第二种,private function 函数(输入1 as **,输入2 as **,输入3 as **,输入4 as ***,输入5 as **,输入6 as **,输出1 as **,输出2 as **)as boolean 函数值是返回执行是否成功的逻辑值,大...

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

vb中,怎样用function返回多个值??
单个变量只能使用by在VB中,一个function只能用一个return语句返回一个值。哪怕有几个return语句,也只能执行一个。如果需要返回多个值,可以使用数组,数组的每一个元素值都可以带回来。单个变量只能在声明函数的某个参数时使用byref前缀。其他方法如使用全局变量等,已经不属于返回值的问题了。

vb,函数,能不能返回两个值.
不但可以返回两个值,还可以更多。例如 4 个。Private Sub Command1_Click()Dim My1 As Boolean, a1 As Long, a2 As String, a3 As Long My1 = MyFun(1,a1, a2, a3)'显示返回的 4 个变量的值 Me.Cls Me.Print My1 Me.Print a1 Me.Print a2 Me.Print a3 End Sub Private Function...

VB中function函数返回多值怎么实现
函数只能返回一个值。如需要返回多值可以通过定义全局变量,或者全局数组实现。或者将多值 连成字符串,返回后再拆分。

VB数组函数返回值的问题,急
因为一个函数只有一个返回值,所以你必须把CPLXExtRoot作为参数以传址方式传入函数中才行,这样在运算过程中会把运算的结果放在数组 中,函数结束后,你直接用CPLXExtRoot()就行,因为值已经传入了。

Excel VB中如何调用有多个返回值的函数
函数只能返回一个唯一的数据,要达到返回多个值,可以使用用 ByRef 声明的参数来能实现;例如:声明函数(也可以用过程)Function 函数1(ByRef y1 as Integer,ByRef y2 as Integer,ByRef y3 as Integer) As Integer y1 = 2 y2 = 4 y3 = 6 End Function 调用 dim r1 as integer dim...

VB中function函数返回多值怎么实现
不可以返回多个值的。变通方法:一是可以返回对象,对象有多个属性;二是使用引用参数,函数修改参数值。

vb 的函数怎样才能返回多个结果
可以使用返回数组来完成多个结果的返回 Private Sub Form_Load() If IsConnectedState Then MsgBox "连接网络" Else MsgBox "没有联网" End If End SubVBScript code复制代码 Option Explicit Private Type WSADATA wversion As Integer wHighVersion As Integer szDescr...

为什么vb中的函数要有一个返回值,这又是什么意思呢?
返回值就是一个函数的值 以C为例:int sum(){ int a=1,b=2;int c=a+b;return c } 看到a=1,b=2,c=a+b=3,最后是个return将C的值返回,意思是说将C的值作为函数的值,此时sum()就可以作为一个表达式来用了,比如:int d=sum();...

相似回答