欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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

程序员文章站 2022-06-17 21:54:20
vbs数组定义和用法 array 可返回一个包含数组的变量。 注释:数组中的第一个元素是零。 语法 array(arglist) 参数 描述 argl...

vbs数组定义和用法

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

语法

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

实例

例子 1

dim a
a=array(5,10,15,20)
document.write(a(3))

输出:

20

例子 2

dim a
a=array(5,10,15,20)
document.write(a(0))

输出:
5

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

'静态数组
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

动态二维数组

'动态二维数组
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

一维动态数组

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

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

相关标签: vbs 数组 Array