作业帮 > 数学 > 作业

vb程序设计课后答案:请问“求Fibonacci数列的前20个数.Fibonacci数列的特征是:第1个数和第二个数都是

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/17 07:33:06
vb程序设计课后答案:请问“求Fibonacci数列的前20个数.Fibonacci数列的特征是:第1个数和第二个数都是1
,从第三个数开始,该数是前两个数之和,即f(1)=1,f(2)=1,当n>=3时,f(n)=f(n-1)+f(n-2)这个题怎么做?
回答过了啊……

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