數組“下標超出范圍”的異常行為

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 ）。