vb求斐波那契数列

发布网友发布时间：2022-12-16 08:45

共2个回答

热心网友时间：2024-11-24 17:22

求采纳~
Option Base 1
Private Sub Command1_Click()
Dim fibo()
i = Val(InputBox("输入i的值", "求斐波那契数列第i项的值"))
ReDim fibo(i)
fibo(1) = 1: fibo(2) = 1
For n = 3 To i
fibo(n) = fibo(n - 1) + fibo(n - 2)
Next
Print "第"; i; "项的值是:"; fibo(i)
End Sub

热心网友时间：2024-11-24 17:23

单击窗体后在窗体上输出前20个斐波那契数（5个一行）
Private Sub Frm_click()
Dim f(20) as integer
F(1)=1
F(2)=1
For i=3 to 20
F(i)=f(i-2)＋f(i-1)
Next i
For i=1 to 20
If i mod 5=0 then print
Print f(i);
Next i
End Sub

稍改一下吧
打字不易，如满意，望采纳。

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com