如何用VBfor迴圈求斐波那契數列以及它們的和值?

斐波那契數列,又稱黃金分割數列,斐波納契數列以如下被以遞迴的方法定義:F1=,F2=1,Fn=F(n-1)+F(n-2)(n>=2...那麼怎樣用vb中的for迴圈來求出斐波那契數列以及它們的和值呢?我們接著往下看

方法/步驟

首先開啟vb6新建工程exe,載入一個文字框text1,並且將它的多行顯示屬性設定為真(true)如圖

如何用VBfor迴圈求斐波那契數列以及它們的和值

接下來我們載入一個命令按鈕(command1),並且將它命名為“顯示結果”如圖

如何用VBfor迴圈求斐波那契數列以及它們的和值

接下來我們通過命令按鈕的單擊事件,編寫程式,在求斐波那契數列的時候,我們首先要定義a,b,c三個變數,a,b定義的是代表當前前面的第一項,第二項,而c是當前我們所要求的數值 如圖

如何用VBfor迴圈求斐波那契數列以及它們的和值

然後再定義一個“s“,讓它為當前我們錢n項的和 ,在定義一個”i",讓它代表當前一共有多少項如圖

如何用VBfor迴圈求斐波那契數列以及它們的和值

在開始的時候第一項(a)的初值為0,第二項(b)的初值為1,那麼S是我所知道的專案的和為"0+1=1“”i"是當前已知的專案,已知2項,為2如圖

如何用VBfor迴圈求斐波那契數列以及它們的和值

那麼接下來我們需要在text文字框中顯示每一項,text文字框在最開始的時候應該只有前兩項a和b ,在TEXT文字框中我用5個空格去間隔a和b 如圖

如何用VBfor迴圈求斐波那契數列以及它們的和值

接下來我們需要去求後續的每一項,我們用一個FOR迴圈來執行,那麼在此期間我們首先讓c等於我們前兩項相加的和“c=a+b",接下來把它放到文字框中 如圖

如何用VBfor迴圈求斐波那契數列以及它們的和值

接下來我們需要做的工作呢是吧就得'b"賦給新的”a”再把舊的c賦給新的b,然後把心求出來的這一項累加到s裡 s=s+c

如何用VBfor迴圈求斐波那契數列以及它們的和值

如何用VBfor迴圈求斐波那契數列以及它們的和值

最後編寫完後,執行軟體,點選控制元件就會顯示出斐波那契數列以及它們的和值瞭如圖

如何用VBfor迴圈求斐波那契數列以及它們的和值

相關問題答案