第一篇：ACCESS上机试题及答案3
一、基本操作
（1）在考生文件夹下，“samp1.mdb”数据库文件中建立表“tTeacher”，表结构如下。
（2）根据“tTeacher”表的结构，判断并设置主键。（3）设置“工作时间”字段的有效性规则为只能输入上一年度五月一日以前（含）的日期（规定：本年度年号必须用函数获取）。（4）将“在职否”字段的默认值设置为真值，设置“邮箱密码”字段的输入掩码为将输入的密码显示为6位星号（密码），设置“联系电话”字段的输入掩码，要求前四位为“010-”，后八位为数字。（5）将“性别”字段值的输入设置为“男”、“女”列表选择。（6）在“tTeacher”表中输入以下2条记录：
第1题分析
本题主要考核点：在一个数据库中添加一个新表、表结构的定义、主键的设置、有效性规则的设置、默认值的设置、输入掩码的设置、查阅向导的使用以及向表中输入记录。
本题解题思路：
第一步：打开考生文件夹下的“samp1.mdb”数据库。
第二步：打开数据库菜单选择“新建(N)”，在弹出的“新建表”对话框中，点击“设计视图”按钮，在弹出的表设计器中按题面要求依次输入各字段的定义。
第三步：主关键字是每个表中能惟一标识每条记录的字段，可以是一个字段，或是一组字段。由表中字段可知，“编号”为该表的主关键字，选中“编号”字段行，点击工具栏上的“主键”按钮。
第四步：选中“工作时间”字段行，再选中下面的“有效性规则”，在右边的框中直接输入“<=DateSerial(Year(Date())-1,5,1)”。
第五步：选中“在职否”字段行，在“默认值”右边的框中输入“True”。选中“邮箱密码”字段行，再选中下面的“输入掩码”，点击右边的“...”按钮，在弹出的“输入掩码”向导中选择“密码”，单击“下一步”按钮，再单击“完成”按钮。选中“联系电话”字段行，再选中下面的“输入掩码”，输入：“010-”00000000。
第六步：选中“性别”字段，在下面的“查阅”选项卡中的“显示控件”选择“列表框”，“行来源类型”中选择“值列表”，“行来源”中输入：男;女。然后以“tTeacher”保存该表。
第七步：向“tTeacher”表中输入题面所要求的各字段的内容。
二、简单应用
考生文件夹下存在一个数据库文件“samp2.mdb”，里面已经设计好三个关联表对象“tStud”、“tCourse”、“tScore”和一个空表“tTemp”。试按以下要求完成设计：
（1）创建一个查询，查找并显示有书法或绘画爱好学生的“学号”、“姓名”、“性别”和“年龄”四个字段内容，所建查询命名为“qT1”。
（2）创建一个查询，查找成绩低于所有课程总平均分的学生信息，并显示“姓名”、“课程名”和“成绩”三个字段内容，所建查询命名为“qT2”。（3）以表对象“tScore”和“tCourse”为基础，创建一个交叉表查询。要求：选择学生的“学号”为行标题、“课程号”为列标题来统计输出学分小于3分的学生平均成绩，所建查询命名为“qT3”。注意：交叉表查询不做各行小计。
（4）创建追加查询，将表对象“tStud”中“学号”、“姓名”、“性别”和“年龄”四个字段内容追加到目标表“tTemp”的对应字段内，所建查询命名为“qT4”。（规定：“姓名”字段的第一个字符为姓，剩余字符为名。将姓名分解为姓和名两部分，分别追加到目标表的“姓”、“名”两个字段中。）
第2题分析
本题主要考的是数据库的查询。
本题解题思路：
（1）点击“查询”，选择“新建(N)”，在弹出的“新建查询”窗体上选择“设计视图”，点击“确定”按钮，然后在弹出的“显示表”窗体上选择“tStud”表，点击“添加”按钮，关闭“显示表”窗体。然后从“tStud”表中选择“学号”、“姓名”、“性别”和“年龄”字段，并选择“简历”字段，把该字段的显示中的钩去掉，然后在“简历”字段的“条件”中输入：Like “*书法*” Or Like “*绘画*”，以“qT1”保存查询。
（2）选择“新建(N)”，在弹出的“新建查询”窗体上选择“设计视图”，点击“确定”按钮，然后在弹出的“显示表”窗体上分别选择“tStud”、“tCourse”和“tScore”表，点击“添加”按钮，关闭“显示表”窗体。选择题目中所说的三个字段，在“成绩”字段的“条件”中输入：<(select avg(成绩)from tScore)，最后以“qT2”保存查询。
（3）选择“新建(N)”，在弹出的“新建查询”窗体上选择“设计视图”，点击“确定”按钮，然后在弹出的“显示表”窗体上分别选择“tScore”和“tCourse”表，点击“添加”按钮，关闭“显示表”窗体。然后点击“查询”菜单中的“交叉表查询”菜单（或点击右键，选择查询类型中的“交叉表查询”）。在字段中选择“学号”，“交叉表”中选择“行标题”；选择“课程号”字段，在“交叉表”中选择“列标题”；选择“成绩”字段，“交叉表”中选择“值”，并在“总计”中选择“平均值”；再选择“学分”字段，并在条件中输入：<3，“总计”中选择“条件”；最后以“qT3”保存查询。
（4）选择“新建(N)”，在弹出的“新建查询”窗体上选择“设计视图”，点击“确定”按钮，然后在弹出的“显示表”窗体上选择“tStud”表，点击“添加”按钮，关闭“显示表”窗体。选择“查询”菜单中的“追加查询”菜单（或者右击鼠标，在弹出的菜单中选择“追加查询”），追加到当前数据库中的“tTemp”表中，点击“确定”。然后从“tStud”选择“学号”字段，再在“字段”行的第二个空格处输入“Left(([姓名]),1)”，第三个空格处输入“Right([姓名],Len([姓名])-1)”，再从“tStud”选择“性别”和“年龄”字段，追加到“tTemp”表对应的字段中，最后以“qT4”保存查询。
三、综合操作
考生文件夹下存在一个数据库文件“samp3.mdb”，里面已经设计了表对象“tEmp”、窗体对象“fEmp”、宏对象“mEmp”和报表对象“rEmp”。同时，给出窗体对象“fEmp”的“加载”事件和“预览”及“打印”两个命令按钮的单击事件代码，试按以下功能要求补充设计：（1）将窗体“fEmp”上标签“bTitle”以特殊效果：阴影显示。
（2）已知窗体“fEmp”的三个命令按钮中，按钮“bt1” 和“bt3”的大小一致、且左对齐。现要求在不更改“bt1” 和“bt3”大小位置的基础上，调整按钮“bt2”的大小和位置，使其大小与“bt1”和“bt3”相同，水平方向左对齐“bt1” 和“bt3”，竖直方向在“bt1” 和“bt3”之间的位置。
（3）在窗体“fEmp”的“加载”事件中设置标签“bTitle”以红色文本显示；单击“预览”按钮（名为“bt1”）或“打印”按钮（名为“bt2”），事件过程传递参数调用同一个用户自定义代码（mdPnt）过程，实现报表预览或打印输出；单击“退出”按钮（名为“bt3”），调用设计好的宏“mEmp”来关闭窗体。
（4）将报表对象“rEmp”的记录源属性设置为表对象“tEmp”。
注意：不允许修改数据库中的表对象“tEmp”和宏对象“mEmp”；不允许修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性。程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。
第3题分析
本题主要考的是窗体的设计。
本题解题思路如下：
（1）打开窗体对象“fEmp”的设计视图，选择“bTitle”标签控件，并点击工具栏上的“属性”按钮，特殊效果属性设置为“阴影”。
（2）打开窗体“fEmp”的设计视图，选中“bt2”按钮，并点击工具栏上的“属性”按钮，将命令按钮bt2的“左边距”设置为3厘米，“上边距”设置为2.5厘米，“宽度”设置为3厘米，“高度”设置为1厘米。
（3）打开窗体“fEmp”的设计视图，并点击工具栏上的“属性”按钮，点击“加载”属性右边的“…”打开代码生成器，在“*****Add1*****”与“*****Add1*****”之间输入“bTitle.ForeColor = 255”，保存窗体。
（4）打开窗体“fEmp”的设计视图，选中“bt1”按钮，并点击工具栏上的“属性”按钮，点击“单击”属性右边的“…”打开代码生成器，在“*****Add2*****”与“*****Add2*****”之间输入“mdPnt acViewPreview”，保存窗体。
（5）打开窗体“fEmp”的设计视图，选中“bt3”按钮，并点击工具栏上的“属性”按钮，点击“单击”属性并选择宏“mEmp”，保存窗体。
（6）打开报表对象“rEmp”的设计视图，将“记录源”属性设置为表“tEmp”。
第二篇：2012年计算机二级Access上机试题及答案(29)
祝您考试顺利通过，更多考试资料可以访问计算机考试网http://www.xiexiebang.com/ncre/ 1.基本操作题
在考生文件夹下，存在一个数据库文件“samp1.mdb”和一个图像文件“photo.bmp”。在数据库文件中已经建立一个表对象“tStud”。试按以下操作要求，完成各种操作：
(1)设置“ID”字段为主键；并设置“ID”字段的相应属性，使该字段在数据表视图中的显示名称为“学号”；(2)删除“备注”字段；
(3)设置“入校时间”字段的有效性规则和有效性文本。具体规则是：输入日期必须在2008年1月1日之后（不包括2008年1月1日）；有效性文本内容为：输入的日期有误，请重新输入；
(4)将学号为“20011004”学生的“照片”字段值设置为考生文件夹下的“photo.bmp”图像文件（要求使用“由文件创建”方式）；
(5)将冻结的“姓名”字段解冻，并确保“姓名”字段列显示在“学号”字段列的后面。1.基本操作题 【考点分析】
本题考点：设置主键；字段标题、有效性规则等字段属性的设置；取消冻结字段；删除字段；导出表。(1)【解题步骤】
步骤1：打开“samp1.mdb”数据库窗口,选中“表”对象，右键单击“tStud”选择【设计视图】。步骤2：右键单击“ID”字段选择【主键】。在“标题”行输入“学号”。(2)【解题步骤】
步骤1：右键单击“备注”行选择【删除行】，在弹出的对话框中单击“是”按钮。(3)【解题步骤】
步骤1：单击“入校时间”字段行任一位置，在“有效性规则”行输入“>#2008－1－1#”。步骤2：在“有效性文本”行输入“输入的日期有误，请重新输入”。步骤3：单击工具栏中“保存”按钮。(4)【解题步骤】
步骤1：单击菜单栏【视图】|【数据表视图】。
步骤2：右键单击学号为“20011004”的学生的“照片”列选择【插入对象】，选中“由文件创建”选项，单击“浏览”按钮，在“考生文件夹”内选中要插入的图像“photo.bmp”，连续两次单击“确定”按钮。(5)【解题步骤】
步骤1：单击菜单栏【格式】|【取消对所有列的冻结】。
步骤2：选中“姓名”字段列，拖动鼠标到“学号”字段后，松开鼠标。步骤3：单击工具栏中“保存”按钮。关闭数据表视图。[page]
2.简单应用题
考生文件夹下存在一个数据库文件“samp2.mdb”，里面已经设计好一个表对象“tTeacher”。试按以下要求完成设计：
(1)创建一个查询，计算并输出教师最大年龄与最小年龄的差值，显示标题为“m_age”，所建查询命名为“qT1”；
(2)创建一个查询，查找并显示具有研究生学历的教师的“编号”、“姓名”、“性别”和“系别”四个字段内容，所建查询命名为“qT2”；
(3)创建一个查询，查找并显示年龄小于等于
38、职称为副教授或教授的教师的“编号”、“姓名”、“年龄”、“学历”和“职称”五个字段内容，所建查询命名为“qT3”;(4)创建一个查询，查找并统计在职教师按照职称进行分类的平均年龄，然后显示出标题为“职称”和“平均年龄”的两个字段内容，所建查询命名为“qT4”。2.简单应用题
【考点分析】本题考点：创建选择查询；在查询中进行计算。
考试吧：www.xiexiebang.com一个神奇的考试网站。祝您考试顺利通过，更多考试资料可以访问计算机考试网http://www.xiexiebang.com/ncre/(1)【解题步骤】
步骤1：打开“samp2.mdb”数据库窗口,选中“查询”对象，单击“新建”按钮，选中“设计视图”，单击“确定”按钮。在“显示表”对话框中双击表“tTeacher”，关闭“显示表”对话框。
步骤2：在字段行输入：m_age：Max(［年龄］）－Min(［年龄］)，单击“显示”行的复选框使该字段显示。步骤3：单击工具栏中“保存”按钮，另存为“qT1”，关闭设计视图。(2)【解题步骤】
步骤1：选中“查询”对象，单击“新建”按钮，选中“设计视图”，单击“确定”按钮。在“显示表”对话框中双击表“tTeacher”，关闭“显示表”对话框。
步骤2：分别双击“编号”、“姓名”、“性别”、“系别”和“学历”字段，在“学历”字段的“条件”行输入“研究生”，单击“显示”行取消“学历”字段的显示。
步骤3：单击工具栏中“保存”按钮，另存为“qT2”，关闭设计视图。(3)【解题步骤】
步骤1：选中“查询”对象，单击“新建”按钮，选中“设计视图”，单击“确定”按钮。在“显示表”对话框中双击表“tTeacher”，关闭“显示表”对话框。
步骤2：分别双击“编号”、“姓名”、“年龄”、“学历”和“职称”字段。
步骤3：在“年龄”字段的“条件”行输入“<=38”，在“职称”字段的“条件”行输入“教授 or 副教授”。步骤4：单击工具栏中“保存”按钮，另存为“qT3”，关闭设计视图。(4)【解题步骤】
步骤1：选中“查询”对象，单击“新建”按钮，选中“设计视图”，单击“确定”按钮。在“显示表”对话框中双击表“tTeacher”，关闭“显示表”对话框。
步骤2：双击“职称”、“年龄”和“在职否”字段，单击菜单栏【视图】|【总计】，在“职称”、“年龄”和“在职否”字段的“总计”行分别选择“分组”、“平均值”和“条件”，在“年龄”字段的“字段”行前面添加“平均年龄：”字样，在“在职否”字段的“条件”行输入“Yes”。
步骤3：单击工具栏中“保存”按钮，另存为“qT4”，关闭设计视图。[page] 3.综合应用题
考生文件夹下存在一个数据库文件“samp3.mdb”，里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。请在此基础上按照以下要求补充设计：
(1)将表对象“tEmp”中“聘用时间”字段的格式调整为“长日期”显示、“性别”字段的有效性文本设置为“只能输入男和女”；
(2)设置报表“rEmp”按照“聘用时间”字段升序排列输出；将报表页面页脚区域内名为“tPage”的文本框控件设置为显示系统日期；
(3)将“fEmp”窗体上名为“bTitle”的标签上移到距“btnP”命令按钮1厘米的位置（即标签的下边界距命令按钮的上边界1厘米）。同时，将窗体按钮“btnP”的单击事件属性设置为宏“mEmp”，以完成按钮单击打开报表的操作。
注意：不允许修改数据库中的宏对象“mEmp”；不允许修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性；不允许修改表对象“tEmp”中未涉及的字段和属性。3.综合应用题 【考点分析】
本题考点：字段有效性规则、有效性文本字段属性的设置；报表中文本框和窗体中标签、命令按钮控件属性的设置。(1)【解题步骤】
步骤1：打开“samp3.mdb”数据库窗口,选中“表”对象，右键单击“tEmp”选择【设计视图】。步骤2：单击“聘用时间”字段行任一点，在“格式”行下拉列表中选中“长日期”。步骤3：单击“性别”字段行任一点，在“有效性文本”行输入“只能输入男和女”。
考试吧：www.xiexiebang.com一个神奇的考试网站。祝您考试顺利通过，更多考试资料可以访问计算机考试网http://www.xiexiebang.com/ncre/ 步骤4：单击工具栏中“保存”按钮，关闭设计视图。(2)【解题步骤】
步骤1：选中“报表”对象，右键单击“rEmp”选择【设计视图】。
步骤2：单击菜单栏【视图】|【排序与分组】，在“字段/表达式”下拉列表中选中“聘用时间”，在“排序次序”下拉列表中选择“升序”，关闭界面。
步骤3：右键单击“tPage”选择【属性】，在“控件来源”行输入“=Date()”。步骤4：单击工具栏中“保存”按钮，关闭设计视图。(3)【解题步骤】
步骤1：选中“窗体”对象，右键单击“fEmp”选择【设计视图】。
步骤2：右键单击“btnP”选择【属性】，查看“上边距”记录值，并记录下来。单击“事件”选项卡，在“单击”行右侧下拉列表中选中“mEmp”，关闭属性界面。
步骤3：右键单击标签控件“bTitle”选择【属性】，在“上边距”行输入“1cm”，关闭属性界面。步骤4：单击工具栏中“保存”按钮，关闭设计视图。
考试吧：www.xiexiebang.com一个神奇的考试网站。
第三篇：2012年计算机二级Access上机试题及答案(7)
祝您考试顺利通过，更多考试资料可以访问计算机考试网http://www.xiexiebang.com/ncre/
1.基本操作题
在考生文件夹下，“samp1.mdb”数据库文件中已建立表对象“tStud”。试按以下操作要求，完成表的编辑修改：
(1)将“编号”字段改名为“学号”，并设置为主键；
(2)设置“入校时间”字段的有效性规则为2005年之前的时间（不含2005年）；
(3)删除表结构中的“照片”字段；
(4)删除表中学号为“000003”和“000011”的两条记录；
(5)设置“年龄”字段的默认值为23；
(6)完成上述操作后，将考生文件夹下文本文件“tStud.txt”中的数据导入并追加保存在表“tStud”中。参考答案：
1.基本操作题
【考点分析】本题考点：设置主键;字段的有效性规则、默认值等字段属性的设置；删除字段；删除记录；导入表。
(1)【解题步骤】
步骤1：打开“samp1.mdb”数据库窗口，选中“表”对象，右键单击“tStud”选择【设计视图】。
步骤2：将“字段名称”列的“编号”改为“学号”。
步骤3：右键单击“学号”行选择【主键】。
(2)【解题步骤】
步骤1：单击“入校时间”字段行任一点。
步骤2：在“有效性规则”行输入“<#2005－1－1#”。
(3)【解题步骤】
步骤1：右键单击“照片”字段选择【删除行】，在弹出的对话框中单击“是”按钮。
步骤2：单击工具栏中“保存”按钮。
(4)【解题步骤】
步骤1：单击菜单栏【视图】|【数据表视图】。
步骤2：选中学号为“000003”的数据行，右键单击该行选择【删除记录】，在弹出对话框中单击“是”按钮。步骤3：选中学号为“000011”的数据行，右键单击该行选择【删除记录】，在弹出对话框中单击“是”按钮。步骤4：单击工具栏中“保存”按钮。
(5)【解题步骤】
步骤1：单击菜单栏【视图】|【设计视图】。
步骤2：单击“年龄”字段行任一点，在“默认值”行输入“23”。
步骤3：单击工具栏中“保存”按钮，关闭设计视图。
(6)【解题步骤】
步骤1：单击菜单栏【文件】|【获取外部数据】|【导入】，找到并打开“考生文件夹”，在“文件类型”下拉列表中选中“文本文件”，选中“tStud.txt”文件，单击“导入”按钮。
步骤2：单击“下一步”按钮，选中“第一行包含字段名称”复选框，单击“下一步”，选中“现有的表中”单选按钮，在右侧下拉列表中选中“tStud”，单击“下一步”按钮，单击“完成”按钮。[page]
2.简单应用题
考生文件夹下存在一个数据库文件“samp2.mdb”，里面已经设计好三个关联表对象“tStud”、“tCourse”和“tScore”。此外，还提供了窗体“fTest”和宏“mTest”，试按以下要求完成设计：
(1)在创建一个选择查询，查找年龄大于25的学生的“姓名”、“课程名”和“成绩”三个字段内容，所建查询命名为“qT1”；
(2)创建生成表查询，组成字段是没有书法爱好学生的“学号”、“姓名”和“入校年”三列内容（其中“入校年”考试吧：www.xiexiebang.com一个神奇的考试网站。
数据由“入校时间”字段计算得到，显示为四位数字年的形式），生成的数据表命名为“tTemp”，所建查询命名为“qT2”；
(3)补充窗体“fTest”上“test1”按钮（名为“bt1”）的单击事件代码，实现以下功能：
打开窗体，在文本框“tText”中输入一段文字，然后单击窗体“fTest”上“test1”按钮（名为“bt1”），补充代码设置窗体上标签“bTitle”的标题为文本框“tText”输入内容与文本串“等级考试测试”的连接并消除连接串的前导和尾随空白字符。
注意：不允许修改窗体对象“fTest”中未涉及的控件和属性；只允许在“*****Add1*****”与“*****Add1*****”之间的空行内补充语句、完成设计。
(4)设置窗体“fTest”上“test2”按钮（名为“bt2”）的单击事件为宏对象“mTest”。
参考答案：
2.简单应用题
【考点分析】
本题考点：创建选择查询、生成表查询；窗体中命令按钮控件属性的设置。
(1)【解题步骤】
步骤1：打开“samp2.mdb”数据库窗口，选中“查询”对象，单击“新建”按钮，选中“设计视图”，单击“确定”按钮。在“显示表”对话框中双击表“tStud”、“tCourse”、“tScore”，关闭“显示表”对话框。
步骤2：分别双击“姓名”、“课程名”、“成绩”、“年龄”字段。
步骤3：在“年龄”字段的“条件”行输入“>25”，单击“显示”行取消该字段的显示。
步骤4：单击工具栏中“保存”按钮，另存为“qT1”。关闭设计视图。
(2)【解题步骤】
步骤1：选中“查询”对象，单击“新建”按钮，选中“设计视图”，单击“确定”按钮。在“显示表”对话框双击表“tStud”，关闭“显示表”对话框。
步骤2：单击菜单栏【查询】|【生成表查询】，在弹出的对话框中输入“tTemp”，单击“确定”按钮。步骤3：分别双击“学号”、“姓名”字段将其添加到“字段”行。
步骤4：在“字段”行的下一列输入“入校年：Year(［入校时间］)”。
步骤5：双击“简历”字段将其添加到“字段”行，在“简历”字段的“条件”行输入“not like “*书法*””，单击“显示”行取消“简历”字段的显示。
步骤6：单击工具栏中“保存”按钮，另存为“qT2”，如图8所示。关闭设计视图。
图8
(3)【解题步骤】
步骤1：选中“窗体”对象，右键单击“fTest”选择【设计视图】。
步骤2：右键单击“test1”选择【事件生成器】，空行内输入代码：
*****Add1*****
bTitle.Caption=Trim(me!tText+“等级考试测试”)
*****Add1*****
(4)【解题步骤】
步骤1：右键单击“test2”选择【属性】。
步骤2：单击“事件”选项卡，在“单击”行右侧下拉列表中选中“mTest”，关闭属性界面。
步骤3：单击工具栏中“保存”按钮，关闭设计视图。[page]
3.综合应用题
考生文件夹下存在一个数据库文件“samp3.mdb”，里面已经设计好表对象“tEmployee”和查询对象“qEmployee”，同时还设计出以“qEmployee”为数据源的报表对象“rEmployee”。试在此基础上按照以下要求补充报表设计：
(1)在报表的报表页眉节区位置添加一个标签控件，其标题显示为“职员基本信息表”，并命名为“bTitle”；
(2)将报表主体节区中名为“tDate”的文本框显示内容设置为“聘用时间”字段值；
(3)在报表的页面页脚区添加一个计算控件，以输出页码。计算控件放置在距上边0.25厘米、距左侧14厘米位置，并命名为“tPage”。规定页码显示格式为“当前页/总页数”，如1/20、2/20、…、20/20等。
注意：不允许修改数据库中的表对象“tEmployee”和查询对象“qEmployee”；不允许修改报表对象“rEmployee”中未涉及的控件和属性。
参考答案：
3.综合应用题
【考点分析】
本题考点：在报表中添加标签、文本框控件及其控件属性的设置。
(1)【解题步骤】
步骤1：打开“samp3.mdb”数据库窗口，选中“报表”对象，右键单击“rEmployee”选择【设计视图】。步骤2：选中工具箱中“标签”控件按钮，单击报表页眉节区适当位置，然后输入“职工基本信息表”，单击报表任一点。
步骤3：右键单击“职工基本信息表”标签选择【属性】，在“名称”行输入“bTitle”，关闭属性界面。
(2)【解题步骤】
步骤1：右键单击“tDate”文本框选择【属性】。
步骤2：在“控件来源”行右侧下拉列表中选中“聘用时间”字段，关闭属性界面。
(3)【解题步骤】
步骤1：选中工具箱中“文本框”控件，单击报表页面页脚节区任一点，弹出“Text”标签和“未绑定”文本框，选中“Text”标签，然后按下“Del”键将“Text”标签删除。
步骤2：右键单击“未绑定”文本框选择【属性】，弹出属性对话框。选中“全部”选项卡，在“名称”行输入“tPage”，分别在“上边距”和“左边距”输入“0.25cm”和“14cm”。单击“控件来源”行输入“＝［Page］&“/”&［Pages］”，关闭属性界面。
步骤3：单击工具栏中“保存”按钮。关闭设计视图。
第四篇：access上机练习题
1.1
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
在考生文件夹下，“samp1.accdb”数据库文件中已建立表对象“tEmployee ”。试按以下操作要求，完成表的编辑：
(1)分析“tEmployee”表的结构，判断并设置主键。
(2)删除表中的“所属部门”字段；设置“年龄”字段的有效性规则为只能
输入大于16的数据。
(3)在表结构中的“年龄”与“职务”两个字段之间增添一个新的字段：字
段名称为“党员否”，字段类型为“是/否”型；删除表中1999年5月聘
用、并具有“相声”爱好的女职工记录。
(4)设置“职务”字段值的输入方式为从下拉列表中选择“职员”、“主管
”或“经理”选项值。
(5)设置“聘用时间”字段的相关属性，使该字段按照“XXXX/XX/XX”格式
输入。例如，2013/06/08。
(6)将表中聘用时间超过30年（不含30年）的职工“职务”字段值更改为“
退休”。
1.2
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好表对 象“tStud”和“tTemp”。tStud表是学校历年来招收的学生名单，每名学生均 有身份证号。对于现在正在读书的“在校学生”，均有家长身份证号，对于已 经毕业的学生，家长身份证号为空。
例如，表中学生“张春节”没有家长身份证号，表示张春节已经从本校毕 业，是“校友”。
表中学生“李强”的家长身份证号为“***370”，表示李强 为在校学生。由于在tStud表中身份证号“***370”对应的学生姓 名是“李永飞”，表示李强的家长李永飞是本校校友。
“张天”的家长身份证号为“***760”，表示张天是在校学 生；由于在tStud表中身份证号“***760”没有对应的记录，表示 张天的家长不是本校的校友。
请按下列要求完成设计：
(1)创建一个查询，要求显示在校学生的“身份证号”和“姓名”两列内容，所建查询命名为“qT1”。
(2)创建一个查询，要求按照身份证号码找出所有学生家长是本校校友的学生
记录。输出学生身份证号、姓名及家长姓名三列内容，标题显示为“身份
证号”、“姓名”和“家长姓名”，所建查询命名为“qT2”。
(3)创建一个查询，统计数学成绩为100分的学生人数，标题显示为“num”，所建查询命名为“qT3”。
要求：使用“身份证号”字段进行计数统计。
(4)创建一个查询，将“tStud”表中总分成绩超过270分（含270）的学生信
息追加到空表“tTemp”中。其中，“tTemp”表的入学成绩为学生总分，所建查询命名为“qT4”。1.3
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对 象“tTeacher”、窗体对象“fTest”，报表对象“rTeacher”和宏对象“m1”。试在此基础上按照以下要求补充窗体设计和报表设计：
（1）将报表对象rTeacher的报表主体节区中名为“性别”的文本框显示内容
设置为“性别”字段值，并将文本框名称更名为“tSex”。
（2）在报表对象rTeacher的报表页脚节区位置添加一个计算控件，计算并显
示教师的平均工龄。计算控件放置在距上边0.3厘米、距左侧3.6厘米，命名为“tAvg”。
（3）设置窗体对象fTest上名为“btest”的命令按钮的单击事件属性为给定的宏对象m1。
注意：不允许修改数据库中的表对象“tTeacher”和宏对象“m1”；不允许
修改窗体对象“fTest” 和报表对象“rTeacher”中未涉及的控件和
属性。
2.1
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
在考生文件夹下，“samp1.accdb”数据库文件中已建立两个表对象“员工 表”和“部门表”。试按以下要求，完成表的各种操作：
（1）分析两个表对象“员工表”和“部门表”的构成，判断其中的外键属性，将其字段名称作为“员工表”表属性中说明的内容进行设置。
（2）将“员工表”中有摄影爱好的员工其“备注”字段的值设为True（即复
选框里打上钩）。
（3）删除聘用时间超过30年（含30年）、“职务”为“经理”的职工。（4）将考生文件夹下文本文件Test.txt中的数据导入追加到当前数据库的“
员工表”相应字段中。
（5）设置相关属性，使“员工表”中“密码”字段以密码方式输入并显示。（6）建立“员工表”和“部门表”的表间关系，并实施参照完整性。
2.2
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好三个 关联表对象“tStud”、“tCourse”和“tScore”及表对象“tTemp”。试按以 下要求完成设计：
（1）创建一个查询，查找选课学分超过3分或没有先修课的学生记录，并显示
学生的“姓名”、“课程名”和“成绩”三个字段内容，所建查询命名
为“qT1”。
（2）创建一个查询，查找5号入校的学生，显示其“学号”、“姓名”、“性
别”和“年龄”四个字段内容，所建查询命名为“qT2”。
（3）创建一个查询，查找选课成绩均在80分（含80分）以上的学生记录，并
显示“学号”和“平均成绩”两列内容。其中“平均成绩”一列数据由
统计计算得到，所建查询命名为“qT3”。
（4）创建一个查询，将“tStud”表中女学生的信息追加到“tTemp”表对应的字段中，所建查询命名为“qT4”。
2.3
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对 象“tEmployee”和宏对象“m1”，同时还设计出以“tEmployee”为数据源的 窗体对象“fEmployee”。试在此基础上按照以下要求补充窗体设计：
（1）在窗体的窗体页眉节区位置添加一个标签控件，其名称为“bTitle”，初始化标题显示为“雇员基本信息”，字体名称为“黑体”，字号为
18。
（2）将命令按钮bList的标题设置为“显示雇员情况”。
（3）单击命令按钮bList，要求运行宏对象m1；单击事件代码已提供，请补
充完整。
（4）取消窗体的水平滚动条和垂直滚动条；取消窗体的最大化和最小化按
钮。
（5）窗体加载时，将“Tda”标签标题设置为“YYYY年雇员信息”，其中
“YYYY”为系统当前年份（要求使用相关函数获取），例如，2013年
雇员信息。窗体“加载”事件代码已提供，请补充完整。
注意：不允许修改窗体对象“fEmployee”中未涉及的控件和属性；不允许
修改表对象“tEmployee”和宏对象“m1”。
程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存
在的语句。
3.1
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
考生文件夹下，“samp1.accdb”数据库文件中已建立表对象“tEmp”。试 按以下操作要求，完成对表“tEmp”的编辑修改和操作：（1）将“编号”字段改名为“工号”，并设置为主键；按所属部分修改工号，修改规则为：部门“01”的“工号”首字符为“1”，部门“02”首字符
为“2”，依次类推。
（2）设置“年龄”字段的有效性规则为不能是空值。
（3）设置“聘用时间”字段的默认值为系统当前年的一月一号。
（4）删除表结构中的“简历”字段；设置“聘用时间”字段的相关属性，使
该字段按照“XXXX/XX/XX”格式输入，例如，2013/07/08。
（5）将考生文件夹下“samp0.accdb”数据库文件中的表对象“tTemp”导入到
“samp1.accdb”数据库文件中。
（6）完成上述操作后，在“samp1.accdb”数据库文件中做一个表对象“tEmp
”的备份，命名为“tEL”。
3.2
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好二个表 对象“tTeacher1”和“tTeacher2”。试按以下要求完成设计：（1）创建一个查询，查找并显示在职教师的“编号”、“姓名、“年龄”和“性
别”四个字段内容，所建查询命名为“qT1”。
（2）创建一个查询，查找年龄低于所有职工平均年龄的职工记录，并显示“编
号姓名”和“联系电话”两列信息，其中“编号姓名”由“编号”与“姓
名”两个字段合二为一构成，所建查询命名为“qT2”。
（3）创建一个查询，按输入的参加工作时间的月份查找，并显示教师的“编号”、“姓名”、“年龄”和“性别”四个字段内容，当运行该查询时，应显
示提示信息：“请输入月份”，所建查询命名为“qT3”。
（4）创建一个查询，将“tTeacher1”表中的党员教授的记录追加到
“tTeacher2”表相应的字段中，所建查询命名为“qT4”。
3.3
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对 象“tStud”、查询对象“qStud”、窗体对象“fStud”和子窗体对象“fDetail ”，同时还设计出以“qStud”为数据源的报表对象“rStud”。请在此基础上按 照以下要求补充“fStud”窗体和“rStud”报表的设计：
（1）在报表的报表页眉节区位置添加一个标签控件，其名称为“bTitle”，标题显示为“团员基本信息表”；将名称为“tSex”的文本框控件的输出内容设 置为 “性别”字段值。在报表页脚节区添加一个计算控件，其名称为“tAvg”, 设置相关属性，输出学生的平均年龄。
（2）将“fStud”窗体对象主体节中控件的Tab键焦点移动顺序设置为：
“CItem”→“TxtDetail” →“CmdRefer” →“CmdList” →
“CmdClear” →“fDetail” →“简单查询”。
（3）在窗体加载事件中，实现重置窗体标题为标签“tTitle”的标题内容。
（4）试根据以下窗体功能要求，对已给的事件过程进行代码补充，并运行 调试。
在窗体中有一个组合框控件和一个文本框控件，名称分别为“CItem”和 “TxtDetail”；有两个标签控件，名称分别为“Label3”和“Ldetail”；还 有三个命令按钮，名称分别为“CmdList”、“CmdRefer”和“CmdClear”。在“CItem”组合框中选择某一项目后，“Ldetail”标签控件将显示出所选 项目名加上“内容：”。在“TxtDetail”文本框中输入具体项目值后，单击 “CmdRefer”命令按钮，如果“CItem”和“TxtDetail”两个控件中均有值，则在子窗体中显示找出的相应记录，如果两个控件中没有值，显示提示框，提示框标题为“注意”，提示文字为“查询项目或查询内容不能为空！！”，提示框中只有一个“确定”按钮；单击“CmdList”命令按钮，在子窗体中显 示“tStud”表中的全部记录；单击“CmdClear”命令按钮，将清空控件 “cItem”和“TxtDetail”中的值。
注意：不允许修改窗体对象“fStud” 和子窗体对象“fDetail”中未涉 及的控件、属性和任何VBA代码；不允许修改报表对象“rStud”中已有的控 件和属性；不允许修改表对象“tStud”和查询对象“qStud”。只允许在
“*****Add*****”与“*****Add*****”之间的空行内补充一条代码语句、完成设计，不允许增删和修改其它位置已存在的语句。
4.1
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
在考生文件夹下，“samp1.accdb”数据库文件中已建立表对象“tEmployee ”。试按以下操作要求，完成表的编辑：
(1)分析表的结构，判断并设置主键。
(2)设置“年龄”字段的“有效性规则”属性为：非空且非负。
(3)设置“聘用时间”字段的默认值为：系统当前月的最后一天。
(4)交换表结构中的“职务”与“聘用时间”两个字段的位置。
(5)删除1995年聘用的“职员”职工信息。
(6)在编辑完的表中追加以下一条新记录：
4.2
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好两个 关联表对象“tStaff”和“tSalary”及表对象“tTemp”。试按以下要求完成设 计：
（1）创建一个查询，查找下半年聘用的经理，并显示“工号”、“姓名、“年
龄”和“性别”四个字段内容，所建查询命名为“qT1”。
（2）创建一个查询，查找各位员工在2005年的工资信息，并显示“工号”、“
工资合计”和“水电房租费合计”三列内容。其中，“工资合计”和“水
电房租费合计”两列数据均由统计计算得到，所建查询命名为“qT2”。
（3）创建一个查询，查找并显示员工的“年月”、“姓名”、“工资”、“水电
房租费”及“应发工资”五列内容。其中“应发工资”列数据由计算得到，计算公式为：应发工资=工资-水电房租费，所建查询命名为“qT3”。（4）创建一个查询，将表“tTemp”中“年龄”字段值均加1，所建查询命名
为“qT4”。
4.3
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对 象“tStud”和查询对象“qStud”，同时还设计出以“qStud”为数据源的报表 对象“rStud”。试在此基础上按照以下要求补充报表设计：
（1）在报表的报表页眉节区位置添加一个标签控件，其名称为“bTitle”，标题显示为“团员基本信息表”。
（2）在报表的主体节区添加一个文本框控件，显示“性别”字段值。该控
件放置在距上边0.1厘米、距左边5.2厘米，并命名为“tSex”。
（3）在报表页脚节区添加一个计算控件，计算并显示学生平均年龄。计算
控件放置在距上边0.2厘米、距左边4.5厘米，并命名为“tAvg”。
（4）利用表达式按“编号”字段前四位分组统计各组记录个数，并将统计
结果显示在组页脚节区。计算控件命名为“tCount”。
要求：按“编号”字段进行统计操作。
注意：不允许改动数据库中的表对象“tStud”和查询对象“qStud”，同时
也不允许修改报表对象“rStud”中已有的控件和属性。
5.1
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
在考生文件夹下，存在一个数据库文件“samp1.accdb”，里边已建立两个 表对象“tGrade”和“tStudent”；同时还存在一个Excel文件“tCourse.xls”。试按以下操作要求，完成表的编辑：
（1）将Excel文件“tCourse.xls”链接到“samp1.mdb”数据库文件中，链接表
名称不变，要求：数据中的第一行作为字段名。（2）将“tGrade”表中隐藏的列显示出来。
（3）将“tStudent”表中“政治面貌”字段的默认值属性设置为“团员”，并
使该字段在数据表视图中的显示标题改为“政治面目”。
（4）设置“tStudent”表的显示格式，使表背景颜色为主题颜色的“橄榄色，强
调文字颜色3，深色50%”，文字颜色为标准色中的“黄色”、字号为10号。（5）将北京五中毕业学生的学号第3、4位改为“09”。（6）建立“tGrade” 和“tStudent”两表之间的关系。
5.2
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好三个 关联表对象“tStud”、“tCourse” 和“tScore”。试按以下要求完成设计：
（1）创建一个查询，查找并显示有摄影爱好的男女学生各自人数，字段显示标
题为“性别”和“NUM”，所建查询命名为“qT1”。
注意，要求用学号字段来统计人数。
（2）创建一个查询，查找上半年入校的学生选课记录，并显示“姓名”和
“课程名”两个字段内容，所建查询命名为“qT2”。
（3）创建一个查询，查找没有先修课程的课程相关信息，输出其“课程号”、“课程名”和“学分”三个字段内容，所建查询命名为“qT3”。（4）创建更新查询，将表对象“tStud”中低于平均年龄（不含平均年龄）学
生的“备注”字段值设置为True，所建查询命名为“qT4”。
5.3
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对象 “tStud“，同时还设计出窗体对象“fStud”和子窗体对象“fDetail”。请在此基 础上按照以下要求补充“fStud”窗体的设计：（1）将窗体标题改为“学生查询”。（2）将窗体的边框样式改为“细边框”，取消窗体中的水平和垂直滚动条、记录
选择器、导航按钮和分隔线；将子窗体边框样式改为“细边框”，取消子窗
体中的记录选择器、导航按钮和分隔线。（3）在窗体中有两个标签控件,名称分别为“Label1”和“Label2”,将这两个标
签上的文字颜色改为“#FFFFFF”,背景颜色设置为“#2F3699”。（4）将窗体主体节中控件的Tab键次序改为：
“CItem”→“TxtDetail” →“CmdRefer” →“CmdList” →“CmdClear
” →“fDetail” →“简单查询” →“Frame18“。（5）按照以下窗体功能，补充事件代码设计。
在窗体中有一个组合框控件和一个文本框控件，名称分别为“CItem”和“
TxtDetail”；有两个标签控件，名称分别为“Label3”和“Ldetail”；还
有三个命令按钮，名称分别为“CmdList”、“CmdRefer”和“CmdClear”
。在“CItem”组合框中选择某一项目后，“Ldetail”标签控件将显示出
所选项目名加上“内容：”。在“TxtDetail“文本框中输入具体项目值后，单击“CmdRefer”命令按钮，如果“CItem”和“TxtDetail”两个控件中
均有值，则在子窗体中显示找出的相应记录，如果两个控件中不全有值，显示消息框，消息框标题为“注意”，提示文字为“查询项目和查询内容
不能为空！！”，消息框中只有一个“确定”按钮；单击“CmdList”命
令按钮，在子窗体中显示“tStud“表中的全部记录；单击“CmdClear”命
令按钮，将“cItem”和“TxtDetail”两个控件中的值清空。
注意：不允许修改窗体对象“fStud” 和子窗体对象“fDetail“中未涉及的控件、属性和任何VBA代码；不允许修改表对象“tStud”。
代码设计只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一条语句、完成设计，不允许增删和修改其它位置已存
在的语句。
6.1
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
在考生文件夹下，“samp1.accdb”数据库文件中已建立两个表对象“员工 表”和“部门表”及一个报表对象“rEmp”。试按以下要求顺序，完成表及报表 的各种操作：
（1）设置“员工表”的职务字段有效性规则为只能输入“经理”、“主管”和“
职员”三者之一；同时设置相应有效性文本为“请输入有效职务”。
（2）分析员工的聘用时间，将截止到2008年聘用期在10年（含10年）以上的员工
其“说明”字段的值设置为“老职工”。
要求：以2008年为截止期判断员工的聘用期，不考虑月日因素。比如，聘用
时间在2000年的员工，其聘用期为8年。（3）删除员工表中姓名含“钢”字的员工纪录。
（4）将“员工表”中女职工的前四列信息（编号，姓名，性别，年龄）导出到考
生文件夹下，以文本文件形式保存，命名为Test.txt。
要求各数据项间以逗号分隔，且第一行包含字段名称。
（5）建立表对象“员工表”和“部门表”的表间关系，并实施参照完整性。（6）将报表对象“rEmp”的记录源设置为表对象“员工表”。
6.2
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好四个 关联表对象“tDoctor”、“tOffice”、“tPatient”和“tSubscribe”以及表 对象“tTemp”，同时还设计出窗体对象“fQuery”。试按以下要求完成设计：
（1）创建一个查询，查找姓“王”病人的基本信息，并显示“姓名”、“年龄
”、“性别”，所建查询名为“qT1”。
（2）创建一个查询，统计年龄小于30岁的医生被病人预约的次数，输出“医生
姓名”和“预约人数”两列信息。要求预约人数用“病人ID”字段计数并
降序排序，所建查询名为“qT2”。
（3）创建一个查询，删除表对象“tTemp”内所有“预约日期”为10月份中20
日以后（含 20日）的记录，所建查询名为“qT3”。
（4）现有一个已经建好的“fQuery”窗体。运行该窗体后，在文本框（文本框名
称为tName）中输入要查询的科室名，然后按下“查询”按钮，即运行一个
名为“qT4”的查询。“qT4”查询的功能是显示所查科室的“科室ID”和
“预约日期”。请设计“qT4”查询。
6.3
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对 象“tAddr”和“tUser”，同时还设计出窗体对象“fEdit”和“fEuser”。请在 此基础上按照以下要求补充“fEdit”窗体的设计：
（1）将窗体中名称为“Lremark”的标签控件上的文字颜色设置为“#FF0000”
、字体粗细改为“加粗”。
（2）将窗体标题设为“显示/修改用户口令”。
（3）将窗体边框改为“对话框边框”样式，取消窗体中的水平和垂直滚动条、记录选择器、导航按钮、分隔线和控制框。
（4）将窗体中“退出”命令按钮（名称为“cmdquit”）上的文字字体粗细改为
“加粗”，并在文字下方加上下划线。
（5）在窗体中还有“修改”和“保存”两个命令按钮，名称分别为“CmdEdit”
和“CmdSave”，其中“保存”命令按钮在初始状态为不可用，当单击“修
改”按钮后，“保存”按钮变为可用。当单击“保存”按钮后，输入焦点
移到“修改”按钮。此时，程序可以修改已有的用户相
关信息，现已编写了部分VBA代码，请补充完整。
要求：修改后运行该窗体，并查看修改结果。
注意：不允许修改窗体对象“fEdit”和“fEuser”中未涉及的控件、属
性；不允许修改表对象“tAddr”和“tUser”。
程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存
在的语句。
7.1
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
在考生文件夹下，“samp1.accdb”数据库文件中已创建两个表对象“员工 表”和“部门表”及一个窗体对象“fEmp”。试按以下要求顺序，完成表及窗体 的各种操作：
（1）对表对象“员工表”操作，按照员工性别不同，为编号字段值增补前
置字符，男性员工编号前增补字符“8”，女性员工编号前增补字符“
6”，如男性的000001更改为8000001，女性的000002更改为6000002。
（2）查出员工张汉望的对应密码内容，将密码实际值追加到其简历内容末
尾。
（3）设置表对象“员工表”的部门号字段值为列表框下拉选择，其值引用
“部门表”的对应字段。
（4）将“员工表”姓名中的所有“小”字替换为“晓”。
（5）依据“员工表”中的职务信息，在经理和主管员工对应的“说明”字
段内输入“干部”信息。
（6）设置窗体对象“fEmp”的“记录源”属性和“筛选”属性，使其打开
后输出“员工表”的女员工信息。
7.2
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好两个 表对象住宿登记表“tA”和住房信息表“tB”，其中“tA”和“tB”表中“房 间号”的前两位为楼号。试按以下要求完成设计：
（1）创建一个查询，查找楼号为“01”的客人记录，并显示“姓名”、“入住
日期”和“价格”三个字段内容，所建查询命名为“qT1”。
（2）创建一个查询，按输入的房间价格区间查找，显示“房间号”字段信息。
当运行查询时，应分别显示提示信息“最低价”和“最高价”，所建查询
命名为“qT2”。
（3）以表对象“tB”为基础，创建一个交叉表查询。要求：选择楼号为行标题、列名称显示为“楼号”，“房屋类别”为列标题来统计输出每座楼房的各
类房间的平均房价信息。所建查询命名为“qT3”。
注：房间号的前两位为楼号。
交叉表查询不做各行小计。
（4）创建一个查询，统计出各种类别房屋的数量。输出两列信息，字段标题分
别为“type”和“num”，所建查询命名为“qT4”。
7.3
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对 象“tNorm”和“tStock”，查询对象“qStock”和宏对象“m1”，同时还设计 出以“tNorm”和“tStock”为数据源的窗体对象“fStock”和“fNorm”。试 在此基础上按照以下要求补充窗体设计：
（1）将“fStock”窗体的标题设置为“库存浏览”；在“fStock”窗体对
象的窗体页眉节区位置添加一个标签控件，其名称为“bTitle”，初
始化标题显示为“库存浏览”，字体名称为“黑体”，字号为18，字
体粗细为“加粗”。
（2）在“fStock”窗体对象的窗体页脚节区位置添加一个命令按钮，命名
为“bList”，按钮标题为“显示信息”。
（3）设置所建命令按钮bList的单击事件属性为运行宏对象m1。
（4）设置相关属性，取消在子窗体中添加新记录的功能。
（5）将“fStock”窗体对象中的“fNorm”子窗体的导航按钮去掉。
（6）为当前数据库设置“启用布局视图”。
注意：不允许修改窗体对象中未涉及的控件和属性；不允许修改表对象“
tNorm”、“tStock”和宏对象“m1”。
8.1
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
在考生文件夹下，“samp1.accdb”数据库文件中已建立两个表对象“员工 表”和“部门表”。试按以下要求，完成表的各种操作：
（1）设置表对象“员工表”的聘用时间字段有效性规则为：1950年（含）以后的日期；同时设置相应有效性文本为“请输入有效日期”。
（2）将表对象“员工表”中编号为“000008”的员工的照片字段值替换为考生文
件夹下的图像文件“000008.bmp”数据。
（3）删除员工表中姓名字段含有“红”字的员工纪录；隐藏表对象“员工表”的“所属部门”字段。
（4）查找部门“04”的女主管，将其“编号”字段首字符更改为“4”。
（5）删除表对象“员工表”和“部门表”之间已建立的错误表间关系，重新建立
正确关系。
（6）将考生文件夹下Excel文件Test.xls中的数据导入到当前数据库的新表中。
要求第一行包含列标题，导入其中的“编号”、“姓名”“性别”“年龄”
和“职务”五个字段，选择“编号”字段为主键，新表命名为“tmp”。
8.2
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好三个 关联表对象“tStud”、“tCourse”、“tScore”和一个临时表“tTemp”及一 个窗体对象“fTmp”。试按以下要求完成设计：
（1）创建一个查询，查找并显示没有运动爱好学生的“学号”、“姓名”、“
性别”和“年龄”四个字段内容，所建查询命名为“qT1”。（2）创建一个查询，查找并显示所有学生的“姓名”、“课程号”和“成绩”
三个字段内容，所建查询命名为“qT2”。
注意，这里涉及选课和没选课的所有学生信息，要考虑选择合适查询联接
属性。
（3）创建一个参数查询，查找并显示学生的“学号”、“姓名”、“性别”和“
年龄”四个字段内容。其中设置性别字段为参数，参数条件要引用窗体“
fTmp”上控件“tSS”的值，所建查询命名为“qT3”。
（4）创建一个查询，删除临时表对象“tTemp”中年龄为奇数的记录，所建查询
命名为“qT4”。
8.3
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计了表对 象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。同时，给出窗体对象“fEmp”上一个按钮的单击事件代码，试按以下功能要求补充设计:（1）打开窗体时设置窗体标题为“XXXX年信息输出”显示，其中“XXXX”为系统
当前年份（要求用相关函数获取），例如，2013年信息输出。窗体“打开”
事件代码已提供，请补充完整。
（2）调整窗体对象“fEmp”上“退出”按钮（名为“bt2”）的大小和位置，要
求大小与“报表输出”按钮（名为“bt1”）一致，且左边对齐“报表输出
”按钮，上边距离“报表输出”按钮1厘米（即“bt2”钮的上边距离“bt1
”钮的下边1厘米）。
（3）利用表达式将报表记录数据按照姓氏分组升序排列，同时要求在相关组页
眉区域添加一个文本框控件（命名为“tm”），设置属性显示出姓氏信息
来，如“陈”、“刘”、...等。
注意，这里不用考虑复姓等特殊情况。所有姓名的第一个字符视为其姓氏
信息。
（4）单击窗体“报表输出”按钮（名为“bt1”），调用事件代码实现以预览方
式打开报表“rEmp”；单击“退出”按钮（名为“bt2”），调用设计好的宏“mEmp”来关闭窗体。
注意：不允许修改数据库中的表对象“tEmp”和宏对象“mEmp”；不允许
修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性。
程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存
在的语句。
9.1
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
在考生文件夹下，存在一个数据库文件“samp1.accdb”、一个Excel文件 “tScore.xls”和一个图像文件“photo.bmp”。在数据库文件中已经建立了一 个表对象“tStud”。试按以下操作要求，完成各种操作：
（1）设置“ID”字段为主键；并设置“ID”字段的相应属性，使该字段在数据
表视图中的显示标题为“学号”；
（2）将“性别”字段的默认值属性设置为“男”，设置“入校时间”字段的相
关属性，使该字段的输入格式为“XXXX/XX/XX”，例如，2013/06/08；（3）设置“入校时间”字段的有效性规则和有效性文本。有效性规则为：输入的入校时间必须为9月；有效性文本内容为“输入的月份有误，请重新输
入”；
（4）将学号为“20041002”学生的“照片”字段值设置为考生文件夹下的“
photo.bmp”图像文件（要求使用“由文件创建”方式）；
（5）设置“政治面目”字段的输入方式为从下拉列表中选择“团员”、“党员”
和“其他”选项值；
（6）将考生文件夹下的“tScore.xls”文件导入到“samp1.mdb”数据库文件
中，表名不变，主键为表中的“ID”字段。
9.2
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好三个 关联表对象“tStud”、“tScore”和“tCourse”，试按以下要求完成设计：
（1）创建一个查询，查找年龄高于平均年龄的党员记录，并显示“姓名”、“
性别”和“入校时间”。所建查询命名为“qT1”。
（2）创建一个查询，按输入的成绩区间查找，并显示“姓名”、“课程名”和
“成绩”。当运行该查询时，应分别显示提示信息：“最低分”和“最高
分”。所建查询命名为“qT2”。
（3）创建一个查询，统计并显示各门课程男女生的平均成绩，统计显示结果如
下图所示。所建查询命名为“qT3”。
要求：平均分结果用Round函数取整输出。
【图片】
（4）创建一个查询，运行该查询后生成一个新表，表名为“tTemp”，表结构包
括“姓名”、“课程名”和“成绩”等三个字段，表内容为不及格的所有
学生记录。所建查询命名为“qT4”。要求创建此查询后，运行该查询，并
查看运行结果。
9.3
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对 象“tStud”，同时还设计出窗体对象“fStud”。请在此基础上按照以下要求补 充“fStud”窗体的设计：
（1）在窗体的“窗体页眉”中距左边1.2厘米、距上边1.2厘米处添加一个直线
控件，控件宽度为7.8厘米，边框颜色改为“蓝色“（蓝色代码为
#0000FF），控件命名为“tLine”；
（2）将窗体中名称为“lTalbel”的标签控件上的文字颜色改为“蓝色”（蓝色
代码为#0000FF）、字体名称改为“华文行楷”、字号改为22；
（3）将窗体边框改为“细边框”样式，取消窗体中的水平和垂直滚动条、记录选
择器、导航按钮和分隔线；并且只保留窗体的关闭按钮；（4）假设“tStud”表中，“学号”字段的第5位和6位编码代表该生的专业信息，当这两位编码为“10”时表示“信息”专业，为其他值时表示“管理”专业
。设置窗体中名称为“tSub”的文本框控件的相应属性，使其根据“学号”
字段的第5位和第6位编码显示对应的专业名称；
（5）在窗体中有一个“退出”命令按钮，名称为“CmdQuit”,单击该按钮，弹出
提示框。提示框标题为“提示”，提示框内容为“确认退出?”，并显示问
号图标；提示框中有两个按钮，分别为“是”和“否”，单击“是”按钮，关闭消息框和当前窗体，单击“否”按钮，关闭消息框。请按照VBA代码中的指示将实现此功能的代码填入指定的位置中。
注意：不允许修改窗体对象“fStud”中未涉及的控件、属性和任何VBA代
码；不允许修改表对象“tStud”；
程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存
在的语句。
10.1
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
在考生文件夹下，存在一个数据库文件“samp1.accdb”和一个Excel文件“ tQuota.xls”。在数据库文件中已经建立了一个表对象“tStock”。试按以下操 作要求，完成各种操作：
（1）分析“tStock”表的字段构成，判断并设置其主键。
（2）在“tStock”表的“规格”和“出厂价”字段之间增加一个新字段，字段
名称为“单位”，数据类型为文本，字段大小为1；设置有效性规则，保
证只能输入“只”或“箱”。
（3）删除“tStock”表中的“备注”字段，并为该表的“产品名称”字段创建
查阅列表，列表中显示“灯泡”、“节能灯”和“日光灯”三个值。（4）向“tStock”表中输入数据有如下要求：第一，“出厂价”只能输入3位
整数和2位小数（整数部分可以不足3位），第二，“单位”字段的默认值
为“只”。设置相关属性以实现这些要求。
（5）将考生文件夹下的“tQuota.xls”文件导入到“samp1.accdb”数据库文
件中，表名不变，分析该表的字段构成，判断并设置其主键；设置表的相
关属性，保证输入的“最低储备”字段值低于“最高储备”字段值，当输
入的数据违反有效性规则时，提示“最低储备值必须低于最高储备值”。（6）建立“tQuota”表与“tStock”表之间的关系。
10.2
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好表对 象“tQuota”和“tStock”，试按以下要求完成设计：
（1）创建一个查询，查找库存数量高于30000（包含30000）的产品，并显示“
产品名称”、“规格”、“库存数量”和“最高储备”等字段内容，所建
查询命名为qT1。
（2）创建一个查询，查找某类产品的库存情况，并显示“产品名称”、“规格”
和“库存数量”等字段内容，所建查询名为“qT2”；当运行该查询时，提
示框中应显示“请输入产品类别：”。
说明：产品类别为“产品ID”字段值的第1位。
（3）创建一个查询，查找库存数量超过（不含）最高储备的产品，并显示“产
品名称”、“库存数量”和“最高储备”等字段内容。所建查询命名为“
qT3”。
（4）创建一个查询，计算每类产品不同单位的库存金额总计。要求，行标题显
示“产品名称”，列标题显示“单位”。所建查询命名为“qT4”。
说明：库存金额=单价×库存数量。
10.3
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好窗体 对象“fSys”。请在此基础上按照以下要求补充“fSys”窗体的设计：（1）将窗体的边框样式设置为“对话框边框”，取消窗体中的水平和垂直滚动条、记录选择器、导航按钮、分隔线、控制框、关闭按钮、最大化按钮和最小
化按钮。
（2）将窗体标题栏显示文本设置为“系统登录”。（3）将窗体中“用户名称”（名称为“lUser”）和“用户密码”（名称为“
lPass）两个标签上的文字颜色改为浅综色（浅综色代码为#800000)、字
体粗细改为“加粗”。（4）在窗体加载时，“tPass”文本框的内容以密码形式显示。窗体“加载”事
件代码已给出，请补充完整。
（5）按照以下窗体功能，补充事件代码设计。
在窗体中有“用户名称”和“用户密码”两个文本框，名称分别为“tUser
”和“tPass”，还有“确定”和“退出”两个命令按钮，名称分别为“
cmdEnter”和“cmdQuit”。在“tUser”和“tPass”两个文本框中输入用
户名称和用户密码后，单击“确定”按钮，程序将判断输入的值是否正确，如果输入的用户名称为“cueb”，用户密码为“1234”，则显示正确提示
框；如果输入不正确，则提示框显示内容为“密码错误！”，同时清除“
tUser”和“tPass”两个文本框中的内容，并将光标置于“tUser”文本框
中。当单击窗体上的“退出”按钮后，关闭当前窗体。
注意：不允许修改窗体对象“fSys”中未涉及的控件、属性和任何VBA代码。
只允许在“*****Add*****”与“*****Add*****”之间的空行内补充
一条语句，不允许增删和修改其它位置已存在的语句。
11.1
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹（1）考生文件夹下存在一个数据库文件“samp1.accdb”。试修改职工表“
employee”的结构，在“职工号”字段后增加“姓名”字段，其数据类型
为文本型，长度为6，并对应职工号添加其姓名，见下表。
【图片】
（2）判断并设置表“employee”的主键，同时将上面增加的“姓名”字段隐藏
起来。
（3）设置表“employee”的“基本工资”字段的默认值为：1000。
（4）在当前数据库中，对表“employee”做一个备份，命名为表“tEmp”。（5）设置表“employee”的有效性规则为：“津贴”字段的值必须小于等于“
基本工资”字段值。
（6）将已有的“水费.xls”文件导入到samp1.mdb数据库中，将导入的表命名为
“水费记录”。“水费记录”表结构调整如下。
【图片】
11.2
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好三个关 联表对象“tStud”、“tCourse”、“tScore”和一个空表“tTemp”。试按 以下要求完成设计：
（1）创建一个查询，统计人数在5人以上（不含5）的院系人数，字段显示标题
为“院系号”和“人数”，所建查询命名为“qT1”。
注意：要求按照学号来统计人数。
（2）创建一个查询，查找非“04” 院系的选课学生信息，输出其“姓名”、“
课程名”和“成绩”三个字段内容，所建查询命名为“qT2”。（3）创建一个查询，查找还没有选课的学生的姓名，所建查询命名为“qT3”。（4）创建一个查询，将前5条记录的学生信息追加到表“tTemp”的对应字段中，所建查询命名为“qT4”。
11.3
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对象 “tStud”、查询对象“qStud”、窗体对象“fStud”和子窗体对象“fDetail”，同时还设计出以“qStud”为数据源的报表对象“rStud”。请在此基础上按照 以下要求补充“fStud”窗体和“rStud”报表的设计：
（1）在报表的报表页眉节区位置添加一个标签控件，其名称为“bTitle”，标题显示为“团员基本信息表”；将名称为“tSex”的文本框控件的输
出内容设置为 “性别”字段值。在报表页脚节区添加一个计算控件，其名称为“tAvg”,设置相关属性，输出学生的平均年龄。
（2）将“fStud”窗体对象主体节中控件的Tab键次序移动顺序设置为：
“CItem”→“TxtDetail” →“CmdRefer” →“CmdList” →
“CmdClear” →“fDetail” →“简单查询”。
（3）在窗体加载事件中，实现重置窗体标题为当前年月加标签“tTitle”的标题内容，如“2013年06月xxxx”。其中，当前年月要求用函数获
得，xxxx部分是标签“tTitle”的标题内容。
（4）试根据以下窗体功能要求，对已给的事件过程进行代码补充，并运行
调试。
在窗体中有一个组合框控件和一个文本框控件，名称分别为“CItem”和 “TxtDetail”；有两个标签控件，名称分别为“Label3”和“Ldetail”；还 有三个命令按钮，名称分别为“CmdList”、“CmdRefer”和“CmdClear”。在“CItem”组合框中选择某一项目后，“Ldetail”标签控件将显示出所选 项目名加上“内容：”。在“TxtDetail”文本框中输入具体项目值后，单击 “CmdRefer”命令按钮，如果“CItem”和“TxtDetail”两个控件中均有值，则在子窗体中显示找出的相应记录，如果两个控件中没有值，显示提示框，提示框标题为“注意”，提示文字为“查询项目或查询内容不能为空！！”，提示框中只有一个“确定”按钮；单击“CmdList”命令按钮，在子窗体中显 示“tStud”表中的全部记录；单击“CmdClear”命令按钮，将清空控件 “cItem”和“TxtDetail”中的值。
注意：不允许修改窗体对象“fStud” 和子窗体对象“fDetail”中未涉 及的控件、属性和任何VBA代码；不允许修改报表对象“rStud”中已有的控 件和属性；不允许修改表对象“tStud”和查询对象“qStud”。只允许在
“*****Add*****”与“*****Add*****”之间的空行内补充一条代码语句、完成设计，不允许增删和修改其它位置已存在的语句。
12.1
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
在考生文件夹下，存在一个Excel文件“Test.xls”和一个数据库文件“ samp1.accdb”。库文件中已建立三个表对象（名为“线路”、“游客”和“团 队”）和一个窗体对象（名为“brow”）。试按以下要求，完成表和窗体的各 种操作：
（1）将“线路”表中的“线路ID”字段设置为主键；设置“天数”字段的有效
性规则属性，有效性规则为非空且大于0。
（2）将“团队”表中的“团队ID”字段设置为主键；追加“线路ID”新字段，数据类型为“文本”，字段大小为8。
（3）将“游客”表中的“年龄”字段删除；添加两个字段，字段名分别为“证
件编号”和“证件类别”；“证件编号”的数据类型为“文本”，字段大
小为20；“证件类别”字段的数据类型为“文本”，字段大小为8，其值的输入要求从下拉列表选择“身份证”、“军官证”或“护照”之一。（4）将考生文件夹下Test.xls文件中的数据链接到当前数据库中。要求：数据
中的第一行作为字段名，链接表对象命名为“tTest”。（5）建立“线路”、“团队”和“游客”三表之间的关系，并实施参照完整性。（6）修改窗体“brow”，取消“记录选择器”和“分隔线”显示，在窗体页眉
处添加一个标签控件（名为Line）,标签标题为“线路介绍”，字体名称
为隶书、字体大小为18。
12.2
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
考生文件夹下存在一个数据库文件“samp2.mdb”，里面已经设计好两个表对 象“tA”和“tB”。试按以下要求完成设计：
（1）创建一个查询，查找并显示6月份入住客人的“姓名”、“房间号”、“
电话”和“入住日期”四个字段内容，所建查询命名为“qT1”。
（2）创建一个查询，能够在客人每次结账时根据客人的姓名提示统计这个客人
已住天数和应交金额，并显示“姓名”、“房间号”、“已住天数”和“
应交金额”，所建查询命名为“qT2”。
注：输入姓名时应提示“请输入姓名”。
已住天数按系统时间为客人结账日进行计算。
应交金额=已住天数*价格。
（3）创建一个查询，查找“身份证”字段第4位至第6位值为“102”的纪录，并
显示“姓名”、“入住日期”和“价格”三个字段内容，所建查询命名为
“qT3”。
（4）以表对象“tB”为数据源创建一个查询，使用房间号统计并显示每栋楼的各类房间个数。行标题为“楼号”，列标题为“房间类别”，所建查询命
名为“qT4”。
注：房间号的前两位为楼号。
12.3
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计了表对象 “tEmp”、查询对象“qEmp”和窗体对象“fEmp”。同时，给出窗体对象“fEmp ”上两个按钮的单击事件代码，试按以下要求补充设计。
（1）将窗体“fEmp”上名称为“tSS”的文本框控件改为组合框控件，控件名称
不变，标签标题不变。设置组合框控件的相关属性，以实现从下拉列表中
选择输入性别值“男”和“女”。
（2）选择合适字段，将查询对象“qEmp”改为参数查询，参数为引用窗体对象
“fEmp”上组合框“tSS”的输入值。
（3）将窗体对象“fEmp”上名称为“tPa”的文本框控件设置为计算控件。要求
依据“党员否”字段值显示相应内容。如果“党员否”字段值为True,显示
“党员”两个字；如果“党员否”字段值为False,显示“非党员”三个字。（4）在窗体对象“fEmp”上有“刷新”和“退出”两个命令按钮，名称分别为
“bt1”和“bt2”。单击“刷新”按钮，窗体记录源改为查询对象“qEmp
”；单击“退出”按钮，关闭窗体。现已编写了部分VBA代码，请按照VBA
代码中的指示将代码补充完整。
注意：不允许修改数据库中的表对象“tEmp”；不允许修改查询对象“qEmp
”中未涉及的内容；不允许修改窗体对象“fEmp”中未涉及的控件和
属性。
程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存
在的语句。
13.1
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
在考生文件夹下，存在一个数据库文件“samp1.accdb”。在数据库文件中已 经建立了五个表对象“tOrder”、“tDetail”、“tEmployee”、“tCustom” 和“tBook”。试按以下操作要求，完成各种操作：
（1）分析“tOrder”表对象的字段构成，判断并设置其主键。
（2）设置“tDetail”表中“订单明细ID”字段和“数量”字段的相应属性，使
“订单明细ID”字段在数据表视图中的显示标题为“订单明细编号”，将
“数量”字段取值非空且大于0。
（3）删除“tBook”表中的“备注”字段；并将“类别”字段的“默认值”属性
设置为“计算机”。
（4）设置“tEmployee”表中“性别”字段相关属性，实现下拉列表选择“男”
和“女”之一。
（5）将“tCustom”表中“邮政编码”和“电话号码”两个字段的数据类型改
为“文本”，将“邮政编码”字段的“输入掩码”属性设置为“邮政编码
”，将“电话号码”字段的输入掩码属性设置为“010-XXXXXXXX”，其中，“X”为数字位，且只能是0～9之间的数字。（6）建立五个表之间的关系。
13.2
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好表对象 “tOrder”、“tDetail”、“tEmployee”和“tBook”，试按以下要求完成设 计：
（1）创建一个查询，查找清华大学出版社出版的图书中定价大于等于20且小于
等于30的图书，并按定价从大到小顺序显示“书籍名称”、“作者名”和
“出版社名称”。所建查询名为“qT1”。（2）创建一个查询，查找某月出生雇员的售书信息，并显示“姓名”、“书籍
名称”、“订购日期”、“数量”和“单价”。当运行该查询时，提示框
中应显示“请输入月份：”。所建查询名为“qT2”。
（3）创建一个查询，计算每名雇员的奖金，显示标题为“雇员号”和“奖金”
。所建查询名为“qT3”。
说明：销售金额 = 单价*数量。
奖金 = 销售金额合计数×5%。
（4）创建一个查询，查找单价低于定价的图书，并显示“书籍名称”、“类别
”、“作者名”、“出版社名称”。所建查询名为“qT4”。
13.3
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对象 “tOrder”、“tDetail”和“tBook”，查询对象“qSell”，报表对象“rSell ”。请在此基础上按照以下要求补充“rSell”报表的设计：
（1）对报表进行适当设置，使报表显示“qSell”查询中的数据。
（2）对报表进行适当设置，使报表标题栏上显示的文字为“销售情况报表”；
在报表页眉处添加一个标签，标签名为“bTitle”，显示文本为“图书销
售情况表”，字体名称为“黑体”、颜色为褐色（褐色代码为#7A4E2B）、字号为20，文字不倾斜。
（3）对报表中名称为“txtMoney”的文本框控件进行适当设置，使其显示每本
书的金额（金额=数量*单价）。
（4）在报表适当位置添加一个文本框控件（控件名称为“txtAvg”），计算每本图书的平均单价。
说明：报表适当位置指报表页脚、页面页脚或组页脚
要求：使用Round函数将计算出的平均单价保留两位小数（5）在报表页脚处添加一个文本框控件（控件名称为“txtIf”），判断所售图
书的金额合计，如果金额合计大于30000，“txtIf”控件显示“达标”，否则显示“未达标”。
注意：不允许修改报表对象“rSell”中未涉及的控件、属性；不允许修
改表对象“tOrder”、“tDetail”和“tBook”，不允许修改查
询对象“qSell”。
14.1
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
在考生文件夹下，存在一个数据库文件“samp1.accdb”，里边已经设计好 了表对象“tDoctor”、“tOffice”、“tPatient”和“tSubscribe”。试按以 下操作要求，完成各种操作：
（1）在“samp1.mdb”数据库中建立一个新表，名为“tNurse”，表结构如下表
所示： 【图片】
（2）判断并设置表“tNurse”的主键。（3）设置“护士姓名”字段为必需字段、“工作日期”字段的默认值为系统当
前月的第一天（规定：系统日期必须由函数获取）。设置“护士ID”字段
的有效性规则，保证输入的第一个字符为“N”。
（4）将下表所列数据输入到“tNurse”表中，且显示格式应与下表相同。【图片】
（5）向“tDoctor”表“性别”字段中输入数据有如下要求：第一，输入方式
为从下拉列表中选择“男”、或“女”值；第二，初始值为“男”。设置
相关属性以实现这些要求。（6）通过相关字段建立“tDoctor”、“tOffice”、“tPatient”和“
tSubscribe”等四表之间的关系，同时使用“实施参照完整性”。
14.2
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好两个 表对象“tEmployee”和“tGroup”。试按以下要求完成设计：
（1）创建一个查询，查找并显示没有运动爱好的职工的“编号”、“姓名”、“性别”、“年龄”和“职务”五个字段内容，所建查询命名为“
qT1”。
（2）创建一个查询，查找并显示聘期超过5年（必须使用函数获取）的开发
部职工的“编号”、“姓名”、“职务”和“聘用时间”四个字段内
容，所建查询命名为“qT2”。
（3）创建一个查询，计算5月份聘用的、男女生每个部门的最小年龄。要
求，第一列显示性别，第一行显示部门名称，所建查询名为“qT3”。
（4）创建一个查询，查找年龄低于所有职工平均年龄并且职务为经理的职
工记录，并显示“管理人员”信息。其中管理人员由“编号”和“姓
名”两列信息合二为一构成（比如，编号为“000011”、姓名为“吴
大伟”的数据输出形式为“000011吴大伟”），所建查询命名为“
qT4”。
14.3
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计了表对 象“tEmp”、窗体对象“fEmp”、报表对象“rEmp” 和宏对象“mEmp”。试在 此基础上按照以下要求补充设计：
（1）设置报表“rEmp”按照“年龄”字段升序排列输出；将报表页面页脚区域
内名为“tPage”的文本框控件设置为“第N页，共M页”形式的页码显示
（如第1页，共15页、第2页，共15页、„）。
（2）设置窗体对象“fEmp”背景图像为考生文件夹下的图像文件“photo.bmp”，并将该图像以平铺方式显示。
（3）在窗体加载事件中实现代码重置窗体标题为标签“bTitle”的标题内容。（4）试根据以下窗体功能要求，对已给的事件过程进行代码补充，并运行调试。
在“fEmp”窗体上单击“输出”命令按钮（名为“btnP”），计算满足表
达式1+2+3+„+n<=30000的最大n值，并将n的值显示在窗体上名为“tData”的文本框内并输出到外部文件保存。单击“打开表”命令按钮（名为“
btnQ”），代码调用宏对象“mEmp”以打开数据表“tEmp”。
注意：不允许修改数据库中的表对象“tEmp”和宏对象“mEmp”；不允许
修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性；
只允许在“*****Add*****”与“****Add******”之间的空行内补
充语句、完成设计，不允许增删和修改其它位置已存在的语句。
15.1
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
在考生文件夹下，存在一个数据库文件“samp1.accdb”，里面已经建立了 表对象“tBook”、“tDetail”、“tEmp”和“tOrder”，宏对象“mTest”。试按以下要求，完成各种操作：
（1）将“tOrder”表中“订单ID”字段的数据类型改为“文本”，字段大
小改为10；设置该字段的相关属性，使其在数据表视图中显示为“订
单号”。
（2）向“tOrder”表“订购日期”字段中输入数据有如下要求：第一，输
入格式为“XXXX/XX/XX(如，2011/01/08)”；第二，输入的数据为
2011年1月至8月产生的；第三，当输入的数据不符合要求时，显示“
输入数据有误，请重新输入”信息。设置相关属性以实现这些要求。
（3）向“tBook”表“类别”字段中输入数据有如下要求：第一，输入方
式为从下拉列表中选择“JSJ”、或“KJ”值；第二，初始值为“
JSJ”。设置相关属性以实现这些要求。
（4）在数据表视图中进行相关设置，使其能够显示出“tEmp”表中所有字
段的数据。
（5）建立“tBook”、“tDetail”、“tEmp”和“tOrder”等四张表之
间的关系，并全部实施参照完整性。
（6）将宏“mTest”重命名，保存为自动执行的宏。
15.2
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好表对 象“tCourse”、“tScore”和“tStud”，试按以下要求完成设计：
（1）创建一个查询，查找人数为20的班级，并显示“班级编号”和“班级
人数”。所建查询名为“qT1”。
要求：使用“姓名”字段统计人数。
说明：“学号”字段的前8位为班级编号。
（2）创建一个查询，查找平均成绩最高的课程，并显示“课程名”和“平
均成绩”。所建查询名为“qT2”。
要求：使用Round函数实现平均成绩保留整数。
（3）创建一个查询，计算男女生每门课程的最高成绩。要求，第一列显示
性别，第一行显示课程名。所建查询名为“qT3”。
（4）创建一个查询，运行该查询后生成一张新表，表名为“tNew”，表结
构包括“姓名”、“课程名”和“成绩”等三个字段，表内容为90分
以上（包括90分）或不及格的所有学生记录。所建查询名为“qT4”。
要求：
1、所建新表中的记录按照“成绩”降序保存。
2、创建此查询后，运行该查询，并查看运行结果。
15.3
请在“答题”菜单下选择相应命令，并按照题目要求完成下面的操作，具体 要求如下：
注意：下面出现的“考生文件夹”均为考生文件夹
考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对 象“tBook”、“tDetail”、“tEmp”和“tOrder”，查询对象“qSell”，窗 体对象“fEmp”。同时还设计出以“qSell”为数据源的报表对象“rSell”。请在此基础上按照以下要求补充“fEmp”窗体和“rSell”报表的设计：
（1）将“rSell”报表标题栏上的显示文本设置为“销售报表”；对报表中
名称为“txtNum”的文本框控件进行适当设置，使其显示每本书的售
出数量；在报表适当位置添加一个计算控件（控件名称为“txtC2”），计算各出版社所售图书的平均单价。
说明：报表适当位置指报表页脚、页面页脚或组页脚。
要求：计算出的平均单价使用函数保留两位小数。
（2）在“fEmp”窗体页眉节区添加一个标签，标签名为“bTitle”，显示
文本为“雇员基本情况查询”，字号为26。
（3）将“fEmp”窗体中命令按钮（名称为“CmdRefer”）上的文字颜色改
为褐色（褐色代码为#7A4E2B）、字体粗细改为“加粗”、文字下方显
示“下划线”。
（4）将“fEmp”窗体中窗体页眉节区控件的Tab键移动次序设置为：“
TxtDetail”→“CmdRefer”。
（5）试根据以下窗体功能要求，补充已给的事件代码，并运行调试。
在“fEmp”窗体的窗体页眉节区有一个文本框控件和一个命令按钮，名称 分别为“TxtDetail”和“CmdRefer”；在主体节区有多个文本框控件，显示 “tBook”表中的相关信息。在“TxtDetail”文本框中输入具体值后，单击“ CmdRefer”命令按钮。如果“TxtDetail”文本框中没有值，则显示提示框，提示文字为“对不起!未输入雇员姓名，请输入！”；如果“TxtDetail”文
本框中有值，则在“tBook”表中进行查找，如果找到了相应记录，则显示在 主体节对应的文本框控件中,如果没有找到，则显示提示框，提示框显示标题 为“查找结果”，提示文字为“对不起!没有这个雇员!”，提示框中只有一个 “确定”按钮，然后清除“TxtDetail”文本框中的内容，并将光标置于“ TxtDetail”文本框中。
注意：不允许修改报表对象“rSell”中未涉及的控件、属性；不允许修 改表对象“tBook”、、“tDetail”、“tEmp”和“tOrder”，不允许修改 查询对象“qSell”。不允许修改窗体对象“fEmp”中未涉及的控件、属性和
任何VBA代码；只允许在“*****Add*****”与“*****Add*****”之间的空行 内补充一条代码语句、不允许增删和修改其它位置已存在的语句。
第五篇：VB上机试题及答案
上机操作练习题
1．某数组有20个元素，其值为随机产生的两位整数。现要求将前10个元素与后10个元素对换。即第1个元素与第20个元素互换，第2个数与第19个元素互换，…，第10个元素与第11个元素互换。在窗体上输出数组原来各元素的值与对换后各元素的值。
Option explicit Dim a(1 to 20)as integer, I as integer, j as integer, t as integer Private Sub Form_Load()Show Print “原始数组是：” Randomize For i = 1 To 20
a(i)= Int(Rnd * 90)+ 10
Print a(i);If i Mod 10 = 0 Then Print Next i Print Print “现在数组是：” For i = 1 To 10
j = 211
a(k)= a(k + 1)
Next k
ReDim Preserve a(UBound(a)1 End If i = i + 1 Loop While(i <= UBound(a))If flag = False Then MsgBox n & “不在该数组中” Else Print “删除” & n & “后的数组是:” For i = 0 To UBound(a)Print a(i);Next i End If End Sub 3．数组a中存放着升序排列的数据，使用array赋值，将inputbox输入的新数插入到数组中，插入后数组仍有序。
注意：要求利用动态数组，能够实现多次插入 Private Sub Form_Load()Show n = 8: ReDim a(n)a = Array(5, 15, 23, 52, 68, 88, 90, 99)n = n + 1: ReDim Preserve a(n)m = InputBox(“请输入要插入的数据:”)For i = 1 To n1)Next k a(k)= m For i = 1 To n
Print a(i);Next i Print End Sub 4．6个评委为4位歌手打分，分数介于1-100之间。去掉一个最高分，一个最低分，求出每位选手的最后得分。将4位歌手得分从高到低排列输出，同时输出该选手的编号。
如：
歌手3 95分 歌手 1 87分 歌手 4 80分 歌手 2 70分
/ 19
Option Base 1
Private Type geshou
xuhao As String
fenshu(6)As Integer
score As Integer
pingjun As Integer End Type Dim singer(1 To 4)As geshou Private Sub Command1_Click()For i = 1 To 4 For j = 1 To 6
singer(i).fenshu(j)= Int(Rnd * 100)
singer(i).xuhao = “歌手” & i Next Next Call paixu End Sub
Private Sub paixu()Dim p As geshou For i = 1 To 4
For j = 1 To 5
For k = j To 6
If singer(i).fenshu(j)> singer(i).fenshu(k)Then
t = singer(i).fenshu(j)
singer(i).fenshu(j)= singer(i).fenshu(k)
singer(i).fenshu(k)= t
End If
Next
Next Next For i = 1 To 4 For j = 2 To 5
singer(i).score = singer(i).score + singer(i).fenshu(j)Next singer(i).pingjun = singer(i).score / 4 Next
For i = 1 To 3 For j = i To 4
If singer(i).score < singer(j).score Then
p = singer(i): singer(i)= singer(j): singer(j)= p
End If Next
/ 19
Next For i = 1 To 4 Print singer(i).xuhao & “得分：” & singer(i).pingjun Next End Sub Private Sub Form_Load()End Sub 10个评委给10个选手打分 Private Sub Form_Load()Show n = UBound(b)For i = 1 To 10
For j = 1 To 10
a(i, j)= Val(InputBox(“请第” & j & “位评委给第” & i & “位选手打分：”))Next j Next i For i = 1 To 10
max = a(i, 1): sum = 0
min = a(i, 1): ave = 0
For j = 1 To 10
If a(i, j)> max Then max = a(i, j)
If a(i, j)< min Then min = a(i, j)
sum = sum + a(i, j)
Next j
ave =(summin)/(n1
For j = i + 1 To n
If b(i)< b(j)Then
t = b(i): b(i)= b(j): b(j)= t
End If
Next j Next i Print “选手的得分由高到低为：” For i = 1 To 10
Print b(i);Next i End Sub 5．编写函数求一元二次方程ax2+bx+c=0的解。
注意：要求考虑方程有两相等实根、两不等实根和两个虚根的情况。Dim a As Single, b As Single, c As Single Dim s As Single a = InputBox(“请输入a”)
/ 19
b = InputBox(“请输入b”)c = InputBox(“请输入c”)s = b ^ 2Sqr(s))/ 2 * a End If End Sub 6.任意输入一组字符，统计出大写字母多少个，小写字母多少个，数字多少个？要求用过程实现。
Call tongji(a, n, m, o)Print “数字：” & n & Chr(13)& “小写：” & m & Chr(13)& “大写：” & o End Sub Private Sub tongji(a As String, n As Integer, m As Integer, p As Integer)For i = 1 To Len(a)If Asc(Mid(a, i, 1))> 47 And Asc(Mid(a, i, 1))< 58 Then
n = n + 1 ElseIf Asc(Mid(a, i, 1))> 96 And Asc(Mid(a, i, 1))< 123 Then
m = m + 1 ElseIf Asc(Mid(a, i, 1))> 64 And Asc(Mid(a, i, 1))< 91 Then
p = p + 1 End If Next End Sub 7．随机产生一个5*5的矩阵，将主对角线和次对角线元素都置为1，并求出矩阵的四周元素之和，显示在列表框中。
Option Base 1 Private Sub Form_Load()Dim a(5, 5)As Integer Dim s As Integer For i = 1 To 5 For j = 1 To 5
If i = j Or i = 6Asc(Mid(s1, i, 1))+ 64)ElseIf Asc(Mid(s1, i, 1))< 123 And Asc(Mid(s1, i, 1))> 96 Then convert = convert & Chr(1235: g = e
For j = 1 To n
If j > i Then
a(i, j)= 0
Else
If i = j Then
a(i, j)= 1
Else
a(i, j)= a(i1, ji + 1);String(2 *(i1)/ 2 To 1 Step(-1)
c = c + 1
s = Chr(64 + ii + c + 1);String(2 *(j1)/ 2 Else
x = x / 2 End If i = i + 1 Loop
ReDim Preserve a(UBound(a))If y < 0 Then For i = 1 To UBound(a)convert = convert & a(i)Next convert = “-” & convert Else For i = 1 To UBound(a)
/ 19
convert = convert & a(i)Next End If
End Function Private Sub Command1_Click()Dim y As Integer Text1.Text = “" y = InputBox(”请输入十进制数字“)Text1.Text = convert(y)
End Sub
Private Sub Form_Load()
End Sub 14．输入一个整数N，产生N个随机数（范围1—10*N），然后采用任何2种算法实现由小到大的排序。将排序前后的数据显示出来。
Option Base 1 Private Sub Command1_Click()Dim a()As Integer, n As Integer n = InputBox(”请输入数列项数“)ReDim a(n)For i = 1 To n
a(i)= Int(Rnd * 10 * n + 1)
Print a(i);Next Print ReDim Preserve a(n)For i = 1 To n1 For j = 1 To n2)+ fact(n2 s = s1 + s2: t = s2: s2 = s: s1 = t Next End Function
Private Sub Command2_Click()n = InputBox(”请输入n“)Print s(n)End Sub 17.编写2个函数，分别采用递归法和递推法求斐波纳契数列的第n个月的兔子数，n使用inputbox输入，调用函数的结果在窗体上显示。Private Sub Command1_Click()List1.Clear Dim i As Integer For i = Val(Text1.Text)To Val(Text2.Text)If isprime(i)= True Then
List1.AddItem(i)
c = c + 1
If i Mod 10 = 9 Then
/ 19
List1.Selected(c1 If n Mod i = 0 Then
isprime = False
Exit For End If Next End Function 18 Dim sum As Long Private Sub Command1_Click()
Dim i As Integer, j As Integer, a(40)As Long
a(1)= 1
a(2)= 1
For i = 3 To 40
a(i)= a(i2)
Next i
sum = 0
For j = 1 To 40
sum = sum + a(j)
Next j End Sub
Private Sub Command2_Click()
Open ”out18.txt“ For Output As #1
Print #1, ”数列1，1，2，3，5，8…的前四十项的之和是：“
Print #1, sum
Close #1 End Sub 1.百钱买百鸡
Option Explicit
Private Sub Command1_Click()Dim a As Integer, b As Integer For a = 1 To 34
For b = 1 To 20
If 3 * a + 5 * b +(100b)/ 3 = 100 Then
/ 19
Print a;
Print b;
Print 100b
End If
Next b Next a End Sub 2.分钱作业
Private Sub Command1_Click()Dim a As Single,b as single,c as single a = Text1.Text b = Fix(a / 100)Print ”100元：“;Print b c = ab * 50
b = Fix(c / 20)Print ”20元：“;Print b c = c0.05 * b b = Fix((c + 0.005)/ 0.02)Print ”0.02元：“;Print b c = c1
If a(i)= a(j)Then
GoTo aaa
End If
Next j
Next i For i = 1 To 10
Print a(i);Next i Print End Sub
Private Sub Command2_Click()Dim i As Integer, j As Integer, t As Integer For i = 1 To 9
For j = 1 + i To 10
If a(i)> a(j)Then
t = a(j)
a(j)= a(i)
a(i)= t
End If
Next j Next i For i = 1 To 10
Print a(i);Next i Print
End Sub
Private Sub Command3_Click()Dim i As Integer, j As Integer, t As Integer For i = 1 To 9
For j = 1 To 10c)> 10 ^(-5)i =(a + b)/ 2
If i ^ 2c = 0 Then
Exit Do
Else
a = i
End If Loop MsgBox(i)End Sub 7.闰年
Option Explicit
Private Sub 计算_Click()Dim i As Integer i = InputBox(”请输入一个年份“)If i Mod 4 = 0 And i Mod 400 = 0 Then
If i Mod 100 <> 0 Then
MsgBox ”NOT“
Else
MsgBox ”YES“
End If Else
MsgBox ”NOT“ End If
End Sub 8.三角
Option Explicit Private Sub Command1_Click()
/ 19
Dim a As Single Dim b As Single Dim c As Single Dim p As Single Dim s As Single
a = Text1.Text b = Text2.Text c = Text3.Text
p =(a + b + c)/ 2
s = Sqr((pb)* p +(p1
If n Mod i = 0 Then
MsgBox ”NOT“
Exit For
End If Next i If i = n Then
MsgBox ”YES“ End If End Sub
Private Sub Command2_Click()
Dim a As Boolean, n As Double, i As Double a = False n = InputBox(”请输入一个数：“)For i = 2 To n-1
If n Mod i = 0 Then
a = True
Exit For
End If Next i If a = True Then
/ 19
MsgBox ”NOT“ Else
MsgBox ”YES“ End If End Sub
Private Sub Command3_Click()Dim n As Double, i As Double n = InputBox(”请输入一个数：“)i = 2 Do While i < n
If n Mod i = 0 Then
MsgBox ”NOT“
Exit Do
End If i = i + 1 Loop If i = n Then
MsgBox ”YES“ End If End Sub
Private Sub Command4_Click()Dim n As Double, i As Double, sushu As Boolean n = InputBox(”请输入一个数：“)i = 2 sushu = True Do While i < n And sushu = True
If n Mod i = 0 Then
sushu = False
End If i = i + 1 Loop If sushu = True Then
MsgBox ”YES“ Else
MsgBox ”NOT" End If End Sub
/ 19
点击咨询 