For i = 1 To UBound(arr)
        
Next

Public Function 数组连接(arr, brr)  '将arr,brr数组连接起来返回新数组
    Dim i&, j&, crr
    ReDim crr(1 To UBound(brr) - LBound(brr) + UBound(arr) - LBound(arr) + 2)
    For i = LBound(arr) To UBound(arr)
        j = j + 1: crr(j) = arr(i)
    Next
    For i = LBound(brr) To UBound(brr)
        j = j + 1: crr(j) = brr(i)
    Next
    数组连接 = crr
End Function