不同下標範圍數組相加：以 1-100 與 50-100 為例的實現邏輯

場景

數組 A 下標 1-100，數組 B 下標 50-100，需相加。

實現

Dim A(1 To 100) As Double, B(50 To 100) As Double
Dim C() As Double
Dim i As Long

' 重疊區間 50-100
ReDim C(50 To 100)
For i = 50 To 100
    C(i) = A(i) + B(i)
Next

' 非重疊部分按業務處理：保留 A(1-49) 或忽略
' 例如合併到新數組 D(1 To 100)
ReDim D(1 To 100)
For i = 1 To 49: D(i) = A(i): Next
For i = 50 To 100: D(i) = A(i) + B(i): Next

關鍵點

• 僅在重疊索引區間執行加法。
• 非重疊區間根據需求決定是保留、填 0 還是拋錯。
• VB6 中 ReDim Preserve 可動態調整數組大小並保留數據。