只包含一个值的变量称为标量变量。
有时候为了方便将一组相关值赋给一个变量,则成为数组变量。
区别标量与数组的唯一方式是:声明时数组变量名后面带有括号()。
接下来我们看看怎样声明一维数组及多维数组:
下面先简单的看个一维数组的示例:
1
2
3
4
5
6
7
8
9
10
11
12
|
Dim
MyArray()
'首先定义一个一维动态数组
ReDim
MyArray(3)
'重新定义该数组的大小
MyArray(0) =
"我"
'分别为数组赋值
MyArray(1) =
"要"
MyArray(2) =
"学"
MyArray(3) =
"习"
ReDim
Preserve
MyArray(5)
'重新定义该数组的大小
MyArray(4) =
"测"
'继续为数组赋值
MyArray(5) =
"试"
For
i=0
To
UBound(MyArray)
MsgBox MyArray(i)
'循环遍历数组,并输出数组值
Next
|
动态数组:
运行脚本时大小发生变化的数组,可以使用Dim或ReDim语句,但括号中不包含任何数字。
要使用动态数组,必须随后使用ReDim确定维数和每一维的大小。
若同时使用Preserve关键字,则在重新调整大小时保留数组的内容。
再接下来,看一下动态二维数组的示例:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Dim
MyArray()
'首先定义一个一维动态数组
ReDim
MyArray(1,1)
'重新定义该数组的大小
MyArray(0,0) =
"A"
'分别为数组赋值
MyArray(0,1) =
"a"
MyArray(1,0) =
"B"
MyArray(1,1) =
"b"
ReDim
Preserve
MyArray(1,2)
'重新定义该数组的大小
MyArray(0,2) =
"A-a"
'继续为数组赋值
MyArray(1,2) =
"B-b"
MsgBox UBound(MyArray,1)
MsgBox UBound(MyArray,2)
For
i=0
To
UBound(MyArray,1)
For
j=0
To
UBound(MyArray,2)
MsgBox MyArray(i,j)
'循环遍历数组,并输出数组值
Next
Next
|