窗体中放入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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024