求大神帮忙编写一下VBA编程通过编程求出结果。求S=1/5+1/10+1/15+1/20+1/25+…+1/(5*n)+…的前n项之和，当S第一次大于或等于1.4时终止计算，此时项数n为。

Question

求大神帮忙编写一下VBA编程
通过编程求出结果。
求 S = 1/5 +1/10 + 1/15 + 1/20 + 1/25 + … + 1/(5*n) + … 的前 n 项之和，当 S 第一次大于或等于 1.4 时终止计算，此时项数 n 为_____。

Answer 1

N是616

Option Explicit

Sub test()
    Dim n As Long, s As Double
    n = 0
    s = 0
    Do
        n = n + 1
        s = s + 1 / (n * 5)
    Loop While s < 1.4
    Debug.Print n
    Debug.Print s
End Sub