作业帮求助vb高手--分别采用递归法和递推法求斐波纳契数列
来源：学生作业帮助网 编辑：作业帮 时间：2024/10/06 00:16:15
x){iʲg<}cSVltg>d?[d5<6Ewm~t⳩vLI*ҧQv6TuV=[b{Ɏ{fe%*%d)e&%&'gj)8+x敤i>y
.
H2:IH 4<[C"0H!$#TkNq*
bF
y) @}`D `Dے$!!#H!5VW@SF$H~%@}\2=79'39[C$W .bF 1i /Oxyټٌz6yv HR
求助vb高手--分别采用递归法和递推法求斐波纳契数列
求助vb高手--分别采用递归法和递推法求斐波纳契数列
求助vb高手--分别采用递归法和递推法求斐波纳契数列
递归法和循环法分别如下：Private Function Fibonacci1(n As Integer) As Long Dim a As Integer,b As Integer If n = 1 Or n = 2 Then Fibonacci1 = 1 Else Fibonacci1 = Fibonacci1(n - 1) + Fibonacci1(n - 2) End If End Function Private Function Fibonacci2(n As Integer) As Long Dim a As Long,b As Long a = 1 b = 1 If n = 1 Or n = 2 Then Fibonacci2 = 1 Else For i = 3 To n Fibonacci2 = a + b a = b b = Fibonacci2 Next i End If End Function Private Sub Form_Click() Print Fibonacci1(5) Print Fibonacci2(5) End Sub 运行结果都是5.