能否判断动态数组有没有被分配过?
来源:互联网 发布:mac os设置默认输入法 编辑:程序博客网 时间:2024/04/30 11:12
动态数组在VB语言中常能起到出奇制胜的作用。但数组有没有被重新定义或释放,用“is empty”,“is null”,“=" "”等方法都不起作用。所以判断时一般采用侦别错误消息(ON ERROR )的方法。下面给出一个非错误侦别的代码,判断动态字符串数组的分配情况:
Private Sub Command1_Click()
Dim a() As String, i As Long
MsgBox hasredim(a), 64, "Has a() been redimed?" '未初始化
ReDim a(20)
For i = 1 To 20
a(i) = chr(i+64)
Next
MsgBox hasredim(a), 64, "Has a() been redimed?" '初始化后
Erase a '释放空间后
MsgBox hasredim(a), 64, "Has a() been redimed?"
End Sub
Function hasredim(ByRef x() As String) As Boolean '定义布尔函数
Dim temp As String
temp = Join(x, ",")
hasredim = LenB(temp) > 0 '空数组长度为零
End Function
- 能否判断动态数组有没有被分配过?
- 能否判断动态数组有没有被分配过?
- 怎么判断某个库中的某张表在某个时间段有没有被使用过
- 判断字符串数组能否首尾相连
- 水题 判断能否被4整除或者含 有4
- 判断数组中有没有连续和为0
- PHP判断数组下标有没有存在的方法
- 你有没有过?-------Day87
- 判断有没有网
- 判断有没有网络
- C++动态数组分配
- 动态数组分配
- 动态数组分配内存
- C++动态数组分配
- 动态三维数组分配:
- C++动态数组分配
- C++ 动态数组分配
- C++动态数组分配
- 利用集合进行数组的排序
- 递归与组合
- 菜单字体颜色可以更改吗?
- 递归方法巧解不定方程
- API 更改系统菜单条目
- 能否判断动态数组有没有被分配过?
- 递归与排列
- 利用EXCEL 实现字符串的计算
- 利用API 实现字符串表达式的计算
- 关于天文数字十进制与十六进制间的转换
- 如何取得文本框中包含指定字符串的行
- 大数阶乘的计算(一)
- 大数阶乘的计算(二)
- 关于日期的中文转换