有一分数序列:1/2,2/3,3/5,5/8,8/13,---,求出这个数列的前20项之和。
Posted xbnl-bk-zm-2018
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了有一分数序列:1/2,2/3,3/5,5/8,8/13,---,求出这个数列的前20项之和。相关的知识，希望对你有一定的参考价值。
Private Sub form_Click()
Dim fz%, fm%, f%, i%, s!
fz = 1
fm = 2
s = 0
For i = 1 To 20
s = s + fz / fm
f = fz + fm
fz = fm
fm = f
Next i
Print s;
End Sub
以上是关于有一分数序列:1/2,2/3,3/5,5/8,8/13,---,求出这个数列的前20项之和。的主要内容，如果未能解决你的问题，请参考以下文章