如何用VB編斐波那契數列列出前20項而且是用迴圈語句FOR

1樓：匿名使用者

a1 = 1

a2 = 1

debug.print a1

debug.print a2

for i=3 to 20

a3 = a1 + a2

debug.print a3

a1 = a2

a2 = a3

如果要儲存數列，就把每次要輸出的內容(debug.print)依次放到陣列裡面

2樓：

今天計算機課剛剛提交的作業，肯定沒錯~

private sub command1_click()dim a() as long

dim sum as long

dim n as integer

dim i as integer

n = val(text1.text)

redim a(1 to n) as longif n = 1 then

sum = 1

else

a(1) = 1

a(2) = 1

sum = 2

for i = 3 to n step 1a(i) = a(i - 1) + a(i - 2)sum = sum + a(i)

next i

end if

text2.text = sum

end sub

3樓：匿名使用者

private sub command1_click()a = 1

b = 1

print a;b

for i = 3 to 20

c = a + b

a = b

b = c

print c-b

end sub

我也是剛學幾天用for編了乙個

嘿嘿互相討論497760237 我qq

急!!!如何用vb編斐波那契數列列出前20項?

4樓：匿名使用者

窗體上放乙個文字框,並設定成多行屬性,用來數列的輸出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

end sub

5樓：

簡單的方法...

先建乙個文字框和按鈕

然後全複製

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項

6樓：匿名使用者

介面加乙個按鈕,直接複製執行

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

7樓：銷聲匿跡

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

8樓：匿名使用者

你要vb6還是vb.net?

vb中的斐波那契數列前20項取值總和問題謝謝了，大神幫忙啊

9樓：匿名使用者

斐波那契數列前三項分別是0、1、1，你只加了第二項或第三項所以才會少1 dim a&(20) a(1) = 0: a(2) = 1 for i = 3 to 20 a(i) = a(i - 2) + a(i - 1) b = a(i) + b next i for i = 1 to 20 print right(space(7) & a(i), 8); if i mod 10 = 0 then print next i b = b + a(2) msgbox b 追問：我加的是第一項和第二項，不是加的第二項和第三項，請不要用陣列去給我解答，我還沒學到陣列呢回答：

dim d as long, a as long, s as long, c as integer d = 0: a = 1: b = 1:

s = 2 print d print a print b for i = 2 to 18 c = a + b a = b: b = c s = s + c print c next i msgbox "斐波拉契數列的錢二十項的和為：" & s, vbinformation, "資訊"

vb求出斐波那契數列的前20項，並按順序將他們顯示在列表框中。

10樓：匿名使用者

單擊窗體後在窗體上輸出前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

稍改一下吧

在c語言中，如何利用陣列求斐波那契數列的前20項？

11樓：墨汁諾

#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)

12樓：匿名使用者

在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");}

vb中的斐波那契數列前20項取值總和問題如題謝謝了

13樓：應厹雅

如何用VB編斐波那契數列列出前20項而且是用迴圈語句FOR

如何用VB呼叫外部EXE程式，如何用VB呼叫乙個外部EXE程式

如何用visual studio2019編寫簡單c語言程式

如何用Visual Studio 2019編寫C語言程式

用VB編計算器，用VB編乙個計算器

如何用vb畫出簡易函式影象

其他用戶還看了：