2. 计算机
  3. 在考生文件夹下有一个数据库文件“samp3．mdb”，里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。请在此基础上按照以下要求补充设计。 (1)设置表对象“tEmp”中“聘用时间”字段的有效性规则为

在考生文件夹下有一个数据库文件“samp3．mdb”，里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。请在此基础上按照以下要求补充设计。 (1)设置表对象“tEmp”中“聘用时间”字段的有效性规则为

admin2013-11-19  43
问题 在考生文件夹下有一个数据库文件“samp3．mdb”，里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。请在此基础上按照以下要求补充设计。
    (1)设置表对象“tEmp”中“聘用时间”字段的有效性规则为：2006年9月30日(含)以前的时间。相应有效性文本设置为“输入二零零六年九月以前的13期”。
    (2)设置报表“rEmp”按照“年龄”字段降序排列输出；将报表页面页脚区域内名为“tPage”的文本框控件设置为“页码一总页数”形式的页码显示(如1-15、2-15、……)。
    (3)将“fEmp”窗体上名为“bTitle”的标签宽度设置为5厘米、高度设置为1厘米，设置其标题为“数据信息输出”并居中显示。
    (4)“fEmp”窗体上单击“输出”命令按钮(名为“btnP”)，实现以下功能：计算Fibonacci数列第19项的值，将结果显示在窗体上名为“tData”的文本框内并输出到外部文件保存；单击“打开表”命令按钮(名为“btnQ”)，调用宏对象“mEmp”以打开数据表“tEmp”。
  Fibonacci数列：
  F1=1    n=1
  F2=1    n=2
  Fn=Fn-1+Fn-2    n>=3
  调试完毕后，必须点击“输出”命令按钮生成外部文件，才能得分。
  试根据上述功能要求，对已给的命令按钮事件进行补充和完善。
  注意：不要修改数据库中的宏对象“mEmp”；不要修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性；不要修改表对象“tEmp”中未涉及的字段和属性。
    程序代码只允许在“*****Add=*****”与“*****Add*****”之间的空行内补充一
行语句，从而完成设计，不允许增、删和修改其他位置已存在的语句。
  Option Compare Database
  Private Sub btnP_Click()
    Dim i As Integer
    Dim S As Integer
   *****Add*****
    *****Add*****
    f(1)=l：f(2)=1
    For i=3 To 19
   *****Add2*****
   *****Add2*****
    Next i
    数据输出到文本框内
    *****Add3*****
   *****Add3*****
    以下是文件操作
    If Dir(CurrentProjeet．Path&“＼out．dat”，vbDirection)<>vbNullString Then
    Kill CurrentProject．Path&“＼out．dat”
    End If
    Open CurrentProject．Path&”＼out。dat”For Output As#1
    Print#1。Me!tData
    Close#1
End Sub
选项
答案(1)[操作步骤] 步骤1：选择“表”对象，右键单击“tEmp”，从弹出的快捷菜单中选择“设计视图”命令。 步骤2：单击“聘用时间”字段行任一点，在“有效性规则”行输入“<=#2006-9-30#”，在“有效性文本”行输入“输入二零零六年九月以前的日期”。 步骤3：单击工具栏中的“保存”按钮[*]，关闭设计视图。 (2)[操作步骤] 步骤1：选择“报表”对象，右键单击“rEmp”，从弹出的快捷菜单中选择“设计视图”命令。 步骤2：单击菜单栏“视图”｜“排序与分组”命令，在“排序与分组”对话框的“字段／表达式”下拉列表中选择“年龄”字段，在“排序与分组”下拉列表中选择“降序”。关闭“排序与分组”对话框。 步骤3：右键单击“&age”，从弹出的快捷菜单中选择“属性”命令，在“全部”选项卡“控件来源”行输入：=[Page]&“-”&[Pages]，关闭属性界面。 步骤4：单击工具栏中的“保存”按钮[*]，关闭设计视图。 (3)[操作步骤] 步骤1：选中“窗体”对象，右键单击“fEmp”，从弹出的快捷菜单中选择“设计视图”命令。 步骤2：右键单击标签控件“bTitle”，从弹出的快捷菜单中选择“属性”命令，在“标题”行输入“数据信息输出”，在“宽度”和“高度”行输入“5cm”和“lcm”，并在“文本对齐”行右边的下拉列表中选择“居中”，关闭属性界面。 (4)[操作步骤] 步骤1：右键单击命令按钮“输出”，从弹出的快捷菜单中选择“事件生成器”命令，在空格行相应输入如下代码。 *****Add1***** Dim f(19)As Integer *****Add1***** *****Add2***** f(i)=f(i-1) +f(i-2) *****Add2***** *****Add3***** tData=f(19) *****Add3***** 关闭界面。 步骤2：单击工具栏中“保存”按钮[*]，关闭设计视图。
解析 第1小题在设计视图中设置字段属性；第2、3小题分别在窗体和报表设计视图右键单击该控件选择“属性”命令，设置属性；第4小题直接右键单击命令按钮选择“事件生成器”命令，输入代码。
转载请注明原文地址:https://kaotiyun.com/show/Mfrp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)