动态数组在未分配的情况下，直接使用将会出现下标越界的错误，那么用什么方法可以判断是否被分配了？

Question

如：Dim arrTest(0)  As String   if UBound(arrTest)-LBound(arrTest)>0 then
       MsgBox "It's Ok!"
   else
       MsgBox "Error"
   end if以上程序在If语句中就会出错，因为arrTest只被定义了，而还没有分配空间，那么有什么别的方法可以判断是否动态数组已被指定了下标

Answer 1

Option ExplicitPrivate Sub Command1_Click()
    Dim a()
    Debug.Print ismalloc(a)
    ReDim a(10)
    Debug.Print ismalloc(a)
End SubPrivate Function ismalloc(ByRef a()) As Boolean
    On Error GoTo errhandle
    Dim i As Integer
    i = UBound(a)
    ismalloc = True
    Exit Function
errhandle:
    Err.Clear
    ismalloc = False
End Function