如何判断一个数组是空的？

[boywang]

dim str() as string
.....
如何判断一个数组是空的？

[lilaclone]

Private Sub Command1_Click()
Dim S() As String
Dim intCount As Integer

ReDim Preserve S(10) As String

S(1) = "Test"
For intCount = LBound(S) To UBound(S)
If S(intCount) <> "" Then
MsgBox "不为空"
Exit For
End If
Next
End Sub

[lilaclone]

其中ReDim Preserve S(10) As String为重定义数组的大小，保留数组中原有的值
LBound(S) 及 UBound(S)分别为数组的上限和下标

[boywang]

dim str() as string
.....
中间的过程并没有对str操作，后来再调用ubound（str）就出错了，我不想用on error goto...，怎么判断空的数组（不是空的字符串）呢？

[雷布斯尼亚]

我认为最简单的办法就是下面这两句写在一起：
Dim str() string
Redim str(0)

[starsoulxp]

用isempty 函数行不行？

[boywang]

还有没有其它的办法呢？

[flyingscv]

mark

[liberte]

gz

[boywang]

楼上的方法我早试过了，不行的。
不过我找了另外一个办法。