菜鸟一问：如何判断一个动态数组为空。

Question

dim a()if ubound(a) = 0 then 
    msgbox "指针为空！"
end if

Answer 1

我觉得不能判断动态数组，只能判断单个变量，用isempty()

Answer 2

Private Sub Form_Load()
    Dim a()
    Dim i As Integer
On Error GoTo Err
    i = UBound(a)
    MsgBox i
    Exit Sub
Err:
    MsgBox "数组为空！"
    ReDim a(122)
    MsgBox "已经给数组赋值：" + CStr(UBound(a))
    Exit Sub
End Sub

Answer 3

这里找不到答案吗？来这里试试看！
这里有问必答
http://systemer.51.net/cgi-bin/leoboard.cgi
希望你能在这里找到你满意的答案

Answer 4

http://www.csdn.net/develop/read_article.asp?id=12902

Answer 5

Private Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (Var() As Any) As Long
为空 = (VarPtrArray(数组名)=0)

Answer 6

zyl910(910：分儿，我来了！)  ： 你说的这个函数我没找到帮助在哪？ 是未公开的那部分？