用Variant数组
Dim a As Variant
Debug.Print IsEmpty(a)
ReDim a(10)
Debug.Print IsEmpty(a)
Dim a As Variant
Debug.Print IsEmpty(a)
ReDim a(10)
Debug.Print IsEmpty(a)
解决方案 »
- excel中“查看代码”那里不能点,怎么办?
- 急!!!!!!!!!!!!!!!!!
- 想换程序学习的网友请进。
- “实时错误'-2147467259(80004005)':未指定的错误”是一个什么错误(blob存储过程中出现的错误)
- 几个关于 WebBrowser 的问题
- VB 让Com口接受组合键
- 兄弟们,做一份调查,请大家谈谈关于自已想开发什么样的软件,以及市场上会需要什么软件(内详)
- 怎么实现类似QQ的菜单,即控制菜单弹出的方向,向上和向左弹出?
- datagrid控件的刷新问题
- VB中调用摄像头视频捕捉问题,急求解决方法
- 数据库问题!!
- 高分!大家帮帮忙!! 往calendar里填文字的问题
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