编程求下列序列的累加和,累加n项,正整数n从键盘输入。 s=2/1+3/2+5/3+8/5+13/8+21/13+…

如题所述

Dim i&, n&, s#, a#()
n = Val(InputBox("请输入正整数", , "4"))
ReDim a(n)
a(0) = 1: a(1) = 1: s = 2
For i = 2 To n
a(i) = a(i - 1) + a(i - 2)
s = s + 1 + 1 / (1 + a(i - 2) / a(i - 1))
Next
MsgBox "序列和:" & s
温馨提示:答案为网友推荐,仅供参考
相似回答