VB6 中不同下標範圍數組相加的算法實現思路

問題

如何實現不同下標區間（如 1-100 和 50-150）構成的數組相加？

核心思路

1. 確定有效交集：計算兩數組下標重疊區間 [max(L1,L2), min(U1,U2)]。
2. 分配結果數組：下標範圍同交集，或按業務需求擴展。
3. 逐元素相加：遍歷交集索引，result[i] = arr1[i] + arr2[i]。

VB6 代碼示例

Dim arr1(1 To 100) As Double, arr2(50 To 150) As Double
Dim res() As Double
Dim lo As Long, hi As Long

lo = IIf(LBound(arr1) > LBound(arr2), LBound(arr1), LBound(arr2))
hi = IIf(UBound(arr1) < UBound(arr2), UBound(arr1), UBound(arr2))

If lo <= hi Then
    ReDim res(lo To hi)
    For i = lo To hi
        res(i) = arr1(i) + arr2(i)
    Next
Else
    MsgBox "無重疊下標，無法相加"
End If

注意

VB6 數組下標可自定義起始值（Dim arr(5 To 10)），利用 LBound/UBound 獲取邊界，避免硬編碼。