求1到n之间的奇数和的VBA代码

2025-06-26 17:30:56

推荐回答（1个）

回答1：

Sub 奇数和()
    Dim x As Integer
    x = InputBox("请输入n的值", "输入数据", 3)
    MsgBox "1至" & Str(x) & "的奇数和是：" & Str(jsSum(x))
End Sub

Function jsSum(n As Integer) As Integer
    Dim iSum As Integer, i As Integer
    iSum = 0
    For i = 1 To n Step 2
        iSum = iSum + i
    Next i
    jsSum = iSum
End Function