vb編寫程序，輸入正整數，顯示1，1，2，3，5，8，13，21……

窗體上添加壹個按鈕（Command1）和壹個列表框（List1）

Private?Sub?Command1_Click()

Dim?a(),?i,?j?As?Long

n?=?Val(InputBox("請輸入Fibonacci數列的項數n(<=70)"))

If?n?>=?3?And?n?<=?70?Then

List1.Clear

ReDim?a(n)

a(1)?=?1

a(2)?=?1

For?i?=?3?To?n

a(i)?=?a(i?-?2)?+?a(i?-?1)

Next

For?i?=?1?To?n

List1.AddItem?a(i)

Next

End?If

End?Sub

上一篇:搞嵌入式linux編譯qt時間長嗎

下一篇:土豆和玉米哪個產量高