vb程序设计课后答案:请问“求Fibonacci数列的前20个数.Fibonacci数列的特征是：第1个数和第二个数都是1,从第三个数开始,该数是前两个数之和,即f(1)=1,f(2)=1,当n>=3时,f(n)=f(n-1)+f(n-2)这个题怎么做?

Question

vb程序设计课后答案:请问“求Fibonacci数列的前20个数.Fibonacci数列的特征是：第1个数和第二个数都是1
,从第三个数开始,该数是前两个数之和,即f(1)=1,f(2)=1,当n>=3时,f(n)=f(n-1)+f(n-2)这个题怎么做?

Answer 1

回答过了啊……

Dim f1,f2,f3 As Long
Dim i,j As Integer
f1 = 1
f2 = 1
j = 3                                                           'j用来控制print和换行
Print "====输出Fibonacci数列20个数===="
Print
Print f1,f2,
For i = 3 To 20
    f3 = f1 + f2
    If j < 4 Then
        Print f3,
    Else
        j = 0
        Print f3
    End If
    f1 = f2
    f2 = f3
    j = j + 1
Next i