Question

求VB利用递归法编写函数，求斐波那契数列的第n项值并在调用函数的过程中输出结果

是一个VB编程题 希望你能够给力！ 谢谢

Answer 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 & "项:" & F(i)
End Sub