vb语言两个不同的数组相加，每个数组的下标不同，有重叠，能重新整理下标么？

参考：https://zhidao.baidu.com/question/176010711249742444.html

不需要整理，用下界的差值来修正下标

    Dim a()     As Long
    Dim b()     As Long
    Dim i       As Long
    Dim iX      As Long

    ReDim a(1 To 3)
    ReDim b(0 To 2)

    iX = LBound(b) - LBound(a)
    For i = 1 To 3
        a(i) = a(i) + b(i + iX)
    Next