vbscript基础篇 - vbs数组Array的定义与使用方法

vbs数组定义和用法

Array 可返回一个包含数组的变量。
注释:数组中的第一个元素是零。

语法

Array(arglist)
参数 描述
arglist 必需的。数组中元素值的列表(由逗号分割)。

实例

例子 1

?

1

2

3

dim a

a=Array(5,10,15,20)

document.write(a(3))

输出:

20

例子 2

?

1

2

3

dim a

a=Array(5,10,15,20)

document.write(a(0))

输出:
5

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

?

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

'静态数组

dim a(2)

a(0)="George"

a(1)="john"

a(2)="Ethon"

for i =0 to 2

msgbox a(i)

next

for i =0 to ubound(a) 'ubound函数,返回指定数组维数的最大可用下标

msgbox a(i)

next

'动态数组

dim a()

for i = 0 to 2

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

  a(i)=i+1

  msgbox a(i)

next

动态二维数组

?

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

'动态二维数组

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

一维动态数组

?

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

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

原文链接:http://www.cnblogs.com/wakey/p/5728192.html

本文链接:https://my.lmcjl.com/post/15632.html

展开阅读全文

4 评论

留下您的评论.