求达人帮忙写一个代码,谢谢！！

fsi087186 发布于 2010-05-26 07:23， 837 次点击

用的是VB08,求Harmonic series(调和级数)的sum(总和)，就是求（1+1/2+1/3+1/4+....+1/n）的sum

希望给出代码！谢谢

4 回复

sywzs2010-05-29 09:58

用 FOR 循环

sywzs2010-05-29 14:07

        Dim SS As Decimal = 1
        Dim n As nteger = 1
        For I As Integer = 2 To n
            SS += 1 / I
        Next

2010-06-22 20:09

回复 3楼 sywzs

你这个是VB代码吗？我怎么感觉是C语言和VB混合在一起了啊

程序代码：

s = 1

For i = 2 To n
s = s + 1 / n

Next i

Print s

[ 本帖最后由狂晕于 2010-6-22 20:18 编辑 ]

sywzs2010-06-23 05:23

回复楼上的，是，不是VB，也不是 C 。