1樓:匿名使用者
private sub ***mand1_click()dim b() as long, i as integer, n as integer
n = 30
redim b(1 to n)
b(1) = 1: b(2) = 1
for i = 3 to n
b(i) = b(i - 1) + b(i - 2)next
text1.text = b(n)
end sub
vb**利用函式過程和遞迴兩種演算法實現斐波那契數列前30項的顯示(求大神指點,急用,寫的具體些) 5
2樓:
窗體中放入text控制項和命令按鈕.取text中的數字作為n**如下private function f(n as long) as long
if n > 2 then
f = f(n - 1) + f(n - 2)else
f = 1
end if
end functionprivate sub ***mand1_click()
clsdim i as long
i = val(text1.text)
print "第" i "項:" f(i)end sub
關於斐波那契數列與黃金比例，斐波那契數列與黃金比例有關嗎
樓主可以注意這樣乙個最簡單的無窮連分數 1 1 1 1 1 1 這裡寫起來不夠直觀，樓主可以把這個最簡單的無窮連分數寫在紙上，可以看得很清楚。我們先把這個最簡單的無窮連分數幾步看看 1 1 1 1 1 2 1 1 1 2 1 3 2 2 3 1 1 2 3 1 5 3 3 5 1 1 3 5 1 8...
斐波那契數列有哪些用途，斐波那契數列有什麼用處？
斐波那契數列中的斐波那契數會經常出現在我們的眼前 比如松果 鳳梨 樹葉的排列 某些花朵的花瓣數 典型的有向日葵花瓣 蜂巢，蜻蜓翅膀，超越數e 可以推出更多 矩形 分割 等角螺線，十二平均律等。1 分割 隨著數列項數的增加，前一項與後一項之比越來越逼近 分割的數值0.6180339887.2 矩形面積...
斐波那契數列怎麼求它的第幾項是多少
暗黑班吉拉 答案是肯定有的！事實上任意的 a n 2 aa n 1 ban形式的相鄰3項的遞推式，都可以解出其通項公式 解決這類問題的方法主流的有兩種 1.待定係數法 2.特徵方程法 下圖便是待定係數法解此類問題的完備性與特徵方程的的證明 我以一個特殊的例子為lz講解一下特徵方程法的一個應用 不難發...