问答题
下存在一个数据库文件“samp3.mdb”,里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。试在此基础上按照以下要求补充设计。
问答题
设置报表“rEmp”按照“性别”字段分组降序排列输出,同时在其对应组页眉区添加一个文本框,命名为“SS”,内容输出为性别值;将报表页面页脚区域内名为“tPage”的文本框控件设置为“页码/总页数”形式的页码显示(如1/15、2/15…)。
【正确答案】
【答案解析】 步骤1:单击“报表”对象,选中“rEmp”,用鼠标右击,在弹出的快捷菜单中单击“设计视图”命令。
步骤2:单击“视图”菜单中的“排序与分组”命令,在“字段/表达式”中输入“性别”,在“排序次序”中选择“降序”,在“组页眉”选择“是”,分组形式选择“每一个值”。关闭“排序与分组”窗口。
步骤3:在工具栏中单击文本框控件,在“性别页眉”中添加一个文本框控件。
步骤4:单击工具栏上的“属性”按钮,在弹出的“属性”对话框中设置名称为SS。
步骤5:在“控件来源”行中输入“性别”。
步骤6:选择“tPage”文本框控件,在“控件来源”行中输入“=[Page]& "/" &[Pages]”,保存报表。
答案考生文件夹
问答题
将窗体对象“fEmp”上的命令按钮(名为“btnQ”)从灰色状态设为可用,然后设置控件的Tab键焦点移动顺序为:控件tData”→“btnP”→“btnQ。
【正确答案】
【答案解析】 步骤1:单击“窗体”对象,选中“fEmp”,用鼠标右击,在弹出的快捷菜单中单击“设计视图命令”。
步骤2:单击“btnQ”命令按钮,单击工具栏中的“属性”按钮,将其“可用”属性设置为“是”。
步骤3:单击控件“tData”,单击“视图”菜单下的“属性”命令,设置“Tab键索引”属性为0;选中“btnP”,设置“Tab键索引”属性为1,保存窗体。
问答题
在窗体加载事件中实现代码重置窗体标题为标签“bTitle”的标题内容。
【正确答案】
【答案解析】 步骤1:选中窗体,单击工具栏上的“属性”按钮,打开窗体属性窗口。
步骤2:单击“事件”选项卡,再单击“加载”属性右侧的“…”按钮打开代码生成器。输入将窗体标题设置为“bTitle”标签的标题内容的语句:Caption=bTitle.Caption。
问答题
在“fEmp”窗体上单击“输出”命令按钮(名为“btnP”),实现以下功能。
计算10000以内的素数个数及最大素数,将其显示在窗体上名为“tData”的文本框内并输出到外部文件保存。
单击“打开表”命令按钮(名为“btnQ”),代码调用宏对象“mEmp”以打开数据表“tEmp”。
试根据上述功能要求,对已给的命令按钮事件过程补充代码并调试运行。
注意:不允许修改数据库中的表对象“tEmp”和宏对象“mEmp”;不允许修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性。
只允许在“****Add****”与“****Add****”之间的空行内补充语句,完成设计,不允许增删和修改其他位置已存在的语句。
【正确答案】
【答案解析】 步骤1:选中窗体没计视图中的“输出”按钮,右击选择“属性”命令。
步骤2:单击“事件”行对应右侧的“…”按钮。
计算10000以内的素数个数及最大素数两个值的语句为:
For i=2 To 10000
If sushu(i) Then
n=n+1
If i>mn Then
mn=i
End If
End If
Next i
步骤3:代码调用“mEmp”宏对象对应的语句为:DoCmd.RunMaero "mEmp"。
步骤4:保存并运行该窗体。
提交答案
关闭