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

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/29 22:36:34
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中

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