1樓：匿名使用者
窗體上放一個文字框,並設定成多行屬性,用來數列的輸出private sub command1_click()dim a%, b%, c%, d%
a = 0 : b = 1
text1.text = "0" & vbcrlf & "1" & vbcrlf
for d = 1 to 18
c = a + b
a = b
b = c
text1.text = text1.text & c & vbcrlf
next
end sub
2樓：
簡單的方法...
先建一個文字框和按鈕
然後全複製
private sub command1_click()dim m, n, i, t as singlei = 0
m = 0
n = 1
do while i <= (val(text1.text))i = i + 1
t = m + n
n = m
m = t
print t
loop
end sub
要幾位就有幾位...
vb中輸出斐波那契數列的前20項
3樓：匿名使用者
介面加一個按鈕,直接複製執行
private sub command1_click()dim a(1 to 20) as integerfor i = 1 to 20
if i = 1 or i = 2 thena(i) = 1
else
a(i) = a(i - 1) + a(i - 2)end if
print i, a(i)
next i
end sub
用vb輸出斐波那契數列前20項的所有偶數 135
4樓：銷聲匿跡
private sub form_click()dim d(100000), i as longd(0) = 0
d(1) = 1
for i = 2 to 20
d(i) = d(i - 1) + d(i - 2)next i
for i = 0 to 20
print d(i) & space(5);
if i mod 5 = 0 then printnext i
print "偶數"
for i = 0 to 20
if d(i) mod 2 = 0 then print d(i);
next i
end sub
5樓：匿名使用者
你要vb6還是vb.net?
vb求出斐波那契數列的前20項，並按順序將他們顯示在列表框中。
6樓：匿名使用者
單擊窗體後在窗體上輸出前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 printprint f(i);
next i
end sub
稍改一下吧
如何用vb程式設計求列印fibonacci 數列的前30項
7樓：匿名使用者
private sub command1_click()dim a(30) as long
a(1) = 1: a(2) = 1
for i = 3 to 30
a(i) = a(i - 1) + a(i - 2)next i
n = len(str(a(30))) + 2b = 1
for i = 1 to 30
c = len(str(a(i))) + 1print tab(b * n - c); a(i);
b = b + 1
if i mod 5 = 0 then
b = 1
end if
next i
end sub
在c語言中，如何利用陣列求斐波那契數列的前20項？
8樓：墨汁諾
#include int main()int i,fib[20]=;
for (i=2; i<20; i++)
fib[i]=fib[i-2]+fib[i-1];
printf("%d ",fib[19]); return 0;
#include
void main()
{long sum=0;
long a[20];
int i;
a[0]=1;a[1]=1;
for(i=2;i<20;i++)
a[i]=a[i-1]+a[i-2];
for(i=0;i<20;i++)
sum=sum+a[i];
printf("%ld",sum);
數列與矩陣
對於斐波那契數列1、1、2、3、5、8、13、……。有如下定義f(n)=f(n-1)+f(n-2)
f(1)=1
f(2)=1
對於以下矩陣乘法
f(n+1) = (1,1 ) (f(n),f(n-1))tf(n) =(1,0 ) (f(n),f(n-1))t它的運算就是右邊的矩陣 (1,1)乘以矩陣(f(n),f(n-1))，右邊的矩陣(1,0 ) 乘以矩陣(f(n),f(n-1))，得到：
f(n+1)=f(n)+f(n-1)
f(n)=f(n)
9樓：匿名使用者
在c語言中，以vc為例利用陣列求斐波那契數列的前20項的具體步驟如下：
1、首先，開啟vc；
2、點選檔案、新建；
4、選擇一個空的工程，完成；
5、再次點選檔案、新建，
6、選擇c++ source file 並輸入檔名字，確定；
7、輸入如圖所示的**，這裡以前十個斐波那契數列數為例，需要輸出其他個數請把5改成對應數字的一半（比如要輸出前20個，就把圖中的5改成10）；
8、點選右上角的編譯執行按鈕；
9、ok！我們成功地輸出了斐波那契數列的前20項。
斐波那契數列是:1,1,2,3,5,8,13,21,34,55,89...
規律是:f[0]=1,f[1]=1,f[i]=f[i-1]+f[i-2],i>1
所以在c語言中利用數列的求法如下：
#include
void main()
;for (i=2; i<20; i++)for (i = 0; i<20; i++)printf("\n");}
【17】vb程式設計，求斐波那契數列前11項
10樓：銷聲匿跡
private sub command1_click()dim f(11), i as long
f(0) = 1
f(1) = 1
for i = 2 to 10
f(i) = f(i - 1) + f(i - 2)next i
for i = 0 to 11
print f(i);
next i
end sub
斐波那契數列 1 1 2 3 5 8 13
斐波那契數列通項公式推導方法 fn 1 fn fn 1 兩邊加kfn fn 1 kfn k 1 fn fn 1 當k 1時 fn 1 kfn k 1 fn 1 k 1 fn 1 令 yn fn 1 kfn 若 當k 1 k 1，且f1 f2 1時 因為 fn 1 kfn 1 k fn kfn 1 y...
輸入資料n，計算斐波那契數列（fibonacci）的第n
寫一個短的，用遞推的 速度比較快 int fibo int n 還有一種數學方法 直接出解，但可能有精度問題 int fibo int n 之思迪 直接用遞推的方法來解決 int main int n,i scanf d n if n 2 printf fib d n fib n 1 void ma...
斐波那契數列有沒有通項公式
an 1 根號5 n屬於正整數 這個數列是由13世紀義大利斐波那契提出的的,故叫斐波那契數列。該數列由下面的遞推關係決定 f0 0,f1 1 fn 2 fn fn 1 n 0 它的通項公式是 fn 1 根號5 n屬於正整數 補充問題 菲波那契數列指的是這樣一個數列 1，1，2，3，5，8，13，21...