请问怎么判断动态数组已经被ERASE过了？

Question

1、用错误处理
public function CheckErase(n() as ...) as boolean
    on error goto err_handle
    dim a as long
    a=ubound(n)
    CheckErase=False  '无错
    Exit function
Err_Hanlde:
    CheckErase=True  '有错
end Function2、有一种我自己试出来的方法，不知道是不是合你的要求
public function CheckErase(n() as ...) as boolean
    If Len(CStr(n))=0 then
         CheckErase=True   '已清除
    Else
         CheckErase=False  '未清除
    End If
end Function