如何判断一个数组为空数组?

Question

即没有元素也没有维数的数组??该如何判断

Answer 1

用错误处理。如：on error goto err_handler    print ubound(a)   'a在之前已声明，如： dim a() as integer
    exit suberr_handler:
    msgbox "a尚未redim"

Answer 2

只能用error判断吗?
可我前面用了on error resume next 这怎么办?

Answer 3

Private Function isArrEmpty(a()) As Boolean
    On Error GoTo errEmpty
    
    Dim x
    
    x = UBound(a)
    isArrEmpty = False
    
    Exit Function
errEmpty:
    isArrEmpty = True
End Function
Private Sub Command1_Click()
    Dim a()
    
    On Error Resume Next
    
    Debug.Print isArrEmpty(a)
End Sub