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

来源:学生作业帮助网 编辑:作业帮 时间:2024/08/02 01:57:21
Fibonacci数列 急 明天要交作业了在text1中输入一个大于2的自然数n,单击“第n项”按钮,将前n项Fibonacci数列(1,1,2,3,5,8..)存储于动态数组Fib()中,并将数列的第n项显示在text2中
xOOAƿʤ d춻Ŷăw2v5@pR&E+É|‰l$GiyN!(s{R>9mve-wE9/#/?7{qEkFq,ck^uJn4>ۄ*TjYdϚ%^wexפnxڐ6)C'2p &a?ERW 57:Rx b/?#KNF)7M#a`V3ԯj\ΰpOY[׵W"9dfBeF:BZ%bY͆:yfj8Y@amf,&gŹMXrXbvaLD&Ez6ʷeǕٿhA=5GXX%`ޯUfW8]Vң9^xZ1qE`%8~N~ pY`>QD ?.;!=ᆿ%'FBXi0DU;}oyP>POx`dǒ0^)ߟ5R

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