Fibonacci数列 急 明天要交作业了在text1中输入一个大于2的自然数n,单击“第n项”按钮,将前n项Fibonacci数列(1,1,2,3,5,8..)存储于动态数组Fib()中,并将数列的第n项显示在text2中

来源:学生作业帮助网 编辑:六六作业网 时间:2024/05/09 19:34:32
Fibonacci数列急明天要交作业了在text1中输入一个大于2的自然数n,单击“第n项”按钮,将前n项Fibonacci数列(1,1,2,3,5,8..)存储于动态数组Fib()中,并将数列的第n

Fibonacci数列 急 明天要交作业了在text1中输入一个大于2的自然数n,单击“第n项”按钮,将前n项Fibonacci数列(1,1,2,3,5,8..)存储于动态数组Fib()中,并将数列的第n项显示在text2中
Fibonacci数列 急 明天要交作业了

在text1中输入一个大于2的自然数n,单击“第n项”按钮,将前n项Fibonacci数列(1,1,2,3,5,8..)存储于动态数组Fib()中,并将数列的第n项显示在text2中

Fibonacci数列 急 明天要交作业了在text1中输入一个大于2的自然数n,单击“第n项”按钮,将前n项Fibonacci数列(1,1,2,3,5,8..)存储于动态数组Fib()中,并将数列的第n项显示在text2中
Private Sub Form_Click()
Dim a&(30)
a(1) = 0:a(2) = 1
For i = 3 To 30
a(i) = a(i - 2) + a(i - 1)
Next i
For i = 1 To 30
Print Right(Space(7) & a(i),8);
If i Mod 10 = 0 Then Print
Next i
End Sub