操作题.docx
- 文档编号:11936807
- 上传时间:2023-04-16
- 格式:DOCX
- 页数:10
- 大小:19.94KB
操作题.docx
《操作题.docx》由会员分享,可在线阅读,更多相关《操作题.docx(10页珍藏版)》请在冰豆网上搜索。
操作题
【1】数据库文件""中,已经设计好表对象"tStud",窗体对象"fStud"和子窗体对象"fDetail"。
按要求补充"fStud"窗体的设计:
①将窗体标题改为"学生查询"。
②将窗体的边框样式改为"细边框",取消窗体中的水平和垂直滚动条、记录选择器、浏览按钮(导航按钮)和分隔线;将子窗体边框样式改为"细边框",取消子窗体中的记录选择器、浏览按钮(导航按钮)和分隔线。
③在窗体中有两个标签控件,名称分别为"Label1"和"Label2",将这两个标签上的文字颜色改为白色,背景颜色改为紫蓝色(紫蓝色代码为#000080)。
④将窗体主体节中控件的Tab键次序改为:
"CItem"→"TxtDetail"→"CmdRefer"→"CmdList"→"CmdClear"→"fDetail"→"简单查询"→"Frame18"。
⑤补充事件代码设计。
在窗体中有一个组合框控件和一个文本框控件,名称分别为"CItem"和"TxtDetail";有两个标签控件,名称分别为"Label3"和"Ldetail";还有三个命令按钮,名称分别为"CmdList"、"CmdRefer"和"CmdClear"。
在"CItem"组合框中选择某一项目后,"Ldetail"标签控件将显示出所选项目名加上"内容:
"。
在"TxtDetail"文本框中输入具体项目值后,单击"CmdRefer"命令按钮,如果"CItem"和"TxtDetail"两个控件中均有值,则在子窗体中显示找出的相应记录,如果两个控件中不全有值,显示消息框,消息框标题为"注意",提示文字为"查询项目和查询内容不能为空!
!
!
",消息框中只有一个"确定"按钮;单击"CmdList"命令按钮,在子窗体中显示tStud"表中的全部记录;单击"CmdClear"命令按钮,将"cItem"和"TxtDetail"两个控件中的值清空。
解析:
①打开窗体对象"fStud"的设计视图,并在“窗体设计工具”的“设计”选项卡的“工具”组点击"属性表"按钮,打开窗体属性对话框,将标题改为"学生查询",依次设置所要求的边框样式、窗体中的水平和垂直滚动条、记录选择器、导航按钮和分隔线,完成后保存窗体。
②打开子窗体对象"fDetail"的设计视图,并在“窗体设计工具”的“设计”选项卡的“工具”组点击"属性表"按钮,打开窗体属性对话框,按照要求设置窗体的属性,完成后保存子窗体。
③选择标签控件"Label1",设置其前景色为白色,背景色为#000080,用同样的方法设置标签控件"Label2",完成后保存窗体。
④打开窗体对象"fStud"的设计视图,并在“窗体设计工具”的“设计”选项卡的“工具”组点击"Tab键次序",打开Tab键次序对话框,按照题目要求设置次序,完成后保存窗体。
⑤打开"fStud"窗体设计视图,找到"cItem"组合框,右键选择"事件生成器",在弹出的对话框中选择"代码生成器",点"确定"按钮打开代码设计对话框
第1处填写=cItem&"内容:
"
第2处填写
第3处填写MsgBox"查询项目和查询内容不能为空!
!
!
",vbOKOnly,"注意"
保存所有设置。
【1】数据库文件""中,已经设计了表对象"tEmp"、窗体对象"fEmp"、报表对象"rEmp"和宏对象"mEmp"。
按要求补充设计:
①设置报表"rEmp"按照"性别"字段分组降序排列输出,同时在其对应组页眉区添加一个文本框,命名为"SS",内容输出为性别值;将报表页面页脚区域内名为"tPage"的文本框控件设置为"页码/总页数"形式的页码显示(如1/15、2/15、…)。
②将窗体对象"fEmp"上的命令按钮(名为"btnQ")从灰色状态设为可用,然后设置控件的Tab键焦点移动顺序为:
控件tData->btnP->btnQ。
③在窗体加载事件中实现代码重置窗体标题为标签"bTitle"的标题内容。
④"fEmp"窗体上单击"输出"命令按钮(名为"btnP"),实现以下功能:
计算10000以内的素数个数及最大素数两个值,将其显示在窗体上名为"tData"的文本框内并输出到外部文件保存。
单击"打开表"命令按钮(名为"btnQ"),代码调用宏对象"mEmp"以打开数据表"tEmp"。
根据上述功能要求,对已给的命令按钮事件过程进行代码补充。
解析:
①打开报表对象"rEmp"的设计视图,在"报表设计工具"的"设计"选项卡的"分组和汇总"组中单击"分组和排序",在打开的"分组、排序和汇总"区域中,单击"添加组",选择字段"性别","降序","有页眉节",分组形式选择"按整个值"。
在“报表设计工具”的“设计”选项卡的“控件”组中选择一个文本框,放到"性别页眉"中,选择工具栏上的"属性"按钮,在弹出的属性框中设置名称为SS,并在"控件来源"属性中输入:
=[性别]。
选中"tPage"文本框控件,并在“报表设计工具”的“设计”选项卡的“工具”组点击"属性表"按钮,在"控件来源"属性中输入:
=[Page]&"/"&[Pages],保存报表。
②打开窗体对象"fEmp"的设计视图,选中"btnQ"命令按钮,并在“窗体设计工具”的“设计”选项卡的“工具”组点击"属性表"按钮,设置"可用"属性为"是"。
选中"tData",并在“工具”组点击"属性表"按钮,将"Tab键索引"属性设置为0;选中"btnP",将"Tab键索引"属性设置为1,保存窗体。
③选中窗体,并在“窗体设计工具”的“设计”选项卡的“工具”组点击"属性表"按钮,单击"加载"属性右边的"…"打开代码生成器。
设置窗体标题为标签"bTitle"的标题内容的语句为:
Caption=
计算10000以内的素数个数及最大素数两个值的语句为:
Fori=1To10000
Ifsushu(i)Then
n=n+1
Ifi>mnThen
mn=i
EndIf
EndIf
Nexti
调用宏对象"mEmp"的语句为:
"mEmp"
最后保存并运行该窗体。
【3】数据库文件""中,已经设计了表对象"tEmp"、窗体对象"fEmp"、报表对象"rEmp"和宏对象"mEmp"。
按要求补充设计:
①设置报表"rEmp"按照"年龄"字段升序排列输出;将报表页面页脚区域内名为"tPage"的文本框控件设置为"页码/总页数"形式的页码显示(如1/15、2/15、…)。
②设置窗体对象"fEmp"背景图像为""。
③在窗体加载事件中实现代码重置窗体标题为标签"bTitle"的标题内容。
④"fEmp"窗体上单击"输出"命令按钮(名为"btnP"),实现以下功能:
计算满足表达式1+2+3+…+n<=30000的最大n值,将n的值显示在窗体上名为"tData"的文本框内并输出到外部文件保存。
单击"打开表"命令按钮(名为"btnQ"),代码调用宏对象"mEmp"以打开数据表"tEmp"。
试根据上述功能要求,对已给的命令按钮事件过程进行代码补充。
解析:
①打开报表对象"rEmp"的设计视图,在"报表设计工具"的"设计"选项卡的"分组和汇总"组中单击"分组和排序",在打开的"分组、排序和汇总"区域中,单击"添加排序",选择字段"年龄","排序次序"选择"升序"。
选中"tPage"文本框控件,并在“报表设计工具”的“设计”选项卡的“工具”组点击"属性表"按钮,在"控件来源"属性中输入:
=[Page]&"/"&[Pages]保存报表。
②打开窗体对象"fEmp"的设计视图,选择窗体控件,并在“窗体设计工具”的“设计”选项卡的“工具”组点击"属性表"按钮,"图片"属性设置为""。
③单击"加载"属性右边的"…"打开代码生成器。
设置窗体标题为标签"bTitle"的标题内容:
Caption="信息输出"
计算1+2+3+…+n<=30000的最大n值的语句为:
sum=0
n=0
DoWhilesum<=30000
n=n+1
sum=sum+n
Loop
n=n-1
代码调用宏对象"mEmp"的语句为:
"mEmp"
最后保存并运行该窗体。
【4】数据库文件"",已经设计了表对象"tEmp"、窗体对象"fEmp"、报表对象"rEmp"和宏对象"mEmp"。
按要求补充设计:
①将报表"rEmp"按照聘用时间的年代分组排列输出,同时在其对应组页眉区添加一个文本框,命名为"SS",内容输出为聘用时间的年代值(如"1960年代"、"1970年代"、…)。
这里规定,1960年~1969年为1960年代,以此类推。
要求:
年代分组用表达式year([聘用时间])\10的结果来分析。
②将窗体对象"fEmp"上的命令按钮(名为"btnQ")从运行不可见状态设为可见,然后设置控件的Tab键焦点移动顺序为:
控件tData->btnP->btnQ。
③在窗体加载事件中,实现重置窗体标题为标签"bTitle"的标题内容。
④在"fEmp"窗体上单击"男性最大年龄"命令按钮(名为"btnP"),实现以下功能。
查找表对象"tEmp"中男性员工的最大年龄,将其输出显示在控件tData内;统计年龄在30以下(不含30)男性员工的人数,将其值写入外部文件""中。
单击"打开员工报表"命令按钮(名为"btnQ"),通过代码调用宏对象"mEmp"以打开报表"rEmp"。
根据上述要求,对已给的命令按钮事件过程进行补充和完善。
解析:
①在"报表设计工具"的"设计"选项卡的"分组和汇总"组中单击"分组和排序",在打开的"分组、排序和汇总"区域中,单击"添加组",选择字段中点击"表达式",输入"=year([聘用时间])\10",分组形式选择"按整个值",有"页眉节"。
在“报表设计工具”的“设计”选项卡的“控件”组中选择一个文本框,放到组页眉中,并在“工具”组点击"属性表"按钮,在弹出的属性框中设置名称为SS,并在控件来源属性中输入:
=(year([聘用时间])\10)*10&"年代"保存报表。
②打开窗体对象"fEmp"的设计视图,选中"btnQ"命令按钮,单击工具栏上的"属性"按钮,设置"可见性"属性为"是"。
选中"tData",单点击工具栏上的"属性"按钮,将"Tab键索引"属性设置为0;选中"btnP",将"Tab键索引"属性设置为1,保存窗体。
③打开窗体"fEmp"的设计视图,右键选择"事件生成器",在弹出的对话框中选择"代码生成器",点"确定"按钮打开代码设计对话框。
设置窗体标题为标签"bTitle"的标题内容的语句为:
Caption=
④打开窗体"fEmp"的设计视图,右键选择"事件生成器",在弹出的对话框中选择"代码生成器",点"确定"按钮打开代码设计框
在"Add2"输入语句:
MAgeMax=("年龄")
在"Add3"输入语句:
在"Add4"输入语句:
"mEmp"
最后保存并运行该窗体。
【5】数据库文件""中,已经设计了表对象"tEmp"、窗体对象"fEmp"、报表对象"rEmp"和宏对象"mEmp"。
按照要求补充设计:
①设置表对象"tEmp"中"年龄"字段的有效性规则为:
年龄值在20到50之间(不含20和50),有效性文本设置为"请输入有效年龄";
②设置报表"rEmp"按照"性别"字段降序(先女后男)排列输出;将报表页面页脚区域内名为"tPage"的文本框控件设置为"页码/总页数"形式页码显示;
③将"fEmp"窗体上名为"btnP"的命令按钮由灰色无效状态改为有效状态。
设置窗体标题为"职工信息输出";
④试根据以下窗体功能要求,对已给的命令按钮事件过程进行补充和完善。
在"fEmp"窗体上单击"输出"命令按钮(名为"btnP"),弹出一输入对话框,其提示文本为"请输入大于0的整数值"。
输入1时,相关代码关闭窗体(或程序);
输入2时,相关代码实现预览输出报表对象"rEmp";
输入>=3时,相关代码调用宏对象"mEmp"以打开数据表"tEmp"。
解析:
①选中表对象"tEmp",右击鼠标,选择"设计视图",选中"年龄"字段,再选中下面的"有效性规则",点击右边的"..."按钮,弹出"表达式生成器",在文本框中输入">20And<50",也可以在"有效性规则"框中直接输入">20And<50",然后在"有效性文本"右边的框中直接输入"请输入有效年龄",然后保存该表。
②选中报表对象"rEmp",选择"设计",再选择"视图"菜单中的"排序与分组",在弹出的对话框中选择"性别"字段,排序次序选择"降序"。
选中页面页脚的"tPage"文本框,在控件来源中输入=[Page]&"/"&[Pages]。
③打开窗体对象"fEmp"的设计视图,选中"btnP"命令按钮,设置"可用"属性为"是",设置窗体的"标题"属性为"职工信息输出"。
④提示文本为"请输入大于0的整数值"的语句为
k=InputBox("请输入大于0的整数值")
预览输出报表对象"rEmp"的语句为
"rEmp",acViewPreview
【6】数据库文件"",已经设计好表对象"tAddr"和"tUser",窗体对象"fEdit"和"fEuser"。
按照要求补充"fEdit"窗体的设计:
①将窗体中名称为"Lremark"的标签控件上的文字颜色改为"蓝色"(蓝色代码为#0000FF)、字体粗细改为"加粗";
②将窗体标题设置为"显示/修改用户口令";
③将窗体边框改为"细边框"样式,取消窗体中的水平和垂直滚动条、记录选择器、导航按钮和分隔线;保留窗体的关闭按钮;
④将窗体中"退出"命令按钮(名称为"cmdquit")上的文字颜色改为棕色(棕色代码为#800000)、字体粗细改为"加粗",并在文字下方加上下划线;
⑤在窗体中还有"修改"和"保存"两个命令按钮,名称分别为"CmdEdit"和"CmdSave",其中"保存"命令按钮在初始状态为不可用,当单击"修改"按钮后,"保存"按钮变为可用,同时在窗体的左侧显示出相应的信息和可修改的信息。
如果在"口令"文本框中输入的内容与在"确认口令"文本框中输入的内容不相符,当单击"保存"按钮后,屏幕上应弹出如下图所示的提示框。
现已编写了部分VBA代码,请按照VBA代码中的指示将代码补充完整。
解析:
①打开窗体对象"fEdit"的设计视图,选中"Lremark"的标签控件,并在“窗体设计工具”的“设计”选项卡的“工具”组点击"属性表"按钮,前景色"设置为#0000FF,"字体粗细"设置为"加粗"。
选择"fEdit"窗体,设置"标题"属性为"显示/修改用户口令","边框样式"为"细边框","滚动条"为"两者均无"。
"记录选择器"、"导航按钮"和"分隔线"属性均为"否","关闭按钮"属性为"是"。
②选择"退出"命令按钮,并在“窗体设计工具”的“设计”选项卡的“工具”组点击"属性表"按钮,"前景色"设置为128,"字体粗细"为"加粗","下划线"为"是"。
③在VBA编程的第一空中,需要设置屏幕上弹出的提示框语句,所填语句为:
MsgBox"请重新输入口令!
"
【7】数据库文件"",已经设计了表对象"tEmp"、窗体对象"fEmp"、报表对象"rEmp"和宏对象"mEmp"。
按照要求补充设计:
①设置表对象"tEmp"中"聘用时间"字段的有效性规则为:
1991年1月1日(含)以后的时间、相应有效性文本设置为"输入一九九一年以后的日期";
②设置报表"rEmp"按照"性别"字段升序(先男后女)排列输出;将报表页面页脚区域内名为"tPage"的文本框控件设置为"-页码/总页数-"形式的页码显示(如-1/15-、-2/15-、...);
③将"fEmp"窗体上名为"bTitle"的标签上移到距"btnP"命令按钮1厘米的位置(即标签的下边界距命令按钮的上边界1厘米),并设置其标题为"职工信息输出";
④试根据以下窗体功能要求,对已给的命令按钮事件过程进行补充和完善。
在"fEmp"窗体上单击"输出"命令按钮(名为"btnP"),弹出一输入对话框,其提示文本为"请输入大于0的整数值"。
输入1时,相关代码关闭窗体(或程序);
输入2时,相关代码实现预览输出报表对象"rEmp";
输入>=3时,相关代码调用宏对象"mEmp"以打开数据表"tEmp"。
解析:
①选中表对象"tEmp",点击"设计(D)"按钮,选中"聘用时间"字段,再选中下面的"有效性规则",点击右边的"..."按钮,弹出"表达式生成器",在文本框中输入">=#1/1/1991#",也可以直接在"有效性规则"右边的框中输入">=#1/1/1991#",然后在"有效性文本"右边的框中直接输入"输入一九九一年以后的日期",然后保存该表。
②选中报表对象"rEmp",选择"设计(D)",再选择"视图"菜单中的"排序与分组",在弹出的对话框中选择"性别"字段,排序次序选择"升序"。
选中页面页脚区的"tPage"文本框控件,在文本框中输入="-"&[Page]&"/"&[Pages]&"-"
③打开窗体对象"fEmp"的设计视图,选中"bTitle"标签,右击鼠标选择属性,设置其"上边距"为"1厘米",选中窗体,右击鼠标选择属性,设置其"标题"属性为"职工信息输出"。
④>=3的条件可以表示为CaseIs>=3,预览输出报表对象"rEmp"的语句为"rEmp",acViewPreview
【8】数据库文件"",已经设计了表对象"tEmp"、窗体对象"fEmp"、报表对象"rEmp"和宏对象"mEmp"。
按要求补充设计:
①将报表"rEmp"的报表页眉区域内名为"bTitle"标签控件的标题显示为"职工基本信息表",同时将其安排在距上边厘米、距左侧5厘米的位置。
②设置报表"rEmp"的主体节区内"tSex"文本框控件显示"性别"字段数据。
③将窗体按钮"btnP"的单击事件属性设置为宏"mEmp",以完成按钮单击打开报表的操作。
④窗体加载时将考生文件夹下的图片文件""设置为窗体"fEmp"的背景。
窗体"加载"事件代码已提供,请补充完整。
要求背景图像文件当前路径必须用获得。
解析:
①打开报表rEmp的设计视图,选中"bTitle"标签,并在“报表设计工具”的“设计”选项卡的“工具”组点击"属性表"按钮,设置标签的标题、上边距和左边距属性。
②选中"性别"标签下面的文本框,并在“工具”组点击"属性表"按钮,设置文本框的"控件来源"属性为"性别"字段。
③打开窗体fEmp的设计视图,选中"btnP"命令按钮,设置单击属性为"mEmp"。
④选中窗体fEmp,并在“工具”组点击"属性表"按钮,点击"加载"事件右边的"…"打开代码生成器,输入:
Picture=+"\"
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 操作
![提示](https://static.bdocx.com/images/bang_tan.gif)