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