分享：VB6如何判断数组是否初始化

Declare Function SafeArrayGetDim Lib "oleaut32.dll" (ByRef saArray() As Any) As Long
如果数组已经初始化，则返回非0，否则返回0。

刚刚测试了下，用not数组名来判断数组为空，遇到bug了。只要not 数组名后，对single类型变量赋值，再debug.print 输出就会出现表达式太复杂了，但是编译就没问题了

'------------------------------------------------------------
'函数名：IsInitArr
'类型：Boolean
'参数：
' Arr-必选参数，Variant，任意数组
Public Function IsInitArr(Arr As Variant) As Boolean
'返回数组 Arr 是否已经初始化，若是则返回 True，否则返回 False
If IsArray(Arr) Then
On Error Resume Next
'--------------------------------------------------
'IsInitArr = UBound(Arr)
'这是为了排除 Array() 这种特殊情况
'其范围被认为是 0 To -1，但仍然是越界的
IsInitArr = UBound(Arr) >= LBound(Arr)
'--------------------------------------------------
If Err.Number = 9 Then IsInitArr = False
Else
Throw 5, "参数 Arr 必须是数组类型而不能是 " & TypeName(Arr) & " 类型"
End If
End Function
'------------------------------------------------------------