Question

VB问题：在text1中输入一个大于2的自然数n,单击“第n项”按钮,将前n项Fibonacci数列储存于动态数组Fib（

在text1中输入一个大于2的自然数n,单击“第n项”按钮,将前n项Fibonacci数列储存于动态数组Fib（）中，并将数列的第n项显示在text2 中，要怎么写代码

Answer 1

Private Sub Command1_Click()
Dim n%, Fib() As Long
n = Val(Text1.Text)
If n > 2 Then
ReDim Fib(n)
Fib(0) = 0: Fib(1) = 1
For i = 2 To n
Fib(i) = Fib(i - 1) + Fib(i - 2)
Next i
Text2.Text = Fib(n)
End If
End Sub