vb中有没有函数数组，即返回值为一个数组

Question

同题
可否给出代码

Answer 1

Array 函数返回一个包含数组的 Variant。语法Array(arglist)所需的 arglist 参数是一个用逗号隔开的值表，这些值用于给 Variant 所包含的数组的各元素赋值。如果不提供参数，则创建一个长度为 0 的数组。说明用来表示数组元素的符号由变量名、圆括号以及括号中的所需元素的索引号组成。在下面的示例中，第一条语句创建一个 Variant 的变量 A。第二条语句将一个数组赋给变量 A。最后一条语句将该数组的第二个元素的值赋给另一个变量。Dim A As Variant
A = Array(10,20,30)
B = A(2)使用 Array 函数创建的数组的下界总是 0。这和其它类型的数组不同，它不受 Option Base 语句指定的下界的影响。注意   没有作为数组声明的 Variant 也可以表示数组。除了长度固定的字符串以及用户定义类型之外，Variant 变量可以表示任何类型的数组。尽管一个包含数组的 Variant 和一个元素为 Variant 类型的数组在概念上有所不同，但对数组元素的访问方式是相同的。=================================================================
该示例使用 Array 函数来返回一个包含 Variant 的数组。Dim MyWeek, MyDay
MyWeek = Array("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun")
'返回值假设下界的设置为 1（使用 Option Base
' 语句）。
MyDay = MyWeek(2) 'MyDay 的值为 "Tue"。
MyDay = MyWeek(4) 'MyDay 的值为 "Thu"。

Answer 2

lsm0959,参数返回什么意思，能否详细说明

Answer 3

函数可以用变体（Variant）返回数组。

Answer 4

最好用byref的方式，这样和其他语言的兼容性可以保证。
比如：function FunA(byref sou() as byte,byref des() as byte)
 ...
 ...
end function

Answer 5

Option ExplicitPublic Function GetArray() As Long()
    Dim intArr() As Long
    ReDim intArr(1) As Long
    intArr(0) = 1
    intArr(1) = 2
    GetArray = intArr
End FunctionPrivate Sub Form_Load()
    Dim intArr() As Long
    intArr = Me.GetArray()
    MsgBox intArr(0) & "  " & intArr(1)
End Sub