（VB）編程求Fibonacci數列中值不大於1000的項數，並輸出各項的值。參考界面如圖5-5所示。

Private?Sub?Command1_Click()

Dim?Fib1?As?Integer,?Fib2?As?Integer,?Fib3?As?Integer,?Counter?As?Integer

Fib1?=?1

Fib2?=?1

Counter?=?2

List1.AddItem?"第1項="?&?Fib1

List1.AddItem?"第2項="?&?Fib2

Do

Counter?=?Counter?+?1

Fib3?=?Fib1?+?Fib2

List1.AddItem?"第"?&?Counter?&?"項="?&?Fib3

Fib1?=?Fib2

Fib2?=?Fib3

Loop?Until?Fib3?>?986

Label1.Caption?=?Label1.Caption?+?vbCrLf?+?"其值不大於1000的***有"?&?List1.ListCount?&?"項"

End?Sub

Private?Sub?Command2_Click()

End

End?Sub

Private?Sub?Form_Load()

Label1.Caption?=?"Fibonacci序列："

End?Sub

順便說壹句，題目給的圖

中有誤：Fibnacci數列的第17項不是987，第17項是1597，第16項才是987！

上一篇:Java Tuemar 03 00:00:00 CST 2015的日期格式是什麽？

下一篇:高強文人物介紹