mEmp”；不允许修改窗体对象“fEmp”和报表对象“rEmp”中未涉 及的控件和属性；已给事件过程，只允许在“*****Add*****”与 “*****Add*****”之间的空行内补充语句、完成设计，不允许增 删和修改其它位置已存在的语句。
※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※ 第09套：
在考生文件夹下，存在一个数据库文件“samp1.accdb” 、一个Excel文件 “tScore.xls”和一个图像文件“photo.bmp”。在数据库文件中已经建立了一 个表对象“tStud”。试按以下操作要求，完成各种操作：
（46-1）
（1）设置“ID”字段为主键；并设置“ID”字段的相应属性，使该字段在数据 表视图中的显示标题为“学号”；
（2）将“性别”字段的默认值属性设置为“男”，设置“入校时间”字段的相 关属性，使该字段的输入格式为“XXXX/XX/XX”，例如，2013/06/08； （3）设置“入校时间”字段的有效性规则和有效性文本。有效性规则为：输入 的入校时间必须为9月；有效性文本内容为“输入的月份有误，请重新输 入”；
（4）将学号为“20041002”学生的“照片”字段值设置为考生文件夹下的“ photo.bmp”图像文件（要求使用“由文件创建”方式）；
（5）设置“政治面目”字段的输入方式为从下拉列表中选择“团员”、“党员” 和“其他”选项值；
（6）将考生文件夹下的“tScore.xls”文件导入到“samp1.mdb”数据库文件 中，表名不变，主键为表中的“ID”字段。
********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好三个 关联表对象“tStud”、“tScore”和“tCourse”，试按以下要求完成设计：
（46-2）
（1）创建一个查询，查找年龄高于平均年龄的党员记录，并显示“姓名”、“ 性别”和“入校时间”。所建查询命名为“qT1”。
（2）创建一个查询，按输入的成绩区间查找，并显示“姓名”、“课程名”和 “成绩”。当运行该查询时，应分别显示提示信息：“最低分”和“最高 分”。所建查询命名为“qT2”。
（3）创建一个查询，统计并显示各门课程男女生的平均成绩，统计显示结果如 下图所示。所建查询命名为“qT3”。
要求：平均分结果用Round函数取整输出。
（4）创建一个查询，运行该查询后生成一个新表，表名为“tTemp”，表结构包 括“姓名”、“课程名”和“成绩”等三个字段，表内容为不及格的所有 学生记录。所建查询命名为“qT4”。要求创建此查询后，运行该查询，并 查看运行结果。
********************************************************************** 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对 象“tStud”，同时还设计出窗体对象“fStud”。请在此基础上按照以下要求补 充“fStud”窗体的设计：
（46-3）
（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套：
在考生文件夹下，存在一个数据库文件“samp1.accdb”和一个Excel文件“ tQuota.xls”。在数据库文件中已经建立了一个表对象“tStock”。试按以下操 作要求，完成各种操作：
（47—1）
（1）分析“tStock”表的字段构成，判断并设置其主键。
（2）在“tStock”表的“规格”和“出厂价”字段之间增加一个新字段，字段 名称为“单位”，数据类型为文本，字段大小为1；设置有效性规则，保 证只能输入“只”或“箱”。
（3）删除“tStock”表中的“备注”字段，并为该表的“产品名称”字段创建 查阅列表，列表中显示“灯泡”、“节能灯”和“日光灯”三个值。 （4）向“tStock”表中输入数据有如下要求：第一，“出厂价”只能输入3位 整数和2位小数（整数部分可以不足3位），第二，“单位”字段的默认值 为“只”。设置相关属性以实现这些要求。
（5）将考生文件夹下的“tQuota.xls”文件导入到“samp1.accdb”数据库文 件中，表名不变，分析该表的字段构成，判断并设置其主键；设置表的相 关属性，保证输入的“最低储备”字段值低于“最高储备”字段值，当输 入的数据违反有效性规则时，提示“最低储备值必须低于最高储备值”。 （6）建立“tQuota”表与“tStock”表之间的关系。
********************************************************************** 考生文件夹下存在一个数据库文件“samp2.mdb”，里面已经设计好表对象 “tDoctor”、“tOffice”、“tPatient”和“tSubscribe”，同时还设计出 窗体对象“fQuery”。试按以下要求完成设计：
（70-2）（52-2）
（1）创建一个查询，查找姓名为两个字的姓“王”病人的预约信息，并显示病 人的“姓名”、“年龄”、“性别”、“预约日期”、“科室名称”和“ 医生姓名”，所建查询命名为“qT1”。
（2）创建一个查询，统计星期一预约病人的平均年龄，要求输出一列内容，显 示标题为“平均年龄”，所建查询命名为“qT2”。
（3）创建一个查询，查找预约了但没有留下电话的病人，并显示“姓名”，所 建查询命名为“qT3”。
注意：病人的姓名不允许重复显示。
（4）现有一个已经建好的“fQuery”窗体，运行该窗体后，在文本框（文本框 名称为tName）中输入要查询的医生姓名，然后按下“查询”按钮，即运行 一个名为“qT4”的查询。“qT4”查询的功能是显示所查医生的“医生姓 名”和“预约人数”两列信息，其中“预约人数”值由“病人ID”字段统 计得到，请设计“qT4”查询。
********************************************************************** 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好窗体 对象“fSys”。请在此基础上按照以下要求补充“fSys”窗体的设计：
（59-3）
（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套：
在考生文件夹下，存在一个数据库文件“samp1.mdb” ，里边已经设计好了 表对象“tDoctor”、“tOffice”、“tPatient”和“tSubscribe”，同时还设 计了窗体对象“fSubscribe”。试按以下操作要求，完成各种操作：
（70-1）（（1）分析“tSubscribe”预约数据表的字段构成，判断并设置其主键。设置“ 科室ID”字段的字段大小，使其与“tOffice”表中相关字段的字段大小一 致。删除医生“专长”字段。
（2）设置“tSubscribe”表中“医生ID”字段的相关属性，使其输入的数据只 能为第1个字符为“A”，从第2个字符开始后三位只能是0～9之间的数字， 并设置该字段为必填字段。设置“预约日期”字段的有效性规则为：只能 输入系统时间以后的日期。 要求：使用函数获取系统时间。
（3）设置“tDoctor”表中“性别”字段的默认值为“男”，并设置该字段值 的输入方式为从下拉列表中选择“男”或“女”选项值。设置“年龄”字 段的有效性规则和有效性文本，有效性规则为：输入年龄必须在18岁至60 岁之间（含18岁和60岁），有效性文本内容为：“年龄应在18岁到60岁之 间”。
（4）设置“tDoctor”表的显示格式，使表的背景颜色为“褐色2”，网格线为 “黑色”。设置数据表中显示所有字段。
（5）通过相关字段建立“tDoctor”、“tOffice”、“tPatient”和“ tSubscribe”等四表之间的关系，并实施参照完整性。
（6）将窗体“fSubscribe”主体节区内文本框“tDept”和“tDoct”的控件来 源属性设置为计算控件。要求该控件可以根据窗体数据源里的“科室ID” 和“医生ID”字段值，分别从非数据源表对象“tPatient”和“tDoctor” 中检索出对应的科室名称和医生姓名并显示输出。 提示：考虑使用DLookup函数。
********************************************************************** 考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好三个关 联表对象“tStud”、“tCourse” 、“tScore”和一个空表“tTemp”。试按 以下要求完成设计：
（55-56---2）
（1）创建一个查询，统计人数在5人以上（不含5）的院系人数，字段显示标题
52-1）
为“院系号”和“人数”，所建查询命名为“qT1” 。 注意：要求按照学号来统计人数。
（2）创建一个查询，查找非“04” 院系的选课学生信息，输出其“姓名”、“ 课程名”和“成绩”三个字段内容，所建查询命名为“qT2” 。
（3）创建一个查询，查找还没有选课的学生的姓名，所建查询命名为“qT3”。 （4）创建一个查询，将前5条记录的学生信息追加到表“tTemp”的对应字段中， 所建查询命名为“qT4”。
**********************************************************************
考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对象 “tStud”、查询对象“qStud”、窗体对象“fStud”和子窗体对象“fDetail” ，同时还设计出以“qStud”为数据源的报表对象“rStud”。请在此基础上按照 以下要求补充“fStud”窗体和“rStud”报表的设计：
（57-3）
（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套：
在考生文件夹下，存在一个Excel文件“Test.xls”和一个数据库文件“ samp1.accdb”。库文件中已建立三个表对象（名为“线路”、“游客”和“团 队”）和一个窗体对象（名为“brow”）。试按以下要求，完成表和窗体的各 种操作：
（18-1）
（1）将“线路”表中的“线路ID”字段设置为主键；设置“天数”字段的有效 性规则属性，有效性规则为非空且大于0。
（2）将“团队”表中的“团队ID”字段设置为主键；追加“线路ID”新字段， 数据类型为“文本”，字段大小为8。
（3）将“游客”表中的“年龄”字段删除；添加两个字段，字段名分别为“证 件编号”和“证件类别”；“证件编号”的数据类型为“文本”，字段大 小为20；“证件类别”字段的数据类型为“文本”，字段大小为8，其值