Question

VB6.0: 如何判断数组是否为空？

Dim ArrayS() as string
如何判断这个数组是否被赋值？

Answer 1

一： 利用错误捕获功能判断
Dim ArrayS() As String
Private Sub Command1_Click()
On Error GoTo z
If UBound(ArrayS) > -1 Then
   MsgBox "数组不为空"
End If
z:
   MsgBox "数组空"
End Sub 
二、 Join方法：
Dim ArrayS() As String
Private Sub Command1_Click()
    If (CStr(Join(ArrayS, ""))) = "" Then
        MsgBox "为空"
    Else
        MsgBox "不为空"
    End If
End Sub