vbs数组定义和用法
Array 可返回一个包含数组的变量。
注释：数组中的第一个元素是零。
语法
Array(arglist)
参数 描述
arglist 必需的。数组中元素值的列表（由逗号分割）。
实例
例子 1

1. dim a
   
2. a=Array(5,10,15,20)
   
3. document.write(a(3))

复制代码

输出：
20
例子 2

1. dim a
   
2. a=Array(5,10,15,20)
   
3. document.write(a(0))

复制代码

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

1. '静态数组
   
2. dim a(2)
   
3. a(0)="George"
   
4. a(1)="john"
   
5. a(2)="Ethon"
   
6. for i =0 to 2
   
7.   msgbox a(i)
   
8. next
   
9. for i =0 to ubound(a) 'ubound函数,返回指定数组维数的最大可用下标
   
10.   msgbox a(i)
    
11. next
    
12. 
    
13. 
    
14. '动态数组
    
15. dim a()
    
16. for i = 0 to 2
    
17. 　　redim preserve a(i) 'ReDim语句,用于过程级声明动态数组变量并分配或重新分配存储空间
    
18. 　　a(i)=i+1
    
19. 　　msgbox a(i)
    
20. next

复制代码

动态二维数组

1. '动态二维数组
   
2. Dim MyArray() '首先定义一个一维动态数组
   
3. ReDim MyArray(1,1) '重新定义该数组的大小
   
4. MyArray(0,0) = "A" '分别为数组赋值
   
5. MyArray(0,1) = "a"
   
6. MyArray(1,0) = "B"
   
7. MyArray(1,1) = "b"
   
8. ReDim Preserve MyArray(1,2) '重新定义该数组的大小
   
9. MyArray(0,2) = "A-a" '继续为数组赋值
   
10. MyArray(1,2) = "B-b"
    
11. MsgBox UBound(MyArray,1)
    
12. MsgBox UBound(MyArray,2)
    
13. For i=0 To UBound(MyArray,1)
    
14.   For j=0 To UBound(MyArray,2)
    
15.     MsgBox MyArray(i,j) '循环遍历数组，并输出数组值
    
16.   Next
    
17. Next

复制代码

一维动态数组

1. Dim MyArray() '首先定义一个一维动态数组
   
2. ReDim MyArray(3) '重新定义该数组的大小
   
3. MyArray(0) = "我" '分别为数组赋值
   
4. MyArray(1) = "要"
   
5. MyArray(2) = "学"
   
6. MyArray(3) = "习"
   
7. ReDim Preserve MyArray(5) '重新定义该数组的大小
   
8. MyArray(4) = "测" '继续为数组赋值
   
9. MyArray(5) = "试"
   
10. For i=0 To UBound(MyArray)
    
11.   MsgBox MyArray(i) '循环遍历数组，并输出数组值
    
12. Next

复制代码

这篇文章就介绍到这，需要的朋友可以参考一下。

来源：互联网
免责声明：如果侵犯了您的权益，请联系站长（1277306191@qq.com），我们会及时删除侵权内容，谢谢合作！