斐波那契数列求第n项 用C语言编程,编一个求Fibonacci数列前n项和程序?

用C语言编程,编一个求Fibonacci数列前n项和程序?PrivateFunctionF(nAsLong)AsLongIfn>2ThenF=F(n-1)F(n-2)ElseF=1EndIfEnd

用C语言编程,编一个求Fibonacci数列前n项和程序?

PrivateFunctionF(nAsLong)AsLong

Ifn>2Then

F=F(n-1)F(n-2)

Else

F=1

EndIf

EndFunction

PrivateSubCommand1 Click()

dimaasstring

dimiaslong

dimsumaslong

a=InputBox(“input Fibonacci sequence item number”,“input”

n=CLng(a)

CLS

forI=1ton

sum=sum f(I)

next

print”front of Fibonacci sequence“CSTR(n)”item sum:“sum

endsub

(1/√5)*{[(1√5)/2]^n-[(1-√5)/2]^n这是Fibonacci sequence的通式。得到差分方程的Z变换。计算前n项之和非常简单

Sn=a(n2)-1。

an=(1/√5)×{[(1+√5)/2]^n-[(1-√5)/2]^n}。

因此,Sn=(1/√5)×{[(1+√5)/2]^(n2)-[(1-√5)/2]^(n2)}-1

注意:n是正整数。