计算机编程求S=1+1/(1+2)+1/(1+2+3)+…

计算机编程求S=1+1/(1+2)+1/(1+2+3)+…

VB?代码如下，VB6测试通过：



Private Sub Command1_Click()
    Dim i As Integer, sum As Single, n As Integer
    n = Val(Text1.Text)
    For i = 1 To n
        sum = sum + ds(i)
    Next i
    Label1.Caption = Str(sum)
End Sub


Function ds(n As Integer) As Single
    Dim j As Integer, jsum As Integer
    For j = 1 To n
        jsum = jsum + j
    Next j
    ds = 1 / jsum
End Function

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息