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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024