VB：斐波那契数列第一项是1，第二项是1，用递归算法编写一个程序，求数列前N项的和
VB：斐波那契数列第一项是1，第二项是1，用递归算法编写一个程序，求数列前N项的和
展开
收起
1
条回答
写回答
写回答
-
添加一个文本框输入前N项的N值，再添加一个命令按钮即可
Private Function F(N As Long) As Long
If N > 2 Then
F = F(N - 1) + F(N - 2)
Else
F = 1
End If
End Function
Private Sub Command1_Click()
Cls
Dim N As Long, I As Long, sum As Long
sum = 0
N = Val(Text1.Text)
For I = 1 To N
sum = sum + F(I)
Next I
Print "斐波那契数列前" & N & "项的和为:" & sum
End Sub2019-07-17 22:55:21赞同 展开评论 打赏
版权声明：本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。
相关问答
