求VB利用递归法编写函数,求斐波那契数列的第n项值并在调用函数的过程中输出结果
求VB利用递归法编写函数,求斐波那契数列的第n项值并在调用函数的过程中输出结果
日期:2013-06-25 16:29:34 人气:1
窗体中放入Text控件和命令按钮.取text中的数字作为N代码如下Private Function F(n As Long) As Long
If n > 2 Then
F = F(n - 1) + F(n - 2)
Else
F = 1
End If
End FunctionPrivate Sub Command1_Click()
Cls
Dim I As Long
I = Val(Text1.Text)
Print "第" & I & "项:&q