在VB中，一个function只能用一个return语句返回一个值。哪怕有几个return语句，也只能执行一个。
目前成都创新互联公司已为近1000家的企业提供了网站建设、域名、虚拟主机、网站改版维护、企业网站设计、汾西网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。
如果需要返回多个值，可以使用数组，数组的每一个元素值都可以带回来。
单个变量只能在在VB中，一个function只能用一个return语句返回一个值。哪怕有几个return语句，也只能执行一个。
如果需要返回多个值，可以使用数组，数组的每一个元素值都可以带回来。
单个变量只能使用by在VB中，一个function只能用一个return语句返回一个值。哪怕有几个return语句，也只能执行一个。
如果需要返回多个值，可以使用数组，数组的每一个元素值都可以带回来。
单个变量只能在声明函数的某个参数时使用byref前缀。
其他方法如使用全局变量等，已经不属于返回值的问题了。
要返回多个值，有几种办法，最直接的就是用传址参数
Function f1(byref retVal1,byref retVal2)
或者用全局变量（比如模块级变量）
或者返回包装过的对象
或者返回多个返回值糅合的字符串
Public Class Form1
Public Class SquareClass '把多线程调用的函数封装到类中，通过类事件返回
Public Value As Double
Public Square As Double
Public Event ThreadComplete(ByVal Square As Double)
Public Sub CalcSquare()
Square = Value * Value
RaiseEvent ThreadComplete(Square)
End Sub
End Class
Dim WithEvents oSquare As SquareClass
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click '多线程返回值测试，当线程运行完成激发事件
oSquare = New SquareClass()
Dim t As New Threading.Thread(AddressOf oSquare.CalcSquare)
oSquare.Value = 30
t.Start()
End Sub
Sub SquareEventHandler(ByVal Square As Double) Handles oSquare.ThreadComplete '响应事件函数
MsgBox("The square is " Square)
End Sub
End Class
