VBA编程-使用数组

时　间:2023-01-12 11:46:47
作　者:福哥(QQ86053924)   ID：1784  城市：成都
摘　要:您可以声明一个数组以处理一组相同数据类型的值。 数组是具有多个可存储值的隔离舱的单个变量，而典型的变量只有一个存储隔离舱，其中只能存储一个值。 您可以在需要引用数组中包含的所有值时将数组作为整体引用，也可以引用其中的单个元素。
正　文:

VBA编程-使用数组

您可以声明一个数组以处理一组相同数据类型的值。 数组是具有多个可存储值的隔离舱的单个变量，而典型的变量只有一个存储隔离舱，其中只能存储一个值。 您可以在需要引用数组中包含的所有值时将数组作为整体引用，也可以引用其中的单个元素。

例如，若要存储一年中每天的日常开支，您可以声明一个具有 365 个元素的数组变量，而不是声明 365 个变量。 数组中的每个元素包含一个值。 以下语句声明具有 365 个元素的数组变量。 默认情况下，数组的索引从零开始，因此该数组的上限是 364 而不是 365。

VB复制

Dim curExpense(364) As Currency 

若要设置单个元素的值，您可以指定该元素的索引。 以下示例向该数组中的每个元素均分配一个初始值 20。

VB复制

Sub FillArray() 

 Dim curExpense(364) As Currency 

 Dim intI As Integer 

 For intI = 0 to 364 

 curExpense(intI) = 20 

 Next 

End Sub

更改下限

使用 模块顶部的 Option Base 语句将第一个元素 的默认索引从 0 更改为 1。 在下面的示例中， Option Base 语句更改第一个元素的索引， Dim 语句声明包含 365 个元素的数组变量。

VB复制

Option Base 1 

Dim curExpense(365) As Currency 

也可以通过使用 To 子句明确设置数组的下限，如以下示例所示。

VB复制

Dim curExpense(1 To 365) As Currency 

Dim strWeekday(7 To 13) As String 

在数组中存储 Variant 值

有两种方法可以创建 Variant 值的数组 。 一种是声明 Variant 数据类型的数组，如以下示例所示：

VB复制

Dim varData(3) As Variant 

varData(0) = "Claudia Bendel" 

varData(1) = "4242 Maple Blvd" 

varData(2) = 38 

varData(3) = Format("06-09-1952", "General Date") 

另一种方法是将 Array 函数返回的数组分配给 Variant 变量，如以下示例所示：

VB复制

Dim varData As Variant 

varData = Array("Ron Bendel", "4242 Maple Blvd", 38, _ 

Format("06-09-1952", "General Date")) 

无论使用哪种方法创建数组，均可通过索引识别 Variant 值的数组中的元素。 例如，以下语句可添加到上述两个示例中的任意一个示例中。

VB复制

MsgBox "Data for " & varData(0) & " has been recorded." 

使用多维数组

在 Visual Basic 中，您可以声明最多包含 60 个维度的数组。 例如，以下语句声明了一个二维、5*10 的数组。

VB复制

Dim sngMulti(1 To 5, 1 To 10) As Single 

如果将数组看作矩阵，则第一个参数表示行，第二个参数表示列。

使用嵌套 For...处理 多维数组的下一语句。 以下过程使用 Single 值填充一个二维度组。

VB复制

Sub FillArrayMulti() 

 Dim intI As Integer, intJ As Integer 

 Dim sngMulti(1 To 5, 1 To 10) As Single 

 ' 用值填充数组。 

 For intI = 1 To 5 

 For intJ = 1 To 10 

 sngMulti(intI, intJ) = intI * intJ 

 Debug.Print sngMulti(intI, intJ) 

 Next intJ 

 Next intI 

End Sub