作者：绿色风
分类：
时间：2022-08-18
浏览：72
楼主
wise |
Q：如何根据n的奇偶求小于等于n的自然数倒数之和？
当输入为偶数时候，求1/2+1/4+...+1/n;当n为奇数时候，求1/1+1/3+...+1/n。
A:ALT+F11→插入模块→输入下面代码:- Sub test()
- Dim n As Long, s As Double, i As Long
- n = InputBox("请输入奇偶数", "数字")
- s = 0
- If n Mod 2 = 0 Then
- For i = 2 To n Step 2
- s = s + 1 / i
- Next i
- Else
- For i = 1 To n Step 2
- s = s + 1 / i
- Next i
- End If
- MsgBox CStr(s)
- End Sub
|
2楼
arjoe |
好问题,但写的很烂
直接do while ,从大到小循环即可, i<1 时退出循环
或者是 for i=n to mod(n-1,2)+1 step -2 (只是思路啊,VBA里面mod不能这样用,呵呵) |
3楼
wise |
- Sub test()
- Dim n As Long, s As Double, i As Long
- n = InputBox("请输入奇偶数", "数字")
- s = 0
- For i = n To ((n - 1) Mod 2 + 1) Step -2
- s = s + 1 / i
- Next i
- MsgBox CStr(s)
- End Sub
|
4楼
wise |
for i=n to mod(n-1,2)+1 step -2
还有这样的循环？ |
5楼
gouweicao78 |
题目建议：如何根据n的奇偶求小于等于n的自然数倒数之和 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一