VBA数组（十四）

我们都知道，一个变量是一个存储值的容器。 有时，开发人员希望一次可以在一个变量中保存多个值。 当一系列值存储在单个变量中时，则称为数组变量。

数组声明

数组声明的方式与声明变量相同，只是数组变量的声明使用括号。 在下面的例子中，括号里提到了数组的大小。参考以下示例 -

'Method 1 : Using Dim
Dim arr1()    'Without Size
 
'Method 2 : Mentioning the Size
Dim arr2()  'Declared with size of 5
 
'Method 3 : using 'Array' Parameter
Dim arr3
arr3 = Array("apple","Orange","Grapes")

在上面代码中，

• 虽然数组大小被指定为5，但是当数组索引从零开始时，它可以保持6个值。
• 数组索引不能是负数。
• VBScript数组可以在数组中存储任何类型的变量。因此，一个数组可以在一个数组变量中存储一个整数，字符串或字符。

赋值给数组

通过为每个要分配的值指定一个数组索引值，将这些值分配给数组。它可以是一个字符串。

例子

添加一个模块并添加以下代码 -

Private Sub Constant_demo_Click()
   Dim arr()
   arr() = ""           'Number as String
   arr() = "VBScript"    'String
   arr() =             'Number
   arr() = 2.45            'Decimal Number
   arr() = #//#  'Date
   arr() = #12.45 PM#    'Time
 
   msgbox("Value stored in Array index 0 : " & arr())
   msgbox("Value stored in Array index 1 : " & arr())
   msgbox("Value stored in Array index 2 : " & arr())
   msgbox("Value stored in Array index 3 : " & arr())
   msgbox("Value stored in Array index 4 : " & arr())
   msgbox("Value stored in Array index 5 : " & arr())
End Sub

当执行上面的函数时，它会产生下面的输出。

Value stored in Array index  :
Value stored in Array index  : VBScript
Value stored in Array index  :
Value stored in Array index  : 2.45
Value stored in Array index  : //
Value stored in Array index  : :: PM

多维数组

数组不仅限于一个维度，但它们最多可以有60个维度。 二维数组是最常用的数组。

例子

在下面的例子中，一个多维数组被声明为3行4列。

Private Sub Constant_demo_Click()
   Dim arr(,) as Variant    ' Which has 3 rows and 4 columns
   arr(,) = "Apple"
   arr(,) = "Orange"
   arr(,) = "Grapes"
   arr(,) = "pineapple"
   arr(,) = "cucumber"
   arr(,) = "beans"
   arr(,) = "carrot"
   arr(,) = "tomato"
   arr(,) = "potato"
   arr(,) = "sandwitch"
   arr(,) = "coffee"
   arr(,) = "nuts"            
 
   msgbox("Value in Array index 0,1 : " &  arr(,))
   msgbox("Value in Array index 2,2 : " &  arr(,))
End Sub

当执行上面的函数时，它会产生下面的输出。

Value stored in Array index :  ,  : Orange
Value stored in Array index :  ,  : coffee

ReDim语句

ReDim语句用于声明动态数组变量并分配或重新分配存储空间。

ReDim [Preserve] varname(subscripts) [, varname(subscripts)]

参数说明

• Preserve - 一个可选参数，用于在更改最后一个维度的大小时保留现有数组中的数据。
• Varname - 必需的参数，表示变量的名称，应遵循标准变量命名约定。
• Subscripts - 必需的参数，表示数组的大小。

例子

在下面的例子中，数组已经被重新定义，当数组的现有大小发生改变时，这些值被保存下来。

注意 - 调整数组的大小时，删除的元素中的数据将丢失。

Private Sub Constant_demo_Click()
   Dim a() as variant
   i =
   redim a()
   a() = "XYZ"
   a() = 41.25
   a() = 
 
   REDIM PRESERVE a()
   For i =  to
   a(i) = i
   Next
 
   'to Fetch the output
   For i =  to ubound(a)
      Msgbox a(i)
   Next
End Sub

当执行上面的函数时，它会产生下面的输出。

XYZ
41.25

数组方法

VBScript中有各种内置函数，可以帮助开发人员有效地处理数组。 下面列出了与数组一起使用的所有方法。请点击方法名称来详细了解它们如何应用。

编号	方法	描述
1	LBound	它返回一个整数，对应于给定数组的最小下标。
2	UBound	它返回一个整数，对应于给定数组的最大下标。
3	Split	它返回一个包含指定数量值的数组。根据分隔符分割。
4	Join	它返回一个包含数组中指定数量的子串的字符串。这是Split方法的一个完全相反的功能。
5	Filter	它返回一个基于零的数组，该数组包含基于特定过滤条件的字符串数组的子集。
6	IsArray	它返回一个布尔值，表示输入变量是否是一个数组。
7	Erase	为数组变量恢复分配的内存。