VBScript 数组赋值 - 详解各类赋值方法317

## 数组字面量赋值
VBScript 中最直接的数组赋值方法是使用数组字面量。数组字面量是一个由逗号分隔的值的列表，用方括号括起来。例如：
```vbscript
Dim arrNumbers = Array(1, 2, 3, 4, 5)
```
上面的代码创建一个包含五个数值的数组。数组中的元素可以使用索引访问。
## 赋值
VBScript 中还可以使用 `()` 方法来创建数组。该方法接受一个或多个值作为参数，并返回一个包含这些值的数组。例如：
```vbscript
Dim arrNumbers = (1, 2, 3, 4, 5)
```
这将创建与上方数组字面量赋值类似的数组。
## ForEach 循环赋值
使用 `ForEach` 循环可以在单个语句中向数组赋值多个值。`ForEach` 循环遍历一个对象的每个元素，并为每个元素执行一条语句。例如：
```vbscript
Dim arrNumbers = Array()
For i = 1 To 5
arrNumbers(i - 1) = i
Next
```
这将创建一个与上方类似的包含五个数值的数组。
## ReDim 重新赋值
`ReDim` 语句可以在现有数组上重新分配空间。它可以增加或减少数组的尺寸。例如：
```vbscript
Dim arrNumbers(4)
arrNumbers(0) = 1
arrNumbers(1) = 2
arrNumbers(2) = 3
arrNumbers(3) = 4
arrNumbers(4) = 5 '错误：数组索引超出范围
' 重新分配空间，使其包含 5 个元素
ReDim arrNumbers(4)
arrNumbers(4) = 5
```
上面的代码首先创建一个五元素的数组，然后将其重新分配为六个元素，从而允许访问第五个索引。
## LBound 和 UBound 赋值
`LBound` 和 `UBound` 函数可以获取或设置数组的边界。`LBound` 返回数组的第一个索引，而 `UBound` 返回最后一个索引。例如：
```vbscript
Dim arrNumbers = Array(1, 2, 3, 4, 5)
"数组的下界：" & LBound(arrNumbers)
"数组的上界：" & UBound(arrNumbers)
```
输出：
```
数组的下界：0
数组的上界：4
```
还可以使用 `LBound` 和 `UBound` 来设置数组的边界。例如：
```vbscript
Dim arrNumbers
ReDim arrNumbers(0 To 4) ' 创建一个包含 5 个元素的数组
```
这等效于 `Dim arrNumbers(4)` 语句。
## 对象赋值
VBScript 中的数组也可以包含对象。例如：
```vbscript
Dim arrPersons = Array()
Set arrPersons(0) = CreateObject("")
Set arrPersons(1) = CreateObject("")
```
这将创建一个包含两个对象的数组。
## Variant 赋值
Variant 变量可以包含各种类型的值，包括数组。例如：
```vbscript
Dim varNumbers
varNumbers = Array(1, 2, 3, 4, 5)
```
这将创建一个 Variant 变量，其中包含一个整数数组。
## Assign 赋值
`Assign` 语句可以将一个数组赋值给另一个数组。例如：
```vbscript
Dim arrNumbers1 = Array(1, 2, 3, 4, 5)
Dim arrNumbers2
arrNumbers1
```
这将创建一个与 `arrNumbers1` 具有相同值的 `arrNumbers2` 数组。
## 按位置赋值
VBScript 中的数组也可以使用按位置的函数参数赋值。例如：
```vbscript
Function SumArray(arrNumbers())
Dim sum = 0
For i = LBound(arrNumbers) To UBound(arrNumbers)
sum += arrNumbers(i)
Next
SumArray = sum
End Function
```
这将创建一个接受数组作为参数并返回其值总和的函数。
## 按名称赋值
VBScript 中的数组也可以使用按名称的函数参数赋值。例如：
```vbscript
Function GetArrayValue(arrNumbers(), key)
If key

2024-12-11

---

上一篇：VBScript 查询语句使用指南

下一篇：嵌入 VBScript 的 PHP 编程