VB中怎么判断一个动态数组？

Question

VB中有什么方法判断一个动态数据是否进行过了Redim操作
我试过了，数组名　＝　“”，不过不行。
提示是：类型不匹配。

Answer 1

On Error Goto ErrHandlerdim ab() as integer
...ErrHandler:
if Err.Number=类型不匹配的错误号 then
    ...
    ...
end if

Answer 2

用UBound()看是否和原来的大小相同，不同则肯定ReDim过了。

Answer 3

if ubound(array())-lbound(array())=0 then .....

Answer 4

如果声明了array() 后未进行redim操作时，用UBOUND（）就会出错啊

Answer 5

不知道你进行这操作有什么意义？
你可以设个开关量来记录是否操作。
在使用前你应该先初始化呀！在程序或模块初始化时，redim array(0)
在写入前要判断数组的上下限（UBOUND，LBOUND）当然你可以设置下限为 redim array(-1)
以后动态扩充数组。