VBS 数组

数组在很多语言中都会被应用到。并且它的作用是不可小视的，在处理数据集合的时候非常有用。

这里介绍几种最常用的数组声明方式：

普通方式：

Dim arr(2) arr(0) = “test1″ arr(1) = “test2″ arr(2) = “test3″ msgbox arr(1) ‘打印出test2

Array函数方式:

arr ＝ Array(“t1″,”t2″,”t3″) msgbox arr(1) ‘打印出t2

动态数组声明：

Dim arr() ReDim arr(3)

这三种方式数组的声明方式必须要掌握，后期的内容中会经常使用到。

 

对于数组的声明之前我们已经提到过了，但是数组在实际应用中还经常会遇到一些特殊的处理，并且都十分的实用，那么接下来就来具体讲解下这些数组的处理方式：

1. Array函数

 

arr = array("t1","t2") MsgBox arr(0) MsgBox arr(1)

分析：此方法可直接声明数组，而不用一个个赋值，在之前已经介绍过，这里再巩固一下。

2. LBound函数和UBound函数

 

arr = array("t1","t2","t3") For i=0 To UBound(arr)-LBound(arr) MsgBox arr(i) Next

分析：UBound返回数组最大下标，LBound返回数组最小下标。

3. Join函数

 

arr = array("t1","t2","t3") MsgBox Join(arr,",")

分析：最终打印结果为“t1,t2,t3”,Join函数主要用于拼接数组，并可以控制分割的符号。

4. Split函数

 

stng = "t1,t2,t3" arr = Split(stng,",") MsgBox arr(0) MsgBox arr(1) MsgBox arr(2)

分析：此函数可以把有一定规律的字符串进行分割，相当于join函数的逆向思维。

 

ReDim 语句在过程级中声明动态数组变量并分配或重新分配存储空间。

ReDim [Preserve] varname(subscripts) [, varname(subscripts)] . . .

参数
Preserve

当更改现有数组最后一维的大小时保留数据。

varname

变量名，遵循标准变量命名约定。

subscripts

数组变量的维数，最多可以声明 60 维数组。subscripts 参数语法格式如下：

upper [,upper] . . .

数组的下界总是零。

说明
ReDim 语句通常用于指定或修改动态数组的大小，这些数组已用带有空括号的 Private、Public 或 Dim 语句（没有维数下标）正式声明过。可以重复使用 ReDim 语句更改数组维数和元素数目。

如果使用了 Preserve 关键字，就只能调整数组最后维的大小，并且不能改变数组的维数。例如，如果数组只有一维，就可以修改该数组的大小，因为该维是最后的也是仅有的一维。但是，如果数组有两个或更多维，就只能改变末维的大小并保留数组内容。

这个例子说明如何不擦掉该数组中存在的数据，而增加动态数组的终止维数。

ReDim X(10, 10, 10). . .ReDim Preserve X(10, 10, 15)小心 如果减小数组的大小，则将丢失被排除的元素中的数据。

变量初始化时，数值变量初始化为 0，字符串变量初始化为零长度字符串 ("")。在使用引用对象的变量前，必须使用 Set 语句将某个现有对象赋予该变量。在进行对象赋值以前，已声明的对象变量有特定值 Nothing。

详细出处参考：http://www.jb51.net/article/4503.htm