VBScript数组函数

Array()

语法
Array(arglist)
该函数返回一个包含了一个数组的 Variant。
参数 arglist 是必要的，是以逗号隔开的值。这些值是被指定为 Variant 中数组的元素。如果没有指定参数，则会建立零长度的阵列。
注解:
当要引用数组元素时，使用的表示法为变数名称后加上以括号括起来的索参数字。在下列范例中，第一个陈述式建立一个名为 A 的 Variant 变数。第二个陈述式指定一个数组给变数 A。最后一个陈述式将阵列中第二个元素的值指定给另一个变数。

Dim A
A = Array(10,20,20)
B = A(2)

附注:
不是定义数组的变数仍然可以含有数组元素。在观念上，含有数组的 Variant 变数和含有 Variant 元素的数组变数是不同的。但是在数组元素的存取方法上，并没有什么不同.

 

LBound()

语法
LBound(arrayname[, dimension])
返回指定数组某维最小可使用的数组索引。.
LBound 函数语法有下列几部份：
Arrayname数组变量的名称，遵循标准变量命名规格。
dimension 表示返回的是某一维的下限。1 表示第一维，2 表示第二维，依此类推。如果省略 dimension，其默认值为 1。
注解:
同时使用 LBound 函数和 UBound 函数来决定数组的大小。使用 UBound 函数来找出数组每一维的上限。
任何维数预设的下限永远是 0。

 

UBound()

语法
UBound(arrayname[, dimension])
返回指定数组某维最大可使用的索引。
UBound 函数语法有下列几部份：
arrayname 必要的参数。数组变量的名称，遵循标准变数命名规格。
dimension 选择项。表示返回的是那一维的上限。1 表示第一维，2 表示第二维，依此类推。如果省略 dimension，则默认是 1。
注解:
UBound 函数和 LBound 函数一起使用可以决定阵列的大小。使用 LBound 函数来找出阵列每一维的下限。
任何维数初试值的下限永远是 0。所以，若数组的维数如下所示，UBound 返回如下表的值：
Dim A(100,3,4)
返回值
UBound(A, 1)为 99
UBound(A, 2)为 2
UBound(A, 3)为 3

 

 

返回数组

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

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

End Function