码迷,mamicode.com
首页 > 其他好文 > 详细

有一分数序列:1/2,2/3,3/5,5/8,8/13,---,求出这个数列的前20项之和。

时间:2019-05-30 01:27:28      阅读:571      评论:0      收藏:0      [点我收藏+]

标签:nbsp   form   end   for   分数   ext   bsp   个数   private   

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项之和。

标签:nbsp   form   end   for   分数   ext   bsp   个数   private   

原文地址:https://www.cnblogs.com/xbnl-bk-zm-2018/p/10947121.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!