2024年5月17日发(作者：邛祺瑞)
1.有效性规则；输入的入校时间必须为9月Like”-9-”
2.平均成绩为整数：【视图】-【SQL视图】，将Avg(tscore.成绩) 修改为
int(Avg(tscore.成绩))
3.当”学号”第5、6位编码为10时为“信息”专业，其他为“管理”专业，设置窗
体中名称为“tsub”的文本框控件的相应属性，使其显示相对应的专业：“控件来源”行输
入=iif(mid([学号],5,2),”信息”,”管理”)=10
4.在窗体中有一个“退出”命令按钮，名称为“CmdQuit”其功能为关闭窗体，填补
代码：
1.有效性规则为：1950年（含）以后的日期：>=#1950-1-1#
2.删除员工表中姓名字段中含有“红”字的员工记录：like”*红*”
3.将考生文件夹下的“”中的数据导入到当前数据库的新表中。要求第一行包
含列标题，导入其中的“编号”“姓名”“性别”“年龄”“职务”，选择“编号”字段为主键，
新表命名为“tmp”：【文件】---【获取外部数据】---【导入】---【】---【下一
步】---【选中-第一行包含列标题-下一步】---【下一步】---【将不导入的字段选中-不导
入字段】---【自己选主键-编号】---【导入到表-修改tmp】---【完成】
4.创建一个查询，查找并显示没有运动爱好学生的“学号”“姓名”“性别”“年龄”4
个字段：not like”*运动*”
5.创建一个参数查询，参数条件要引用窗体”ftmp”上控件”tss”的值：
[forms]![ftmp]![tss]
6.创建一个查询，删除临时表“tTemp”中年龄为奇数的记录：【删除查询】---[年龄]
mod 2=1
7.将报表记录数据按照姓氏分组升序排列，同时要求在相关组页眉区添加一个文本框
控件（命名为”tm”），设置属性显示出姓氏信息来：【视图】---【排序与分组】---【姓
名-升序；组页眉-是；】；将“姓名”文本框移动到“姓名页眉”添加文本框控件—名称为
tm，控件来源left([姓名],1)
8.单击窗体“报表输出”按钮（名为bt1），调用事件代码实现以预览方式打开报表
“rEmp”。port”rEmp” ,acViewPreview
1.设置表对象"职工表"的聘用时间字段默认值为系统日期。【聘用时间】【默认值】date
（）
2.将表对象"职工表"导出到考生文件夹下的""空数据库文件中，要求只导出
表结构定义，导出的表命名为"职工表bk"。右击“职工表”---【导出】---选中samp数据
库---导出---修改表名；选中“只导出定义”
3. 将窗体"fEmp"上文本框"tSS"改为组合框类型，保持控件名称不变。设置其相关属
性实现下拉列表形式输入性别"男"和"女"。【属性】---【更改为】---【组合框】；行来源类
型-值列表，行来源-男；女
4. 将窗体对象"fEmp"上文本框"tPa"改为复选框类型，保持控件名称不变，然后设置
控件来源属性以输出"党员否"字段值。删除文本框，在原来位置新建tPa复选框；控件来源
---党员否
5.单击"刷新"按钮(名为"bt1")，事件过程动态设置窗体记录源为查询对象"qEmp"，实
现窗体数据按性别条件动态显示退休职工的信息：Source=”qemp”
1.创建一个查询，将表"tBmp"中"编号"字段值的前面均增加"05"两个字符，将查询命
名为"qT3"。05+[编号]
1.隐藏"tStud"中的"所属院系"字段列：右击【所属院系】---隐藏列
3.补充窗体"fTest"上"test1"按钮(名为"bt1")的单击事件代码，实现以下功能：
当单击按钮"test1"，将文本框中输入的内容与文本串"等级考试测试"连接，并消除连
接串的前导和尾随空白字符，用标签"bTitle"显示连接结果。
n=trim(ttext)&”等级考试测试”
4.按以下窗体功能，补充事件代码设计。
在窗体的4个文本框内输入合法的职工信息后，单击"追加"按钮(名为bt1)，程序首先
判断职工编号是否重复，如果不重复则向表对象"tEmp"中添加职工纪录，否则出现提示；
当单击窗体上的"退出"按钮(名为bt2)时，关闭当前窗体。If not then ；
1.
现有一个已经建好的"fQuery"窗体，如下图所示。运行该窗体后，在文本框(文本框
名称为tName)中输入要查询的科室名，然后按下"查询"按钮，即运行一个名为"qT4"的查
询。"qT4"查询的功能是显示所查科室的"科室ID"和"预约日期"。请设计"qT4"查询。【设计
查询】---增加“科室ID”“预约日期”“科室名称”，在科室名称条件行输入[forms]！
[fQuery]！[tName]，并取消该行显示
2.在窗体中还有"修改"和"保存"两个命令按钮，名称分别为"CmdEdit"和" CmdSave
"，其中"保存"命令按钮在初始状态为不可用，当单击"修改按钮后，"保存"按钮变为可用。
现已编写了部分VBA代码，请按照上述要求将VBA代码补充完整。
d=true
1.创建一个查询，查找并显示单价高于平均单价的图书"书名"和"出版社名称"等字段内
容，所建查询名为"qT1"。>(select Avg([单价]) from [tBook])
1. 将窗体"fTest"中标题为"Button1"的命令按钮改为"按钮"，同时将其设置为灰色无
效状态。修改标题为“按钮”，【数据】---【可用—否】
2. 将学生"入校时间"字段的默认值设置为本年度的一月一日(规定：本年度年号必须用
函数获取)。【默认值】--- DateSerial((Year(Date())),1,1)
3. 创建一个查询，查找没有任何选课信息的学生，并显示其"学号"和"姓名"两个字段
的内容，将查询命名为"qT3"。【设计视图】---增添“学号”、“姓名”、“选修课程”，“选修
课程”条件行输入is null ,然后取消选修课程显示。
4. 设置报表"rEmp"，使其按照"聘用时间"字段升序排列并输出；将报表页面页脚区内
名为"tPage"的文本框控件设置为系统的日期。【视图】---【排序与分组】--升序;"tPage"
控件来源为 date（）
1.将考生文件夹下""数据库文件中的表对象"tTest"链接到""
数据库文件中，要求链接表对象重命名为tTemp：打开""数据库文件---【导
入】--【获取外部数据】---【链接表】--选中"tTest"—导入后再进行重命名
1. 按"编号"字段前4位分组统计各组记录个数，并将统计结果显示在组页脚节区。计
算控件命名为"tCount"。【视图】---【排序与分组】---编号—组页眉-是，组页脚-是，前
缀字符，整个组；将【编号】移动到“编号页眉”；属性-控件来源-left([编号]，4)；在组
页脚节区添加文本框，控件来源为Count（编号）
1.将窗体对象"fEmp"中名称为"tPa"的文本框控件设置为计算控件。要求依据"党员否"
字段值显示相应内容。如果"党员否"字段值为True，显示"党员"；如果"党员否"字段值为
False，显示"非党员"。控件来源：iif（[党员否]=True,”党员”,”非党员”）
(1) 设置命令按钮bC的单击事件，使用单击该命令按钮后，CDID文本框内内容显
示颜色改为红色。要求用VBA代码实现。lor = vbRed
(4)创建一个查询，要求给出提示信息"请输入需要删除的职工姓名"，从键盘输入姓名
后，删除表对象"tTmp"中指定姓名的记录，将查询命名为"qT4"。【查询】【删除查询】---
“姓名”条件下面输入“[请输入需要删除的职工的姓名：]”---【查询】---【运行】
(2)设计报表"rEmp"的主体节区内"tOpt"复选框控件依据报表记录源的"性别"字段和"
年龄"字段的值来显示状态信息：性别为"男"且年龄小于20时显示为选中的打钩状态，否则
显示为不选中的空白状态。控件来源：iif（[tSex]=”男”And [tAvg]<20,”1”,”0”）
1.窗体加载时将考生文件夹下的图片文件""设置为窗体"fEmp"的背景。窗体
"加载"事件的部分代码已提供，请补充完整。要求背景图片文件当前路径必须用
获得。 e ＝ & ""
(5)设置"规格"字段的输入掩码为9位字母、数字和字符的组合。其中，前3位只能是
数字，第4位为大写字母"V"，第5位为字符"－"，最后一位为大写字母"W"，其他位为数
字。
输入掩码：000V-aaaW
1.表中，学生"李强"的家长身份证号为"112370"，表示李强为在校学
生。由于在tStud表中身份证号"112370"对应的学生姓名是"李永飞"，表
示李强的家长是李永飞，而李永飞是本校校友。
(2)创建一个查询，要求按照身份证号码找出所有学生家长是本校校友的学生记录。输
出学生身份证号、姓名及家长身份证号3列内容，标题显示为"身份证号"、"姓名"和"家长
身份证号"，将查询命名为"qT2"。【新建】--【查找不匹配查询】--增添字段:"身份证号"、
"姓名"和"家长身份证号"；在“家长身份证号”条件输入 in(select[身份证
号]From[tStud])
(3)设置"联系人"表按照联系人姓名升序排列，单元格效果为"凸起"。
【数据表视图】---【格式】---【数据表】--【单元格效果设为凸起】
1.根据以下窗体功能要求，对已给的命令按钮事件过程进行补充和完善。在"fEmp"窗
体上单击"输出"命令按钮(名为"btnP")，弹出一输入对话框，其提示文本为"请输入大于0
的整数值"。
输入1时，相关代码关闭窗体(或程序)。
输入2时，相关代码实现预览输出报表对象"rEmp"。
输入>＝3时，相关代码调用宏对象"mEmp"以打开数据表"tEmp"。
Case >=3; port "rEmp";
1."fEmp"窗体上单击"输出"命令按钮(名为"btnP")，实现以下功能：计算Fibonacci
数列第19项的值，将结果显示在窗体上名为"tData"的文本框内并输出到外部文件保存；单
击"打开表"命令按钮(名为"btnQ")，调用宏对象"mEmp"以打开数据表"tEmp"。
Fibonacci数列：
F
1
＝1 n＝1
F
2
＝1 n＝2
F
n
＝F
n－1
＋F
n－2
n>＝3
调试完毕后，必须点击"输出"命令按钮生成外部文件，才能得分。
试根据上述功能要求，对已给的命令按钮事件进行补充和完善。
Dim f(19) As Integer；f(i) = f(i - 1) + f(i - 2)；tData = f(19)
1.在窗体"fEmp"的"加载"事件中设置标签"bTitle"以红色文本显示；单击"预览"按钮
(名为"bt1")或"打印"按钮(名为"bt2")，事件过程传递参数调用同一个用户自定义代码
(mdPnt)过程，实现报表预览或打印输出；单击"退出"按钮(名为"bt3")，调用设计好的宏
"mEmp"以关闭窗体。
(3)【操作步骤】
步骤1：用设计视图打开窗体"fEmp"，单击工具栏中的"生成器"按钮，选择"代码生
成器"，进入编码环境。
步骤2：在空行内分别输入以下代码：
'*****Add1*****"
lor = vbRed
'*****Add1*****"
'*****Add2*****"
mdPnt (acViewPreview)
'*****Add2*****"
**Add3***mdPnt (acViewNormal)
2024年5月17日发(作者：邛祺瑞)
1.有效性规则；输入的入校时间必须为9月Like”-9-”
2.平均成绩为整数：【视图】-【SQL视图】，将Avg(tscore.成绩) 修改为
int(Avg(tscore.成绩))
3.当”学号”第5、6位编码为10时为“信息”专业，其他为“管理”专业，设置窗
体中名称为“tsub”的文本框控件的相应属性，使其显示相对应的专业：“控件来源”行输
入=iif(mid([学号],5,2),”信息”,”管理”)=10
4.在窗体中有一个“退出”命令按钮，名称为“CmdQuit”其功能为关闭窗体，填补
代码：
1.有效性规则为：1950年（含）以后的日期：>=#1950-1-1#
2.删除员工表中姓名字段中含有“红”字的员工记录：like”*红*”
3.将考生文件夹下的“”中的数据导入到当前数据库的新表中。要求第一行包
含列标题，导入其中的“编号”“姓名”“性别”“年龄”“职务”，选择“编号”字段为主键，
新表命名为“tmp”：【文件】---【获取外部数据】---【导入】---【】---【下一
步】---【选中-第一行包含列标题-下一步】---【下一步】---【将不导入的字段选中-不导
入字段】---【自己选主键-编号】---【导入到表-修改tmp】---【完成】
4.创建一个查询，查找并显示没有运动爱好学生的“学号”“姓名”“性别”“年龄”4
个字段：not like”*运动*”
5.创建一个参数查询，参数条件要引用窗体”ftmp”上控件”tss”的值：
[forms]![ftmp]![tss]
6.创建一个查询，删除临时表“tTemp”中年龄为奇数的记录：【删除查询】---[年龄]
mod 2=1
7.将报表记录数据按照姓氏分组升序排列，同时要求在相关组页眉区添加一个文本框
控件（命名为”tm”），设置属性显示出姓氏信息来：【视图】---【排序与分组】---【姓
名-升序；组页眉-是；】；将“姓名”文本框移动到“姓名页眉”添加文本框控件—名称为
tm，控件来源left([姓名],1)
8.单击窗体“报表输出”按钮（名为bt1），调用事件代码实现以预览方式打开报表
“rEmp”。port”rEmp” ,acViewPreview
1.设置表对象"职工表"的聘用时间字段默认值为系统日期。【聘用时间】【默认值】date
（）
2.将表对象"职工表"导出到考生文件夹下的""空数据库文件中，要求只导出
表结构定义，导出的表命名为"职工表bk"。右击“职工表”---【导出】---选中samp数据
库---导出---修改表名；选中“只导出定义”
3. 将窗体"fEmp"上文本框"tSS"改为组合框类型，保持控件名称不变。设置其相关属
性实现下拉列表形式输入性别"男"和"女"。【属性】---【更改为】---【组合框】；行来源类
型-值列表，行来源-男；女
4. 将窗体对象"fEmp"上文本框"tPa"改为复选框类型，保持控件名称不变，然后设置
控件来源属性以输出"党员否"字段值。删除文本框，在原来位置新建tPa复选框；控件来源
---党员否
5.单击"刷新"按钮(名为"bt1")，事件过程动态设置窗体记录源为查询对象"qEmp"，实
现窗体数据按性别条件动态显示退休职工的信息：Source=”qemp”
1.创建一个查询，将表"tBmp"中"编号"字段值的前面均增加"05"两个字符，将查询命
名为"qT3"。05+[编号]
1.隐藏"tStud"中的"所属院系"字段列：右击【所属院系】---隐藏列
3.补充窗体"fTest"上"test1"按钮(名为"bt1")的单击事件代码，实现以下功能：
当单击按钮"test1"，将文本框中输入的内容与文本串"等级考试测试"连接，并消除连
接串的前导和尾随空白字符，用标签"bTitle"显示连接结果。
n=trim(ttext)&”等级考试测试”
4.按以下窗体功能，补充事件代码设计。
在窗体的4个文本框内输入合法的职工信息后，单击"追加"按钮(名为bt1)，程序首先
判断职工编号是否重复，如果不重复则向表对象"tEmp"中添加职工纪录，否则出现提示；
当单击窗体上的"退出"按钮(名为bt2)时，关闭当前窗体。If not then ；
1.
现有一个已经建好的"fQuery"窗体，如下图所示。运行该窗体后，在文本框(文本框
名称为tName)中输入要查询的科室名，然后按下"查询"按钮，即运行一个名为"qT4"的查
询。"qT4"查询的功能是显示所查科室的"科室ID"和"预约日期"。请设计"qT4"查询。【设计
查询】---增加“科室ID”“预约日期”“科室名称”，在科室名称条件行输入[forms]！
[fQuery]！[tName]，并取消该行显示
2.在窗体中还有"修改"和"保存"两个命令按钮，名称分别为"CmdEdit"和" CmdSave
"，其中"保存"命令按钮在初始状态为不可用，当单击"修改按钮后，"保存"按钮变为可用。
现已编写了部分VBA代码，请按照上述要求将VBA代码补充完整。
d=true
1.创建一个查询，查找并显示单价高于平均单价的图书"书名"和"出版社名称"等字段内
容，所建查询名为"qT1"。>(select Avg([单价]) from [tBook])
1. 将窗体"fTest"中标题为"Button1"的命令按钮改为"按钮"，同时将其设置为灰色无
效状态。修改标题为“按钮”，【数据】---【可用—否】
2. 将学生"入校时间"字段的默认值设置为本年度的一月一日(规定：本年度年号必须用
函数获取)。【默认值】--- DateSerial((Year(Date())),1,1)
3. 创建一个查询，查找没有任何选课信息的学生，并显示其"学号"和"姓名"两个字段
的内容，将查询命名为"qT3"。【设计视图】---增添“学号”、“姓名”、“选修课程”，“选修
课程”条件行输入is null ,然后取消选修课程显示。
4. 设置报表"rEmp"，使其按照"聘用时间"字段升序排列并输出；将报表页面页脚区内
名为"tPage"的文本框控件设置为系统的日期。【视图】---【排序与分组】--升序;"tPage"
控件来源为 date（）
1.将考生文件夹下""数据库文件中的表对象"tTest"链接到""
数据库文件中，要求链接表对象重命名为tTemp：打开""数据库文件---【导
入】--【获取外部数据】---【链接表】--选中"tTest"—导入后再进行重命名
1. 按"编号"字段前4位分组统计各组记录个数，并将统计结果显示在组页脚节区。计
算控件命名为"tCount"。【视图】---【排序与分组】---编号—组页眉-是，组页脚-是，前
缀字符，整个组；将【编号】移动到“编号页眉”；属性-控件来源-left([编号]，4)；在组
页脚节区添加文本框，控件来源为Count（编号）
1.将窗体对象"fEmp"中名称为"tPa"的文本框控件设置为计算控件。要求依据"党员否"
字段值显示相应内容。如果"党员否"字段值为True，显示"党员"；如果"党员否"字段值为
False，显示"非党员"。控件来源：iif（[党员否]=True,”党员”,”非党员”）
(1) 设置命令按钮bC的单击事件，使用单击该命令按钮后，CDID文本框内内容显
示颜色改为红色。要求用VBA代码实现。lor = vbRed
(4)创建一个查询，要求给出提示信息"请输入需要删除的职工姓名"，从键盘输入姓名
后，删除表对象"tTmp"中指定姓名的记录，将查询命名为"qT4"。【查询】【删除查询】---
“姓名”条件下面输入“[请输入需要删除的职工的姓名：]”---【查询】---【运行】
(2)设计报表"rEmp"的主体节区内"tOpt"复选框控件依据报表记录源的"性别"字段和"
年龄"字段的值来显示状态信息：性别为"男"且年龄小于20时显示为选中的打钩状态，否则
显示为不选中的空白状态。控件来源：iif（[tSex]=”男”And [tAvg]<20,”1”,”0”）
1.窗体加载时将考生文件夹下的图片文件""设置为窗体"fEmp"的背景。窗体
"加载"事件的部分代码已提供，请补充完整。要求背景图片文件当前路径必须用
获得。 e ＝ & ""
(5)设置"规格"字段的输入掩码为9位字母、数字和字符的组合。其中，前3位只能是
数字，第4位为大写字母"V"，第5位为字符"－"，最后一位为大写字母"W"，其他位为数
字。
输入掩码：000V-aaaW
1.表中，学生"李强"的家长身份证号为"112370"，表示李强为在校学
生。由于在tStud表中身份证号"112370"对应的学生姓名是"李永飞"，表
示李强的家长是李永飞，而李永飞是本校校友。
(2)创建一个查询，要求按照身份证号码找出所有学生家长是本校校友的学生记录。输
出学生身份证号、姓名及家长身份证号3列内容，标题显示为"身份证号"、"姓名"和"家长
身份证号"，将查询命名为"qT2"。【新建】--【查找不匹配查询】--增添字段:"身份证号"、
"姓名"和"家长身份证号"；在“家长身份证号”条件输入 in(select[身份证
号]From[tStud])
(3)设置"联系人"表按照联系人姓名升序排列，单元格效果为"凸起"。
【数据表视图】---【格式】---【数据表】--【单元格效果设为凸起】
1.根据以下窗体功能要求，对已给的命令按钮事件过程进行补充和完善。在"fEmp"窗
体上单击"输出"命令按钮(名为"btnP")，弹出一输入对话框，其提示文本为"请输入大于0
的整数值"。
输入1时，相关代码关闭窗体(或程序)。
输入2时，相关代码实现预览输出报表对象"rEmp"。
输入>＝3时，相关代码调用宏对象"mEmp"以打开数据表"tEmp"。
Case >=3; port "rEmp";
1."fEmp"窗体上单击"输出"命令按钮(名为"btnP")，实现以下功能：计算Fibonacci
数列第19项的值，将结果显示在窗体上名为"tData"的文本框内并输出到外部文件保存；单
击"打开表"命令按钮(名为"btnQ")，调用宏对象"mEmp"以打开数据表"tEmp"。
Fibonacci数列：
F
1
＝1 n＝1
F
2
＝1 n＝2
F
n
＝F
n－1
＋F
n－2
n>＝3
调试完毕后，必须点击"输出"命令按钮生成外部文件，才能得分。
试根据上述功能要求，对已给的命令按钮事件进行补充和完善。
Dim f(19) As Integer；f(i) = f(i - 1) + f(i - 2)；tData = f(19)
1.在窗体"fEmp"的"加载"事件中设置标签"bTitle"以红色文本显示；单击"预览"按钮
(名为"bt1")或"打印"按钮(名为"bt2")，事件过程传递参数调用同一个用户自定义代码
(mdPnt)过程，实现报表预览或打印输出；单击"退出"按钮(名为"bt3")，调用设计好的宏
"mEmp"以关闭窗体。
(3)【操作步骤】
步骤1：用设计视图打开窗体"fEmp"，单击工具栏中的"生成器"按钮，选择"代码生
成器"，进入编码环境。
步骤2：在空行内分别输入以下代码：
'*****Add1*****"
lor = vbRed
'*****Add1*****"
'*****Add2*****"
mdPnt (acViewPreview)
'*****Add2*****"
**Add3***mdPnt (acViewNormal)