求大神帮忙编写一下VBA编程通过编程求出结果。 求 S = 1/5 +1/10 + 1/15 + 1/20 + 1/25 + … + 1/(5*n) + … 的前 n 项之和，当 S 第一次大于或等于 1.4 时终止计算，此时项数 n 为_____。
网友回答
【答案】 N是616
Option ExplicitSub 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 sEnd Sub