求助一道小学数学题

saghj

1+1/(1+2)+1/(1+2+3)...+1/(1+2+3...+100)
这道题用vba的话该怎么做

petergaod

Sub test()
    x = 0
    For i = 1 To 100
        y = 0
        For j = 1 To i
            y = y + j
        Next
        x = x + 1 / y
    Next
    Debug.Print x
End Sub

saghj

我做出来了哈哈Sub test()
    Dim i&
    Dim s As Double
    Dim v As Double
    For i = 1 To 100
      s = s + i
      v = v + 1 / s
    Next i
    [d6] = v
End Sub

汉唐

Sub test()
For i = 1 To 100
y = y + 1 / (x + i)
x = x + i
Next
MsgBox "结果=" & y
End Sub

saghj

petergaod 发表于 2025-1-27 14:40
Sub test()
    x = 0
    For i = 1 To 100

我也做出来了，不过你还是比我快一点哈哈哈

飞天篮球猪

供参考...

1. =REDUCE({0;0},ROW(1:100),LAMBDA(x,y,LET(c,INDEX(x,2)+y,HSTACK(@x+1/c,c))))

复制代码

ykcbf1100

参与一下，递归算法

1. Dim n&
   
2. Sub ykcbf()   '//2025.1.27  递归算法
   
3.     For n = 1 To 100
   
4.         Sum = Sum + 1 / dg(n)
   
5.     Next
   
6.     MsgBox Sum
   
7. End Sub
   
8. 
   
9. Function dg(n&)
   
10.     If n Then dg = dg(n - 1) + n
    
11. End Function
    

复制代码

飞天篮球猪

ykcbf1100 发表于 2025-1-27 16:58
参与一下，递归算法

递归这样写重复分支有点多，时间复杂度较高...改成记忆化递归

shiruiqiang

这种是考试解题思路，不是答案。

micch

不演示过程的话，直接算就行