vb程序设计课后答案:请问“求Fibonacci数列的前20个数.Fibonacci数列的特征是:第1个数和第二个数都是1,从第三个数开始,该数是前两个数之和,即f(1)=1,f(2)=1,当n>=3时,f(n)=f(n-1)+f(n-2)这个题怎么做?
来源:学生作业帮助网 编辑:六六作业网 时间:2025/01/23 21:08:14
vb程序设计课后答案:请问“求Fibonacci数列的前20个数.Fibonacci数列的特征是:第1个数和第二个数都是1,从第三个数开始,该数是前两个数之和,即f(1)=1,f(2)=1,当n>=3时,f(n)=f(n-1)+f(n-2)这个题怎么做?
vb程序设计课后答案:请问“求Fibonacci数列的前20个数.Fibonacci数列的特征是:第1个数和第二个数都是1
,从第三个数开始,该数是前两个数之和,即f(1)=1,f(2)=1,当n>=3时,f(n)=f(n-1)+f(n-2)这个题怎么做?
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