执行VB代码时出现运行时错误'6' Overflow溢出问题求助

错误根因定位 #

• 变量类型取值上限过低：代码中sum3、n3声明为Integer类型，VB中*16位Integer*的取值范围仅为-32768~32767，累加值一旦超出该区间就会直接抛出溢出错误。
• 变量未按预期重置：VB过程内用Dim声明的变量作用域覆盖整个过程，不随If/For块的进入退出重新初始化，因此每次进入该If分支时，sum3会保留上一次执行后的累加值，重复累加会让数值快速突破Integer上限。
• 循环顺序逻辑错误：代码先向arr3(count3)写入新值，再遍历0到count3索引做累加，每次计算都会多纳入一个元素，累加值增长速度是预期的2倍，进一步加快了溢出触发速度。
• 隐式转换溢出风险：如果arr3数组本身声明为Integer类型，存入的采样值超过32767时，赋值环节就会触发溢出；后续权重计算涉及减法、乘法操作，若所有参与计算的变量均为整型，中间结果超出范围时同样会抛出错误。

修复方案 #

• 更换数值范围更大的类型：将计数、累加相关的变量从Integer改为Long类型（32位整型，取值范围-2147483648~2147483647），涉及小数计算的权重、系数变量统一使用Double类型，从类型层面规避数值超限问题。
• 显式初始化累加变量：每次进入累加逻辑前，手动将sum3赋值为0，避免历史值残留导致的计算异常和溢出。
• 修正循环执行顺序：先更新计数位，再写入数组值、遍历求和，避免遍历到未初始化的数组元素，保证累加范围和预期一致。
• 同步调整数组类型：如果之前arr3声明为Integer数组，需同步修改为Long()或Double()数组，匹配采样值的存储范围。

修正后的可运行代码如下：

If (k > 1) Then
    ' 累加、计数变量改用Long类型，权重计算用Double类型承接小数
    Dim n3 As Long, sum3 As Long
    Dim Weight As Double
    Text9.Text = Left(Data, k - 1)
    
    ' 先更新计数，再写入数组值，避免索引越界、重复计算
    count3 = count3 + 1
    ' 注意：arr3需提前声明为Long()或Double()类型数组
    arr3(count3 - 1) = Val(Text9.Text)
    
    ' 显式重置累加值
    sum3 = 0
    For n3 = 0 To count3 - 1 Step 1
        sum3 = sum3 + arr3(n3)
    Next
    
    Weight = Abs((sum3 / count3) - WZero) * ktw
    NTGraph1.PlotY Weight, 0
    Text1.Text = Str(Weight)
    
    Select Case Val(Combo1.Text)
        Case 1
            MDI.Weight1 = Weight
        Case 2
            MDI.Weight2 = Weight
        Case 3
            MDI.Weight3 = Weight
        Case 4
            MDI.Weight4 = Weight
    End Select
End If

提示：如果业务中采样值本身包含小数，直接将sum3、arr3的类型改为Double即可，无需使用Long类型。

内容的提问来源于stack exchange，提问作者Vũ Trung Dũng