VBscript 数组 Ubound 函数详解28

在 VBscript 中，Ubound 函数用于确定已分配元素的最后索引值。它可以应用于任何类型的数组，包括静态数组、动态数组和对象数组。本篇文章将详细介绍 Ubound 函数的语法、参数、返回值以及使用示例。

语法```vbscript
UBound(arrayName, [dimension])
```

参数* arrayName：要确定最后索引值的数组变量名。
* dimension（可选）：用于指定要确定最后索引值的数组维度。如果省略此参数，则假定第一维。

返回值Ubound 函数返回指定维度数组中已分配元素的最后一个索引值。如果数组为空或未被分配，则返回 -1。

使用示例

静态数组
```vbscript
' 定义一个静态数组
Dim myArray(10)
' 填充数组元素
For i = 0 To 10
myArray(i) = i * 10
Next
' 获取数组第一维的最后索引值
last_index = UBound(myArray)
' 输出结果
"第一维的最后索引值：" & last_index
```


动态数组
```vbscript
' 定义一个动态数组
Dim myArray()
' 调整数组大小
= 10
' 填充数组元素
For i = 0 To 10
myArray(i) = i * 10
Next
' 获取数组第一维的最后索引值
last_index = UBound(myArray)
' 输出结果
"第一维的最后索引值：" & last_index
```


对象数组
```vbscript
' 定义一个对象数组
Dim myArray()
' 创建对象并将其添加到数组中
Set myArray(0) = CreateObject("")
Set myArray(1) = CreateObject("")
' 获取数组第一维的最后索引值
last_index = UBound(myArray)
' 输出结果
"第一维的最后索引值：" & last_index
```

多维数组Ubound 函数也可以用于多维数组。通过指定 dimension 参数，您可以确定要返回哪个维度的最后索引值。
```vbscript
' 定义一个二维数组
Dim myArray(10, 20)
' 填充数组元素
For i = 0 To 10
For j = 0 To 20
myArray(i, j) = i * 10 + j
Next
Next
' 获取数组第一维的最后索引值
last_index1 = UBound(myArray, 1)
' 获取数组第二维的最后索引值
last_index2 = UBound(myArray, 2)
' 输出结果
"第一维的最后索引值：" & last_index1
"第二维的最后索引值：" & last_index2
```

注意事项* Ubound 函数仅适用于已分配元素。未分配的元素索引将返回 -1。
* 如果数组具有稀疏索引，则 Ubound 函数会返回最后一个已分配元素的索引，而不是最高索引。
* 如果 arrayName 参数不是有效的数组变量名，则 Ubound 函数将引发错误。

2024-12-03

上一篇：VBScript 乱码解决方案

下一篇：VBScript 动态表格生成与操作