在考生文件夹下有一个数据库文件“samp3.accdb”,里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。请在此基础上按照以下要求补充设计。 “limp”窗体上单击“输出”命令按钮(名为“btnP”),实

admin2019-01-09  19

问题 在考生文件夹下有一个数据库文件“samp3.accdb”,里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。请在此基础上按照以下要求补充设计。
“limp”窗体上单击“输出”命令按钮(名为“btnP”),实现以下功能:计算Fibonacci数列第19项的值,将结果显示在窗体上名为“tData”的文本框内并输出到外部文件保存;单击“打开表”命令按钮(名为“btnQ”),调用宏对象“mEmp”以打开数据表“tEmp”。
    Fibonacci数列:
    F1=1    n=1
    F2=1    n=2
    Fn=Fn-1+Fn-2    n>=3
    调试完毕后,必须单击“输出”命令按钮生成外部文件,才能得分。
    试根据上述功能要求,对已给的命令按钮事件进行补充和完善。
    注意:不要修改数据库中的宏对象“mEmp”;不要修改窗体对象“limp”和报表对象“rEmp”中未涉及的控件和属性;不要修改表对象“tEmp”中未涉及的字段和属性。
    程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计,不允许增删和修改其他位置已存在的语句。

选项

答案【操作步骤】 步骤1:右键单击命令按钮“打开表”,在弹出的快捷菜单中选择“属性”命令,在“事件”选项卡下的“单击”行右边的三角下拉列表中选择“mEmp”,如图4—273所示。 [*] 步骤2:右键单击命令按钮“输出”,在弹出的快捷菜单中选择“事件生成器”命令,在弹出的代码编辑窗口中的空格行相应位置输入以下代码: ’*****Add1***** Dim f(19) As Integer ’*****Add1***** ’*****Add2***** f(i)=f(i-1)+f(i-2) ’*****Add2***** ’*****Add3***** tData=f(19) ’*****Add3***** 代码编辑窗口中输入代码的相应位置如图4—274所示,关闭界面。 [*] 步骤2:按Ctrl+S保存修改,关闭设计视图。 补充:①双击左侧导航窗口中的窗体“fEmp”,弹出“信息输出”窗口界面,如图4—275所示。 [*] ②单击“输出”命令按钮,则在左边的文本框中显示计算结果4181,如图4—276所示,并将结果输出到外部文件保存,如图4—277所示。 [*] ③单击“打开表”命令按钮,则打开数据表“tEmp”。 以上补充内容不写入操作步骤,只是为了演示前面的操作结果。

解析
转载请注明原文地址:https://kaotiyun.com/show/HaMp777K
0

最新回复(0)