vb语言两个不同的数组相加,每个数组的下标不同,有重叠,能重新整理下标么?怎么在vb6.0中重新整理不同数组的下标?
参考: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