注意：不允许修改报表对象“rStud”中已有的控件和属性；不允许修改 表对象“tStud”。不允许修改窗体对象“fSys”中未涉及的控件、属性和任 何VBA代码；只允许在“*****Add*****”与“*****Add*****”之间的空行内 补充一条代码语句、不允许增删和修改其它位置已存在的语句。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第29套：

在考生文件夹下，存在一个数据库文件“samp1.accdb”。在数据库文件中 已经建立了两个表对象“tStock”和“tQuota”。试按以下操作要求，完成各 种操作：

（像48-1）

（1）在“tStock”表的“产品名称”和“规格”字段之间增加“单位”字段， 该字段的数据类型为文本，字段大小为1；将新添加到“tStock”表中的 记录的“单位”字段默认值设置为“只”。

（2）设置“tStock”表的“规格”字段的输入掩码属性，输入掩码的格式为： “220V- W”。其中，“-”与“W”之间为两位，且只能输入0～9之间 的数字。

（3）设置“tQuota”表的有效性规则为：产品最高储备是最低储备的10倍或 10倍以上；对应有效性文本为“请合理设置产品最高最低储备值”。 （4）分析产品的库存金额（库存金额=出厂价*库存数量），查出最大值和最小 值金额产品，在其“说明”字段中输入“***”标记字符。

（5）将“tQuota”表的单元格效果改为“凹陷”，字体改为“黑体” （6）建立“tQuota”表与“tStock”表之间的关系，并实施参照完整性。

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好表对 象“tQuota”和“tStock”，试按以下要求完成设计：

48-2

（1）创建一个查询，查找库存数量距离对应最高和最低储备中间值最近的产品 信息，输出其“产品名称”、“规格”、“库存数量”、“最高储备”和 “最低储备”等字段内容，查询名为qT1。

（2）创建一个查询，计算每类产品库存金额合计，并显示“产品名称”和“库 存金额”两列数据。所建查询名为“qT2”。 说明：库存金额=单价×库存数量。

（3）创建一个查询，查找单价低于平均单价的产品，并按“产品名称”升序和 “单价”降序显示“产品名称”、“规格”、“单价”和“库存数量”等 字段内容。所建查询名为“qT3”。

（4）创建一个查询，运行该查询后可将“tStock”表中所有记录的“单位”字 段值设为“只”。所建查询名为“qT4”。要求创建此查询后，运行该查 询，并查看运行结果。

********************************************************************** 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对象 “tBorrow”、“tReader”和“tBook”，查询对象“qT”，窗体对象“fReader ” 和报表对象“rReader”。请在此基础上按照以下要求补充设 计：

67-3

（1）在报表“rReader”的报表页眉节区内添加一个标签控件，其名称为“ bTitle”，标题显示为“高级读者借阅情况”，字体名称为“黑体”，字 体大小为22，同时将其安排在距上边0.5厘米、距左侧2厘米的位置。

（2）设计报表“rReader”的主体节区为“tSex”文本框控件设置数据来源显示 性别信息，并要求按“借书日期”字段升序显示，“借书日期”的显示格 式为“长日期”的形式。

（3）设置窗体“bList”按钮的标题为“高级读者信息”；单击该按钮，其事件 代码预览方式打开“rReader”报表，条件输出高级读者（职称为“教授” 和“副教授”的读者）借阅信息。

（4）窗体加载时设置窗体标题属性为系统当前日期，设置“fTitle”标签的标 题为“读者借阅信息”。

注意：不允许修改窗体对象“fReader”和报表对象“rReader”中未涉及

的控件和属性；不允许修改表对象“tBorrow”、“tReader”和“ tBook”及查询对象“qT”的内容；

程序代码只允许在“*****Add*****”与“*****Add*****”之间的 空行内补充一行语句、完成设计，不允许增删和修改其它位置已存 在的语句。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第30套：

在考生文件夹下，“samp1.accdb”数据库文件中已建立两个表对象（名为 “员工表”和“部门表”）和一个窗体对象（名为“fTest”）及一个宏对象（ 名为“mTest”）。试按以下要求，按顺序完成对象的各种操作：

（像20-1）

（1）删除表对象“员工表”的照片字段。

（2）设置表对象“员工表”的年龄字段有效性规则为：非空且不高于60；同时 设置相应有效性文本为“请输入合适年龄”。

（3）设置表对象“员工表”的聘用时间字段的默认值为：系统当前日期当年当 月的最后一天。

（4）查找出“员工表”的各个部门中年龄最小的男员工和女员工，在其对应简 历字段值后追加“***”标记字符。

（5）设置相关属性，实现窗体对象（名为“fTest”）上的记录数据不允许删 除的操作。

（6）删除表对象“员工表”和“部门表”之间已建立的错误表间关系，重新建 立正确关系；将宏对象（名为“mTest”）重命名为可自动运行的宏。 ********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好表 对象“tQuota”和“tStock”，试按以下要求完成设计：

（59-2）

（1）创建一个查询，按照产品名称统计库存总数超过10万箱的产品总库存 数量，并显示“产品名称”和“库存数量合计”。所建查询名为“ qT1”。

（2）创建一个查询，查找各类产品中平均单价最高的产品，并显示其“产 品名称”。所建查询名为“qT2”。

（3）创建一个查询，查找“最高储备”和“最低储备”相差值低于所有产 品最高最低储备差平均值的产品，显示其“产品名称”和“规格”两 个字段内容。所建查询名为“qT3”。

（4）创建一个查询，运行该查询后生成一张新表，表名为“tNew”，表结 构为“产品ID”、“产品名称”、“单价”、“库存数量”、“最高 储备”和“最低储备”等六个字段，表内容为库存数高于最高储备数 量或低于最低储备数量的所有产品记录。所建查询名为“qT4”。 要求：

1. 所建新表中的记录按照“产品ID”升序保存。 2. 创建此查询后，运行该查询，并查看运行结果。

********************************************************************** 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表 对象“tStud”、窗体对象“fSys”和报表对象“rStud”。请在此基础上按 照以下要求补充“fSys”窗体和“rStud”报表的设计：

59-3

（1）在“rStud”报表的报表页眉节区位置添加一个标签控件，其名称为 “bTitle”，其显示文本为“团员基本信息报表”；将报表标题栏上 的显示文本设置为“团员基本信息”；将名称为“tSex”的文本框控 件的输出内容设置为“性别”字段值。在报表页脚节区添加一个计算 控件，其名称为“tAvg”,显示学生的平均年龄。

（2）将“fSys”窗体的边框样式设置为“对话框边框”，取消窗体中的水 平和垂直滚动条、导航按钮、记录选择器、分隔线、控制框、关闭按 钮、最大化按钮和最小化按钮。

（3）将“fSys”窗体中“用户名称”（名称为“lUser”）和“用户口令

”（名称为“lPass”）两个标签上的文字颜色改为蓝色（蓝色代码 为#0072BC)、字体粗细改为“加粗”。

（4）将“fSys”窗体中名称为“tPass”的文本框控件的内容以密码形式 显示；将名称为“cmdEnter”的命令按钮从灰色状态设为可用；将 控件的Tab移动次序设置为：“tUser”→“tPass” →“cmdEnter” → “cmdQuit”。

（5）试根据以下窗体功能和报表输出要求，补充已给事件代码，并运行 调试。

在窗体中有“用户名称”和“用户密码”两个文本框，名称分别为“ tUser”和“tPass”，还有“确定”和“退出”两个命令按钮，名称分别 为“cmdEnter”和“cmdQuit”。 窗体加载时，重置窗体标题为“系统登 录”；在输入用户名称和用户密码后，单击“确定”按钮，程序将判断输 入的值是否正确，如果输入的用户名称为“cueb”，用户密码为“1234”， 则显示提示框，提示框标题为“欢迎”，显示内容为“密码输入正确，打 开报表！”，单击“确定”按钮关闭提示框后，打开“rStud”报表输出团 员学生信息；如果输入不正确，则提示框显示“密码错误！”，同时清除 “tUser”和“tPass”两个文本框中的内容，并将光标移至“tUser”文 本框中。当单击窗体上的“退出”按钮后，关闭当前窗体。

注意：不允许修改报表对象“rStud”中已有的控件和属性；不允许修 改表对象“tStud”。不允许修改窗体对象“fSys”中未涉及的控件、属性 和任何VBA代码；只允许在“*****Add*****”与“*****Add*****”之间的 空行内补充一条代码语句、不允许增删和修改其它位置已存在的语句。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第31套：

考生文件夹下存在一个数据库文件“samp1.mdb”，里面已经设计好表对象 “tStud”。请按照以下要求，完成对表的修改：

（71-1）

（1）将“年龄”字段的字段大小改为“整型”；将“简历”字段的说明设置 为“自上大学起的简历信息”；将“备注”字段删除。

（2）设置表对象的有效性规则为：学生的出生年份应早于（不含）入校年 份；同时设置相应有效性文本为“请输入合适的年龄和入校时间”。 要求：使用函数返回有关年份。

（3）设置“性别”字段的默认值为“女”；设置“性别”字段值的输入方式 为从下拉列表中选择“男”或“女”选项值。

（4）设置数据表显示的字体大小为12、行高为18，设置数据表中显示所有字 段。

（5）将学号为“20011001”学生的照片信息换成考生文件夹下的“

photo.bmp”图像文件；将姓名中的“青”改为“菁”；在党员学生的简 历文字的句号前加“，在校入党”等文字。 （6）将宏“打开表”重命名为自动执行的宏。

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.mdb”，里面已经设计好三个关 联表对象“tStud”、“tCourse” 、“tScore”和一个临时表对象“tTemp”。 试按以下要求完成设计：

（71-2）

（1）创建一个查询，按所属院系统计学生的平均年龄，字段显示标题为“院系 ”和“平均年龄”，所建查询命名为“qT1” 。 要求：平均年龄四舍五入取整处理。

（2）创建一个查询，查找上半年入学的学生，并显示“姓名”、“性别”、“ 课程名”和“成绩”等字段内容，所建查询命名为“qT2”。

（3）创建一个查询，查找没有选课的同学，并显示其“学号”和“姓名”两个 字段内容，所建查询命名为“qT3”。

（4）创建删除查询，将表对象“tTemp”中年龄值高于平均年龄（不含平均年 龄）的学生记录删除，所建查询命名为“qT4”。

**********************************************************************

考生文件夹下存在一个数据库文件“samp3.mdb”，里面已经设计好表对象 “tStud”，同时还设计出窗体对象“fStud”。请在此基础上按照以下要求补 充“fStud”窗体的设计：

（71-3）

（1）在窗体的“窗体页眉”中距左边0.4厘米、距上边1.2厘米处添加一个直线 控件，控件宽度为10.5厘米，控件命名为“tLine”；将窗体中标签控件“ lTalbel”上的文字改为“隶书”，字号改为18。

（2）打开窗体时，窗体标题自动显示为标签控件“lTalbel”的内容，并且自动 将该控件上的文字颜色改为“蓝色\，请按照VBA代码中的指示将代码补充 完整。

（3）将窗体边框改为“细边框”样式，取消窗体中的水平和垂直滚动条、记录 选择器、导航按钮和分隔线；并且只保留窗体的关闭按钮。

（4）假设“tStud”表中“学号”字段的第5位和第6位编码代表该生的专业信 息，当这两位编码为“10”时表示“信息”专业，为其他值时表示“管理 ”专业。设置窗体中名称为“tSub”文本框控件的相应属性，使其根据“ 学号”字段的第5位和第6位编码显示对应的专业名称。

（5）在窗体中有一个“退出”命令按钮，名称为“CmdQuit”,其功能为关闭“ fStud”窗体。请按照VBA代码中的指示将实现此功能的代码补充完整。 注意：不允许修改窗体对象“fStud”中未涉及的控件、属性和任何VBA代 码；不允许修改表对象“tStud”；

程序代码只允许在“*****Add*****”与“*****Add*****”之间的 空行内补充一行语句完成设计，不允许增删和修改其它位置已存在 的语句。

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第32套：

在考生文件夹下，存在一个数据库文件“samp1.mdb”。在数据库文件中已 经建立了一个表对象“学生基本情况”。试按以下操作要求，完成各种操作：

(72-1)

（1）在数据表视图中，将“学生基本情况”表中的所有字段显示出来。

（2）将“学生基本情况”表名称更改为“tStud”，并设置表的主键字段，使其 能够唯一标识表中记录；设置“身份ID”字段的相应属性，使该字段在数 据表视图中的显示标题为“身份证”。

（3）在“家长身份证号”和“语文”两字段之间增加一个字段，名称为“电 话”，类型为文本，大小为12；设置该字段输入掩码为：前四位固定为“ 010-”，后八位为数字。将“姓名”字段设置为有重复索引，且必须有 值。

（4）在“tStud”表中增加一个字段，字段名为“总成绩”，字段值为： 总成绩 = 语文 + 数学 + 外语。

计算结果的“结果类型”为“整型”，“格式”为“标准”，“小数位 数”为0。

（5）将“tStud”表拆分为两个新表，表名分别为“tStudent”和“tScore”。 其中“tStudent”表结构为：编号、身份ID，姓名，家长姓名，家长身份 证号，电话；“tScore”表结构为：编号、语文、数学、外语、总成绩。 要求：保留“tStud”表。

（6）设置“tStudent”和“tScore”表之间的关系。

********************************************************************** 考生文件夹下存在一个数据库文件“samp2.mdb”，里面已经设计好表对象 “tCourse”、“tScore”和“tStud”，试按以下要求完成设计：

（72-2）

（1）创建一个查询，查找2005年入学的党员学生选课成绩，并显示“姓名”、 “性别”、“入校时间”、“课程名”和“成绩”五列信息，所建查询命 名为“qT1” 。

要求：使用函数获取入校年份。

（2）创建一个查询，按输入的分数查找选课成绩平均值大于所输入分数的学生