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