如何用VBA实现输入最大值后统计并求和所有偶数？

你需要实现的功能是让用户输入一个最大值，统计0到该值之间所有偶数的数量并计算它们的总和——比如输入6时，对应偶数是2、4、6，总和为12，数量为3。

先说说你提供的代码存在的几个问题：

• 没有输入有效性校验，用户输入非数字、负数或小数时会直接报错
• 核心逻辑错误：仅通过num Mod 2的判断就修改evennum，完全没有遍历所有偶数来累加总和，也没统计数量
• 错误使用num.Value：num是普通变量而非对象，不存在Value属性
• sum和count变量未显式初始化（虽VBA默认初始为0，但显式初始化更规范）

以下是修正后的完整代码，包含输入验证、正确的统计逻辑：

Sub AddupEvenNumbers()
    Dim inputNum As Variant
    Dim maxNum As Long
    Dim sumEven As Double
    Dim countEven As Integer
    Dim i As Long
    
    ' 获取用户输入并验证有效性
    inputNum = InputBox("请输入一个上限/最大值", "输入最大值")
    ' 检查输入是否为空、非数字，或者小于0
    If inputNum = "" Or Not IsNumeric(inputNum) Or CLng(inputNum) < 0 Then
        MsgBox "请输入一个有效的非负整数！", vbExclamation
        Exit Sub
    End If
    maxNum = CLng(inputNum)
    
    ' 初始化总和和数量
    sumEven = 0
    countEven = 0
    
    ' 遍历0到maxNum的所有数，统计偶数
    For i = 0 To maxNum
        If i Mod 2 = 0 Then
            sumEven = sumEven + i
            countEven = countEven + 1
        End If
    Next i
    
    ' 弹出结果消息框
    MsgBox "从0到" & maxNum & "的统计结果：" & vbNewLine & _
           "偶数的数量：" & countEven & vbNewLine & _
           "偶数的总和：" & sumEven, vbInformation
End Sub

代码说明： #

• 输入验证：先判断用户输入是否为空、是否为数字、是否非负，避免无效输入导致的运行错误
• 循环统计：用For循环遍历从0到最大值的每一个数，通过i Mod 2 = 0判断是否为偶数，符合条件则累加总和、增加计数
• 结果展示：同时显示偶数的数量和总和，信息更完整

如果处理的最大值很大，还可以用数学公式直接计算（无需循环，性能更优）：

• 偶数数量：(maxNum \ 2) + IIf(maxNum Mod 2 = 0, 1, 0)
• 偶数总和：countEven * (countEven - 1)（等差数列求和：0+2+4+...+2n = n*(n+1)）

对应的公式版代码：

Sub AddupEvenNumbers_WithFormula()
    Dim inputNum As Variant
    Dim maxNum As Long
    Dim countEven As Integer
    Dim sumEven As Double
    
    inputNum = InputBox("请输入一个上限/最大值", "输入最大值")
    If inputNum = "" Or Not IsNumeric(inputNum) Or CLng(inputNum) < 0 Then
        MsgBox "请输入一个有效的非负整数！", vbExclamation
        Exit Sub
    End If
    maxNum = CLng(inputNum)
    
    ' 计算偶数数量：0到maxNum的偶数个数
    countEven = (maxNum \ 2) + IIf(maxNum Mod 2 = 0, 1, 0)
    ' 计算偶数总和：等差数列求和公式
    sumEven = countEven * (countEven - 1)
    
    MsgBox "从0到" & maxNum & "的统计结果：" & vbNewLine & _
           "偶数的数量：" & countEven & vbNewLine & _
           "偶数的总和：" & sumEven, vbInformation
End Sub

内容的提问来源于stack exchange，提问作者NEwManN