Excel中的VBA新手。尝试对递增的函数求和

Sub SumIncrementalFunction()
    Dim i As Integer
    Dim sum As Double
    
    ' 设置起始值和递增步长
    Dim startValue As Double
    startValue = 1
    
    Dim increment As Double
    increment = 2
    
    ' 设置求和的上限
    Dim maxValue As Double
    maxValue = 100
    
    ' 循环求和
    For i = startValue To maxValue Step increment
        sum = sum + i
    Next i
    
    ' 输出结果
    MsgBox "递增函数求和结果为：" & sum
End Sub