用vb求斐波拉切数列前n项的和

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/16 06:52:04

用vb求斐波拉切数列前n项的和

Private Sub Command1_Click()
n = InputBox("请输入n:")
f = fact(n)
Print f
End Sub
Private Function fact(ByVal n As Integer)
If n = 1 Or n = 2 Then
fact = 1
Else
fact = fact(n - 2) + fact(n - 1)
End If
End Function
再问：不对吧！是求斐波拉切数列前n项和。
再答：不好意思，没看清要求，原来是求前n项和。已改： Private Sub Command1_Click() n = InputBox("请输入n:") For i = 1 To n f = fact(i) s = s + f Next i Print s End Sub Private Function fact(ByVal n As Integer) If n = 1 Or n = 2 Then fact = 1 Else fact = fact(n - 2) + fact(n - 1) End If End Function

vb 编程输出fibonacci数列的前N项 VB：斐波那契数列第一项是1,第二项是1,用递归算法编写一个程序,求数列前N项的和 vb编成实现求斐波拉契数列(1,1,2,3,5,8,13,21,34,)前n项的和数列的前n项和用VB编程求Fibonacci数列的第n项 VB程序!,计算并输出下面数列中前N（设N=8）项的和 ,,,.,.表示求阶乘) 数列前n项和数列(前n项和) vb求斐波那契数列前10项和设计求数列s=1+1/3+(-1/5)+1/7+1/9+(-1/11)+...前n(n>=1)项和的算法VB编程,用fo 求数列{n²}的前n项的和用VB编程,求Fibonacci数列的前40个数以及它们的和.