VBS基础篇 - 数组

数组变量：有时需要向一个单一的变量赋于多个值，那么您可以创建一个可包含一系列值的变量，这种变量被称为数组。

'静态数组
dim a()
a()="George"
a()="john"
a()="Ethon"
for i = to
    msgbox a(i)
next
for i = to ubound(a) 'ubound函数,返回指定数组维数的最大可用下标
    msgbox a(i)
next

'动态数组
dim a()
for i =  to
　　redim preserve a(i) 'ReDim语句,用于过程级声明动态数组变量并分配或重新分配存储空间
　　a(i)=i+ 
　　msgbox a(i)
next

'动态二维数组
Dim MyArray() '首先定义一个一维动态数组
ReDim MyArray(,) '重新定义该数组的大小
MyArray(,) = "A" '分别为数组赋值
MyArray(,) = "a"
MyArray(,) = "B"
MyArray(,) = "b"
ReDim Preserve MyArray(,) '重新定义该数组的大小
MyArray(,) = "A-a" '继续为数组赋值
MyArray(,) = "B-b"
MsgBox UBound(MyArray,)
MsgBox UBound(MyArray,)
For i= To UBound(MyArray,)
    For j= To UBound(MyArray,)
        MsgBox MyArray(i,j) '循环遍历数组，并输出数组值
    Next
Next

Dim MyArray() '首先定义一个一维动态数组
ReDim MyArray() '重新定义该数组的大小
MyArray() = "我" '分别为数组赋值
MyArray() = "要"
MyArray() = "学"
MyArray() = "习"
ReDim Preserve MyArray() '重新定义该数组的大小
MyArray() = "测" '继续为数组赋值
MyArray() = "试"
For i= To UBound(MyArray)
    MsgBox MyArray(i) '循环遍历数组，并输出数组值
Next