VBS中函数返回数组值是怎么做的，希望能给举个例子。谢谢

Question

如题所述

Answer 1

下边是个简单的例子，示例如何在Function过程中返回数组

x=GetArr(9) '调用getarr过程返回10(0-9)个元素的数组，并赋值给x
For i = 0 To UBound(x) '枚举刚才返回的数组
arrstr=arrstr & "GetArr(" & i & ")=" & x(i) & vbCrLf
Next
Msgbox arrstr '显示结果

Function GetArr(x)
ReDim f(x) '动态根据变量调整数组大小
For i = 0 To x
f(i)= rnd '生成随机变量
Next
GetArr=f '数组赋给返回值
End Function

Answer 2

Private Function GetArr(x)
Dim f(0 To 9) As Integer
For i = 0 To 9
f(i) = i + 5
Next i
GetArr = f(x)
End Function

Answer 3

不能返回数组