1、国家二级 VB 机试（上机操作）-试卷 110 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.在考生文件夹下，存在一个数据库文件“samp1accdb”，里而已经设计好表对象“tStud”，请按照以下要求，完成对表的修改。 (1)将“年龄”字段的字段大小改为“整型”；将“简历”字段的说明设置为“自上大学起的简历信息”；将“备注”字段删除。 (2)设置表对象的有效性规则为：学生的出生年份应早于(不含)入校年份；同时设置相应有效性文本为“请输入合适的年龄和入校时间”。 要求：使用函数返回有关年份。 (3)设置“性别”字段的默认值为“女”；设置“性
2、别”字段值的输入方式为从下拉列表中选择“男”或“女”选项值。 (4)设置数据表显示的字体大小为 12、行高为 18，设置数据表中显示所有字段。 (5)将学号为“20011001”学生的照片信息换成考生文件夹下的“photobmp”图像文件；将姓名中的“青”改为“菁”；在党员学生的简历文字的句号前加“，在校入党”等文字。 (6)将宏“打开表”重命名为自动执行的宏。（分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.在考生文件夹下，存在一个数据库文件“samp2accdb”，里面已经设计好三个关联表对象“tStud”、“tCourse”、“tScore”和一个临时表对象“tTemp
3、”。试按以下要求完成设计。 (1)创建一个查询，按所属院系统计学生的平均年龄，字段显示标题为“院系”和“平均年龄”，所建查询命名为“qT1”。 要求：平均年龄四舍五人取整处理。 (2)创建一个查询，查找上半年入学的学生，并显示“姓名”、“性别”、“课程名”和“成绩”等字段内容，所建查询命名为“qT2”。 (3)创建一个查询，查找没有选课的同学，并显示其“学号”和“姓名”两个字段内容，所建查询命名为“qT3”。 (4)创建删除查询，将表对象“tTemp”中年龄值高于平均年龄(不含平均年龄)的学生记录删除，所建查询命名为“qT4”。（分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3
4、.考生文件夹下存在一个数据库文件“samp3accdb”，里面已经设计好表对象“tStud”，同时还设计出窗体对象“fStud”。请在此基础上按照以下要求补充“fStud”窗体的设计。 (1)在窗体的“窗体页眉”中距左边 04cm、距上边 12cm 处添加一个直线控件，控件宽度为 105cm，控件命名为“tLine”；将窗体中标签控件“1Talbel”上的文字改为“隶书”，字号改为 18。 (2)打开窗体时，窗体标题自动显示为标签控件“1Talbel”的内容，并且自动将该控件上的文字颜色改为“蓝色”，请按照 VBA 代码中的指示将代码补充完整。 (3)将窗体边框改为“细边框”样式，取消窗体中的
5、水平和垂直滚动条、记录选择器、导航按钮和分隔线；并且只保留窗体的关闭按钮。 (4)假设“tStud”表中“学号”字段的第 5 位和第 6位编码代表该生的专业信息，当这两位编码为“10”时表示“信息”专业，为其他值时表示“管理”专业。设置窗体中名称为“tSub”文本框控件的相应属性，使其根据“学号”字段的第 5 位和第 6 位编码显示对应的专业名称。 (5)在窗体中有一个“退出”命令按钮，名称为“CmdQuit”，其功能为关闭“tStud”窗体。请按照 VBA 代码中的指示将实现此功能的代码补充完整。 注意：不允许修改窗体对象“fStud”中未涉及的控件、属性和任何 VBA 代码；不允许修改表对
6、象“tStud”：程序代码只允许在“*Add*”与“*Add*”之间的空行内补充一行语句完成设计，不允许增删和修改其它位置已存在的语句。（分数：2.00）_国家二级 VB 机试（上机操作）-试卷 110 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.在考生文件夹下，存在一个数据库文件“samp1accdb”，里而已经设计好表对象“tStud”，请按照以下要求，完成对表的修改。 (1)将“年龄”字段的字段大小改为“整型”；将“简历”字段的说明设置为“自上大学起的简历信息”；将“备注”字段删除。 (2)设置表对象的有效性规则为：学生的出生年份应早于
7、(不含)入校年份；同时设置相应有效性文本为“请输入合适的年龄和入校时间”。 要求：使用函数返回有关年份。 (3)设置“性别”字段的默认值为“女”；设置“性别”字段值的输入方式为从下拉列表中选择“男”或“女”选项值。 (4)设置数据表显示的字体大小为 12、行高为 18，设置数据表中显示所有字段。 (5)将学号为“20011001”学生的照片信息换成考生文件夹下的“photobmp”图像文件；将姓名中的“青”改为“菁”；在党员学生的简历文字的句号前加“，在校入党”等文字。 (6)将宏“打开表”重命名为自动执行的宏。（分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：选择“表”
8、对象，右键单击“tStud”表，在弹出的快捷菜单中选择“设计视图”命令，打开设计视图。 步骤 2：单击“年龄”行的任一点，然后再单击其“常规”选项卡下的“字段大小”行的下拉按钮，在弹出的下拉列表中选择“整型”，如图 421 所示。步骤 3：单击“简历”行的“说明”列，并输入“白上大学起的简历信息”，如图 422 所示。步骤 4：右键单击“备注”行的任一点，在弹出的快捷菜单中选择“删除行”命令，如图 423 所示。 步骤 5：单击快速访问工具栏中的“保存”按钮。 (2)【操作步骤】 步骤 1：右键单击字段行任一点，在弹出的快捷菜单中选择“属性”命令，弹出属性表”对话框，在该对话框的“有效性规则”
9、行中输入“Year(Date()年龄Year(入校时间)”并且在其“有效性文本”行中输入“请输入合适的年龄和入校时问”，如图 424 所示。 步骤 2：单击快速访问工具栏中的“保存”按钮，在弹出的“Microsoft Acce88”的对话框中单击“是”按钮，最后关闭数据表。 (3)【操作步骤】 步骤 1：单击“性别”行任一点，然后在其“常规”选项卡下的“默认值”行中输入“女”。 步骤 2：单击“性别”行的“数据类型”列的下拉按钮，在弹出的下拉列表中选择“查阅向导”命令，弹出“杏阅向导”对话框，在该对话框中选中“自行键入所需的值(V)”单选按钮，然后单击“下一步”按钮，分别输入“男”、“女”，再
10、单击“下一步”按钮，最后单击“完成”按钮，如图 425 所示。 步骤 3：单击快速访问工具栏中的“保存”按钮，最后关闭表。 (4)【操作步骤】 步骤 1：选择“表”对象，双击“tStud”表，打开数据表视图。 步骤 2：单击“开始”选项卡下“文本格式”组中“字号”右侧的下拉按钮，在弹出的下拉列表中选择“12”，如图 426 所示。 步骤 3：在行选择器上右键单击，在弹出的快捷菜单中选择“行高”命令，打开“行高”对话框，在该对话框的“行高(R)”文本框中输入“18”，然后单击“确定”按钮，如图 427 所示。 步骤 4：在任意字段名称上右击，从弹出的快捷菜单中选择“取消隐藏字段(u)”命令，打开
11、“取消隐藏列”对话框，如图 428 所示，将“党员否”字段的复选框选中，单击“1 天闭”按钮。 步骤 5：单击快速访问工具栏中的“保存”按钮。 (5)【操作步骤】 步骤 1：右键单击除标题行外的任意行，在弹出的快捷菜单中，选择“文本筛选器”“等于(E)”命令，如图 429 所示。弹出“自定义筛选”对话框，在该对话框的“学号等于”行的文本框中输入“20011001”，然后单击“确定”按钮，即可找到“学号”为“20011001”的记录。 步骤 2：右键单击该记录所在行的“照片”列的单元格内容，在弹出的快捷菜单中，选择“插入对象(J)”命令，如图 430 所示。在弹出“Microsoft Acces
12、s”的对话框中，单击“由文件创建(F)”单选按钮，单击“浏览(B)”按钮，弹出“浏览”文件对话框，在考生文件夹下找到对应图片文件，然后单击“确定”按钮。步骤 3：单击“姓名”列的任一点，然后单击“开始”选项卡下“查找”组中的“查找”按钮，弹出“查找和替换”对话框。 步骤 4：单击该对话框中的“替换”选项卡，在“查找内容”文本框中输入“青”，在“替换为”文本框中输入“菁”，在“匹配(H)”行选择“字段任何部分”，然后单击“全部替换(A)”按钮，如图 431 所示。 步骤 5：在弹出的“Microsoft Access”的对话框中单击“是”按钮，然后关闭“查找和替换”对话框，最后单击快速访问工具栏
13、中的“保存”按钮。 步骤 6：单击“开始”选项卡下“排序和筛选”组中的“高级”按钮，在弹出的快捷菜单中选择“高级筛选排序”命令，打开“tStud 筛选 1”对话框。 步骤 7：双击“党员否”字段，在其“条件”行中输入“True”。如图 432 所示。然后单击“开始”选项卡下的“排序和筛选”组中的“应用筛选”按钮。 步骤 8：在筛选出的记录集中，单击“简历”字段的任一点，然后单击“开始”选项卡下“查找”组中的“查找”按钮，弹出“查找和替换”对话框。 步骤 9：单击“替换”选项卡，在“查找内容”文本框中输入“。”，在“替换为”文本框中输入“，在校入党。”，在“匹配(H)”行选择“字段任何部分”，然
14、后单击“全部替换(A)”按钮。 步骤 10：在弹出的“Microsoft Access”的对话框中单击“是”按钮，然后关闭“查找和替换”对话框，单击快速访问工具栏中的“保存”按钮。 (6)【操作步骤】 步骤 1：选择“宏”对象，右键单击“打开表”宏，在弹出的快捷菜单中选择“重命名”命令，如图 433 所示。)解析：二、简单应用题(总题数：1，分数：2.00)2.在考生文件夹下，存在一个数据库文件“samp2accdb”，里面已经设计好三个关联表对象“tStud”、“tCourse”、“tScore”和一个临时表对象“tTemp”。试按以下要求完成设计。 (1)创建一个查询，按所属院系统计学生的
15、平均年龄，字段显示标题为“院系”和“平均年龄”，所建查询命名为“qT1”。 要求：平均年龄四舍五人取整处理。 (2)创建一个查询，查找上半年入学的学生，并显示“姓名”、“性别”、“课程名”和“成绩”等字段内容，所建查询命名为“qT2”。 (3)创建一个查询，查找没有选课的同学，并显示其“学号”和“姓名”两个字段内容，所建查询命名为“qT3”。 (4)创建删除查询，将表对象“tTemp”中年龄值高于平均年龄(不含平均年龄)的学生记录删除，所建查询命名为“qT4”。（分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：单击“创建”选项卡下“查询”组中的“查询设计”按钮，在弹出的“
16、显示表”对话框中双击添加表“tStud”，然后单击“关闭”按钮，关闭“显示表”对话框。 步骤 2：在“字段”行中分别输入“院系：所属院系”和“平均年龄：Round(Avg(年龄)，0)”。步骤 3：单击“查询工具”的“设计”选项卡下“显示隐藏”组中的“汇总”按钮，然后在“平均年龄：Round(Avg(年龄)，0)”字段的“总计”行的下拉列表中选择“Expression”命令，如图 434 所示。 步骤 4：单击陕速访问工具栏中的“保存”按钮，另存为“qT1”。 (2)【操作步骤】 步骤1：单击“创建”选项卡下“查询”组中的“查询设计”按钮，在弹出的“显示表”对话框中舣击表“tStud”、“tC
17、ourse”和“tScore”，然后单击“关闭”按钮，关闭“显示表”对话框。 步骤 2：选中表“tStud”中的“学号”字段，然后拖动鼠标指针到表“tScore”中的“学号”字段，放开鼠标左键，选中表“tCourse” 中的“课程号”字段，然后拖动鼠标指针到表“tScore”中的“课程号”字段，放开鼠标左键。 步骤 3：分别双击添加“姓名”、“性别”、“课程名”、“成绩”和“入校时问”字段，在其下一字段行中输入“Month(入校时间)”，取消“Month(入校时间)”字段显示行复选框的勾选，在“Month(入校时间)”字段的“条件”行中输入“1 And 6”，如图 435 所示。 步骤4：单击
18、快速访问工具栏中的“保存”按钮， 另存为“qT2”。 (3)【操作步骤】 步骤 1：单击“创建”选项卡下查询”组中的“查询设计”按钮，在弹出的“显示表”对话框中双击添加表“tStud”，然后单击“关闭”按钮，关闭“显示表”对话框。 步骤 2：双击添加“学号”和“姓名”字段，在“学号”的“条件”行中输入“Not ln(SELECT tStud学号 FROM tStud INNER JOIN tScore ON tStud学号tScore学号 GROUP BY tStud学号)”，如图 436 所示。 步骤 3：单击快速访问工具栏中的“保存”按钮，另存为“qT3”。 (4)【操作步骤】 步骤 1：
19、单击“创建”选项卡“查询”组中的“查询设计”按钮，在弹山的“显示表”对话框中双击添加表“tTemp”，然后单击“关闭”按钮，关闭“显示表”对话框。 步骤 2：双击添加“年龄”字段。 步骤 3：单击“查询工具”的“设计”选项卡下“查询类型”组中的“删除”按钮，在“年龄”字段的“条件”行中输入“(select avg(年龄)fromtTemp)”，如图 437 所示。 )解析：三、综合应用题(总题数：1，分数：2.00)3.考生文件夹下存在一个数据库文件“samp3accdb”，里面已经设计好表对象“tStud”，同时还设计出窗体对象“fStud”。请在此基础上按照以下要求补充“fStud”窗体的
20、设计。 (1)在窗体的“窗体页眉”中距左边 04cm、距上边 12cm 处添加一个直线控件，控件宽度为 105cm，控件命名为“tLine”；将窗体中标签控件“1Talbel”上的文字改为“隶书”，字号改为 18。 (2)打开窗体时，窗体标题自动显示为标签控件“1Talbel”的内容，并且自动将该控件上的文字颜色改为“蓝色”，请按照 VBA 代码中的指示将代码补充完整。 (3)将窗体边框改为“细边框”样式，取消窗体中的水平和垂直滚动条、记录选择器、导航按钮和分隔线；并且只保留窗体的关闭按钮。 (4)假设“tStud”表中“学号”字段的第 5 位和第 6位编码代表该生的专业信息，当这两位编码为“
21、10”时表示“信息”专业，为其他值时表示“管理”专业。设置窗体中名称为“tSub”文本框控件的相应属性，使其根据“学号”字段的第 5 位和第 6 位编码显示对应的专业名称。 (5)在窗体中有一个“退出”命令按钮，名称为“CmdQuit”，其功能为关闭“tStud”窗体。请按照 VBA 代码中的指示将实现此功能的代码补充完整。 注意：不允许修改窗体对象“fStud”中未涉及的控件、属性和任何 VBA 代码；不允许修改表对象“tStud”：程序代码只允许在“*Add*”与“*Add*”之间的空行内补充一行语句完成设计，不允许增删和修改其它位置已存在的语句。（分数：2.00）_正确答案：(正确答案：
22、(1)【操作步骤】 步骤 1：选择“窗体”对象，右键单击“tStud”窗体，在弹出的快捷菜单中选择“设计视图”命令，打开“设计视图”。 步骤 2：单击“设计”选项卡下“控件”组中的“其他”下拉按钮，选择控件组中的“直线”按钮，然后在窗体页眉节的任意区域中单击。 步骤3：右键单击该“直线”控件，在弹出的快捷菜单中选择“属性”命令，打开“属性表”对话框，在该对话框中单击“全部”选项卡，在该选项卡下的“名称”行中输入“tLine”，在“宽度”行中输入“105cm”，在“上边距”行中输入“12cm”，在“左”行中输入“04cm”，如图 438 所示。步骤 4：单击“属性表”对话框中“所选内容的类型：”
23、下方的文本框，在弹出的下拉列表中选择“1Talbel”标签，打开“1Talbel”标签的“属性表”对话框。在该对话框中单击“格式”选项卡，在该选项卡的“字体名称”行中选择“隶书”，在“字号”行中输入“18”，如图 439 所示。 步骤5：关闭“属性表”对话框。单击快速工具栏中的“保存”按钮。 (2)【操作步骤】 步骤 1：双击标尺相交处的“窗体选择器”，打开“属性表”对话框，在该对话框中单击“事件”选项卡，然后单击该选项卡下“加载”行的事件生成器按钮，进入 VBA 代码编辑区。 步骤 2：在“*Add2*”区域的空白行中输入“FormCaptionMe1TalbelCaption”，在*Add
24、3*”区域的空白行中输入“1TalbelForeColorRGB(0，0，255)”，如图 440 所示。 步骤 3：单击快速工具栏中的“保存”按钮，然后关闭 VBA 代码编辑区。 步骤 4：关闭“属性表”对话框，然后单击快速工具栏中的“保存”按钮。 (3)【操作步骤】 步骤 1：双击标尺相交处的“窗体选择器”，打开“属性表”对话框，在该对话框中单击“格式”选项卡，在该选项卡下的“边框样式”行中选择“细边框”，在“滚动条”行中选择“两者均无”，在“记录选择器”行中选择“否”，在“导航按钮”行中选择“否”，在“分隔线”行中选择“否”，在“关闭按钮”行中选择“是”，在“最大最小按钮”行中选择“无”
25、，如图 441 所示。 步骤 2：关闭“属性表”对话框。单击快速工具栏中的“保存”按钮。 (4)【操作步骤】 步骤1：右键单击“tSub”文本框控件，在弹出的快捷菜单中选择“属性”命令，打开“属性表”对话框，在该对话框中单击“数据”选项卡，在该选项卡的“控件来源”行中输入“IIf(Mid(学号，5，2)“10“，“信息“，“管理“)”，如图 442 所示。 步骤 2：关闭“属性表”对话框。单击快速工具栏中的“保存”按钮。 (5)【操作步骤】 步骤 1：右键单击“CmdQuit”按钮，在弹出的快捷菜单中选择“属性”命令，打开“属性表”对话框，在该对话框中单击“事件”选项卡，然后单击该选项卡下的“单击”行右侧的事件生成器按钮，进入 VBA 代码编辑区。 步骤 2：在“*Add1*”区域的空白行中输入“DoCmdClose”，如图 443 所示。 )解析：
