Option Explicit
Dim f(40) As Long
Private Sub Command1_Click()
Dim i As Byte
Dim s As Long
f(1) = 1
f(2) = 1
s = 2
Print "No1:" & f(1)
Print "No2:" & f(2)
For i = 3 To 40
f(i) = f(i - 1) + f(i - 2)
s = s + f(i)
Print "No" & i & ":" & f(i)
Next
Print "總和:" & s
End Sub
用VB編程,求Fibonacci數(shù)列的前40個數(shù)以及它們的和.
用VB編程,求Fibonacci數(shù)列的前40個數(shù)以及它們的和.
數(shù)列特點：第1,2兩個數(shù)為1,從第三個數(shù)開始,每個數(shù)等于前兩個數(shù)之和.
數(shù)列特點：第1,2兩個數(shù)為1,從第三個數(shù)開始,每個數(shù)等于前兩個數(shù)之和.
其他人氣：199 ℃時間：2020-05-22 06:09:38
優(yōu)質(zhì)解答
我來回答
類似推薦
- 求VB編程代碼(For循環(huán)).題目:求Fibonacci數(shù)列:1,1,2,3,5,8,…的前40個數(shù)
- vb程序設(shè)計課后答案:請問“求Fibonacci數(shù)列的前20個數(shù).Fibonacci數(shù)列的特征是：第1個數(shù)和第二個數(shù)都是1
- C語言編程,求Fibonacci數(shù)列前40項,每行輸出4項.
- 斐波那契數(shù)序列分別用遞歸法和遞推法輸出這個數(shù)列的前20項VB代碼
- vb求斐波那契（Fibonaccii）數(shù)列前20項的和
- can you speak English中文什么意思
- 兩個容器,一個容器為15升,另一個為8升,如何利用他們從一桶油中倒出6升來?
- Idon't is.pig翻譯成中文
- 幾個俗語的意思或者是它比喻什么?
- -8x的立方=27 解方程
- It's a good idea for sb to do sth.所有知識點
- It is not difficult to get to school 為什么既有be動詞又
猜你喜歡
- 1請各位英語高手幫我總結(jié)下各類詞的用法：
- 2英語中的狀語和語文中的狀語用法一樣嗎?
- 3一物體在一高度釋放,若在下落的一瞬間被子彈擊中,其落地時間與自由下落時相同；若在下落到一半高度時被擊中,時間要變短,為什么?
- 4直徑5mm 長度2500mm的黃銅求重量
- 5The little boy wants a white T-shirt.改為一般疑問句
- 6奧數(shù)題（移動一根火柴棒）
- 7“裁”字查字典去掉部首查幾畫
- 8某電器商場原有電視機和洗衣機工720臺,電視機售出1/2后,剩下的電視機和原有洗衣機
- 9誰能找一篇找一篇簡單一點的2分鐘左右的英語新聞
- 10一千萬加一千萬等于幾
- 11方程x平方－2根號2x+2=0
- 12解方程:5分之19乘5分之21-4x=25分之139