一： 利用错误捕获功能判断
十余年的金平网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。营销型网站的优势是能够根据用户设备显示端的尺寸不同，自动调整金平建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。创新互联公司从事“金平网站设计”,“金平网站推广”以来，每个客户项目都认真落实执行。
Dim ArrayS() As String
Private Sub Command1_Click()
On Error GoTo z
ReDim ArrayS(10)
If UBound(ArrayS) -1 Then
MsgBox "数组不为空"
End If
Exit Sub
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
VB中Join是把一个一维数组里面的元素用某个指定的符号合并从一个字符串
如数组 Arr(0)= "1"
arr(1)="2"
arr(2)="3"
则 s = join（arr） 结果 s="1 2 3"
s=join(arr,"；") 结果 s="1；2；3"
帮助文档：
Join函数 ，返回一个字符串，该字符串是通过连接某个数组中的多个子字符串而创建的。
语法，Join(list[, delimiter])：
Join函数语法有如下几部分：
部分 描述
list 必需，包含被连接子字符串的一维数组。
delimiter 可选的。在返回字符串中用于分隔子字符串的字符。如果忽略该项，则使用空格(" ")来
分隔子字符串。如果delimiter是零长度字符串("")，则列表中的所有项目都连接在一起，
中间没有分隔符。
join的第一个参数必须是数组，你的caiSumGoal是数组吗，不是就会出错。
take part in,等于join
join, take part in 的区别：
1， join 的主要用法如下：
(1) 表示参加或加入某团体、党派、组织等，并成为其中的一个成员。如：
join the Party 入党
join the League 入团
join the Army 参军
join the Trade Union 参加工会
注：join 是终止性动词，不能与时间段状语连用。
(2) 表示与某人在一起或伴随某人做某事，通常用 join sb 或 join sb in (doing) sth。如：
You go ahead. I’ll join you shortly. 你们先开始,我一会就来(一起干)。
Will you join me in a walk (in singing the song)? 同我一起去散步(一起唱歌)好吗?
注：若表示直接参加某项活动(即不具体说出与某人在一起)，以上各句式中可以不出现 sb。如：I joined in rowing. 我参加一起划船。
May I join in (the game)? 我可以参加(做游戏)吗?
2， take part in 的主要用法：
(1) 表示参加某项工作或事业，并在其中起一定作用。如：
take part in the sports meet 参加运动会
take part in the contest 参加比赛
take part in the Long March 参加长征
take part in political activities 参加政治活动
take part in designing new items 参加设计新产品
重庆分公司
重庆分公司
