Question

怎样用VB语言解决斐波拉契数列相加问题？

比如：求1+2+3+5+8+13+21+...+n

Answer 1

应该是1+1+2+3+5+8+13+21+...+n
就只写中间的循环了
a=1:b=1:s=2
for i=2 to n
c=a+b
a=b:b=c
s=s+c
next i
?s
第一个s算出的是前三项的和。
P.S.你刚学吗？我是刚学的，交个朋友吧

Answer 2

求1+2+3+5+8+13+21+...+n和的函数如下:
参数n为最后一项n
Private Function fun(n As Integer) As Long
Dim a, b, c, d As Long
If n <= 2 Then
fun = n
Exit Function
End If
a = 1: b = 2: d = 3
Do
c = a + b
n = n - c
d = d + c
a = b
b = c
Loop While n > 0
fun = d
End Function
参数n为总项数：
Private Function fun(n As Integer) As Long
Dim a, b, c, d As Long
If n <= 2 Then
fun = n
Exit Function
End If
a = 1: b = 2: d = 3: n = n - 2
Do
c = a + b
n = n - 1
d = d + c
a = b
b = c
Loop While n > 0
fun = d
End Function