首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下存在一个数据库文件“samp3,accdb”,里面已经设计了表对象“tEmp"、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。试在此基础上按照以下要求补充设计: “fEmp”窗体上单击“输出”命令按钮(名为“btnP”),实
考生文件夹下存在一个数据库文件“samp3,accdb”,里面已经设计了表对象“tEmp"、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。试在此基础上按照以下要求补充设计: “fEmp”窗体上单击“输出”命令按钮(名为“btnP”),实
admin
2019-01-09
49
问题
考生文件夹下存在一个数据库文件“samp3,accdb”,里面已经设计了表对象“tEmp"、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。试在此基础上按照以下要求补充设计:
“fEmp”窗体上单击“输出”命令按钮(名为“btnP”),实现以下功能:计算Fibonacci数列第19项的值,将结果显示在窗体上名为“tData”的文本框内并输出到外部文件保存;单击“打开表”命令按钮(名为“btnQ”),调用宏对象“mEmp”以打开数据表“tEmp”。
Fibonacci数列:
调试完毕,必须单击“输出”命令按钮生成外部文件,才能得分。
试根据上述功能要求,对已给的命令按钮事件过程进行补充和完善。
注意:不允许修改数据库中的宏对象“mEmp”;不允许修改窗体对象“fEmp"和报表对象“rEmp”中未涉及的控件和属性;不允许修改表对象“tEmp”中未涉及的字段和属性。
程序代码只允许在“*****Add*****”与“*****Ad*****”之间的空行内补充一行语句、完成设计,不允许增删和修改其他位置已存在的语句。
选项
答案
步骤1:单击【窗体设计工具一设计】功能区的【工具】分组中的“查看代码”按钮,打开“代码设计器”窗口。 在“****Addl****”空行之间输入: Dim f(19) As Integer 在“****Add2****”空行之间输入: fi)=f(i-1)+f(i一2) 在“****Add3****”空行之间输入: tData=f(19) 步骤2:关闭代码设计窗口。 步骤3:在“fEmp”窗体设计视图中单击“打开表”(btnQ)按钮,在【属性表】对话框的“事件”选项卡中,在“单击”行的下拉列表中选择“mEmp”。 步骤4:单击快速访问工具栏中的“保存”按钮,关闭设计视图。 步骤5:双击“fEmp”窗体,将其在窗体视图下打开,然后单击窗体上的“输出”命令按钮,生成外部文件,最后关闭窗体。
解析
表中字段属性有效性规则的设置;窗体中命令按钮控件和报表中文本框控件属性的设置:VBA编程。
转载请注明原文地址:https://kaotiyun.com/show/AlMp777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
定位当前记录的第一个字段的快捷键是______。
数据库的逻辑模型设计阶段的任务是将______转换成关系模式。
属于“数据库属性”窗口选项卡的是()。
有效性规则主要用于______。
在下列几种排序方法中,要求内存量最大的是______。
在SQL的Select命令中用__________短语对查询的结果进行排序。
Access提供的数据类型中不包括(’)。
若将窗体的标题设置为“改变文字显示颜色”,应使用的语句是______。
面向对象的程序设计方法中涉及的对象是系统中用来描述客观事物的一个______。
随机试题
长江公司只生产和销售甲产品一种产品(单位:件)。2012年度甲产品单位变动成本(包括销售税金)为54元,边际贡献率为40%,固定成本总额为1125012元,全年实现净利润为450000元。该公司适用的所得税税率为25%,2012年度的股利支付率为20%。2
王国维认为抒写“无我之境”的代表作是
硫脲类药物引起的最严重的不良反应是
()是企业最高管理当局的战略规划,涉及企业的所有经营活动。
甲省A市一公司,其下属的某企业所在地为乙省的B市,目前该企业正在乙省C市开采铁矿,然后将铁矿销往丙省D市,则该企业资源税纳税地点是( )。
当年的楚霸王自刎的乌江在现在安徽省内。()
下列强化程式属于延缓式强化的是()。
根据以下图表回答下列问题。2010年前4个月,江苏累计用电量最多的三个市依次是()。
Ihearmanyparentscomplainingthattheirteenagechildrenarerebelling.Iwishitwereso.Atyourageyououghttobegrowin
在窗体中变量m对应的文本框为Text1,“运行”按钮Command1对应的事件代码如下:PrivateSubCommand1_Click()DimresultAsStringm=val(Me!Text1)result=""Fork=
最新回复
(
0
)