8. 在“fEmp”窗体上单击“输出”命令按钮(名为“btnP”),实现以下功能:计算Fibonacci数列第19项的值,将结果显示在窗体上名为“tData”的文本框内并输出到外部文件保存;单击“打开表”命令按钮(名为“btnQ”),调用宏对象“mEmp”以打开数据表“tEmp”。
Fibonacci数列:
F
1=1 n=1
F
2=1 n=2
F
n=F
n-1+F
n-2 n>=3
调试完毕后,必须单击“输出”命令按钮生成外部文件,才能得分。
试根据上述功能要求,对已给的命令按钮事件进行补充和完善。
注意:不要修改数据库中的宏对象“mEmp”;不要修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性;不要修改表对象“tEmp”中未涉及的字段和属性。
程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计,不允许增删和修改其他位置已存在的语句。
[操作步骤]
步骤1:右键单击命令按钮“输出”,从弹出的快捷菜单中选择“事件生成器”命令,在弹出的对话框中选择“代码生成器”,进入编程环境,在空行内输入以下代码:
'*****Add1*****
Dim f(19) As Integer
'*****Add1*****
'*****Add2*****
f(i) =f(i - 1) + f(i - 2)
'*****Add2*****
'*****Add3*****
tData = f(19)
'*****Add3*****
如图5所示,关闭界面。

图5
步骤2:按Ctrl+S组合键保存修改,关闭设计视图。