VB过程编程问题

来源：百度知道 编辑：UC知道 时间：2024/05/13 23:26:03
皮波那契数列的第以项是0，第二项是以后各项都是前两项的和，编写程序，求皮波那契数列的第N项值。请求哪位VB编程高手用VB中的过程方法去做，在下感激不尽。
我打字打错了,题目应该是这样的
皮波那契数列的第1项是0，第二项是1，以后各项都是前两项的和，编写程序，求皮波那契数列的第N项值。请求哪位VB编程高手用VB中的过程方法去做，在下感激不尽。

通过一个文本框来输入要计算第几个值，用标签来输出，点击按钮显示结果，把程序写在按钮上面。代码如下：
Private Sub Command1_Click()
n = Val(Text1.Text)
Dim a(100) As Long
a(1) = 0
a(2) = 1
For i = 3 To n
a(i) = a(i - 1) + a(i - 2)
Next i
Label1.Caption = a(n)

End Sub