数组“下标超出范围”的异常行为

Question

在MS Word VBA中考虑以下代码：

Sub Test()
    Dim x() As Document
    ReDim Preserve x(UBound(x) + 1)
    Set x(UBound(x)) = Application.ActiveDocument
End Sub

如果我将光标放在里面并按F5键运行它，则会收到错误消息

下标超出范围

在ReDim Preserve x(UBound(x) + 1) 。 具体来说，它不喜欢UBound(x) ，尽管它应该基于MSDN返回-1 （请参见“返回值”下的内容）。

现在，如果我在ReDim Preserve x(UBound(x) + 1)上设置一个断点，运行它，然后将光标悬停在UBound(x) ，则表明相同：

但是我发现，如果我将鼠标悬停在以下行中的变量x上：

然后返回并再次将鼠标悬停在上一行的UBound(x)上，我得到一个不同的结果：

然后，如果我按F5键运行其余代码，的确，那时候我没有出错。

此外，如果我更改代码以添加IsArray(x) ：

Sub Test()
    Dim x() As Document
    IsArray (x) 'This is just here to preclude VBA array "bug"
    ReDim Preserve x(UBound(x) + 1)
    Set x(UBound(x)) = Application.ActiveDocument
End Sub

它也运行良好。 发生了什么，如何在没有IsArray(x) hack的情况下使代码在运行时工作？

Answer 1

MSDN：

如果Array只有一个元素，则UBound返回0。如果Array没有元素，例如，如果它是长度为零的字符串，则UBound返回-1。

这并不是说数组没有元素，未初始化或没有维度。 在不首先在数组上至少使用一次ReDim或不使用错误处理的情况下，您不应该依赖UBound的值。

更好的方法是使用错误处理：

Dim x() As Document

Dim n As Long
On Error Resume Next
Err.Clear
n = LBound(x)
If Err.Number = 0 Then
    Debug.Print "Array is allocated."
Else
    Debug.Print "Array is not allocated."
End If

其他注意事项，请参见此链接 。

或者，如果可能，请确保数组的尺寸至少为一次（ ReDim ）。