2014-6模拟1

基本操作（20分）

考生文件夹下有一个Sample1.mdb数据库，已有“学生”表。请按以下要求完成相关操作：

1、在“学生”表中，在“班级编号”字段后面插入“综合测评”字段，数据类型为“整型”，有效性规则设置为大于等于零，小于等于99。

2、在“学生”表中，将已有三位学生的“综合测评”字段值分别设置为93、82、86；另外再增加两条记录，内容分别是（201131, 张立业, A1101，89）和（201132，王爱民，E9901，91）。 略… 3、将考生文件夹下文本文件Class.txt导入到当前数据库中，在导入文本向导对话框中选择“第一行包含字段名称”，以“班级编号”为主键，保存为“班级”表，其余选择默认操作。

关闭表，选菜单“文件-获取外部数据-导入…”，在弹出的“导入”表中，“查找范围”选K盘考号文件夹，文件类形选“文本文件”，双击要导入的文字，按题目要求设置导入的文本，如图：

K盘考号文件夹 文件类型选“文本

4、在“班级”表中，将“班级编号”字段大小改成5，将“专业”字段大小改成20，并设置为必填字段。

5、以”班级“为主表，“学生”为子表，“班级编号”为关联字段，建立一对多的关系，在编辑关系对话框选中“实施参照完整性”。

简单应用（30分）

考生文件夹下有一个Sample2.mdb数据库，已经设计“成绩”表、 “课程”表和“学生”表。创建并运行以下查询:

1、创建一个名为“SQ1”的选择查询，依次显示“姓名”、“课程名称”、“课程性质”、“专业”和“成绩”等五个字段，按“课程性质”升序排列，课程性质相同时按“专业”升序排列，专业相同时按“成绩”降序排列；

2、创建一个名为“SQ2”的总计查询，依次显示“学号”、“姓名”、“总成绩”等三个字段，其中“总成绩”为该学生所有课程“成绩”字段的总和，并按“总成绩”降序排列；

3、创建一个名为“SQ3”的交叉表查询，以“课程名称”为行标题、“专业”为列标题，交叉点统计各专业学生选修课程人数；

4、创建一个名为“SQ4”的生成表查询，将成绩小于60分的学生考试信息存入“补考名单”表中，新表包括“学号”、“姓名”、“课程名称”和“成绩”等四个字段，按“成绩”降序排列。

按下图创建生成表查询，保存后点运行按钮“！”

5、创建一个名为“SQ5”的SQL查询，实现将“补考名单”表中成绩小于45分的记录删除。

先按下图建删除查询，再切换到SQL视图，复制里面的代码，关闭后重新建查询，把代码粘贴，保存为SQ5后按运行按钮“！”

综合应用（30分）

考生文件夹下有一个Sample3.mdb数据库，已经设计“学生” 表、“课程”表、“成绩” 表、“课程信息”窗体和宏Micro。请按以下要求完成相关操作：

1、创建一个以“学生”表为数据源的报表，报表的名称为“学生信息”，报表按“班级”字段分组，“学号”字段升序排列；

切换到“报表”对象下，双击“报表向导”，在向导窗口中选“学生” 表，并选全部字段，单击“下一步”，按题目要求逐步设置，如图：

2、在“课程信息”的窗体页眉节中添加一个标签控件，标题为“课程基本信息”，字号大小为14，字体为“隶书”；

单击“工具箱”中的“标签”，在窗体页眉处拖一个框，输入“课程基本信息”，单击“工具箱”中的“选中对象”，选中文字，在工具栏中设置为隶书，14号，如图

3、在“课程信息” 窗体的主体节中添加一个文本框控件，名称为KCH，相应标签的标题为“课程号”，该文本框显示的内容与“课程”表的“课程号”字段绑定； 在工具箱中选“文本框”，在窗体的主体拖一个文本框，在属性窗口中改文字框的名称为KCH，控件来源为课程号，改标签文字为课程号

4、在“课程信息”的窗体页脚节中添加一个命令按钮控件，标题为“打开”，单击事件为运行宏Micro。

在工具箱中选“命令按钮”，在窗体页脚下面拖出一个按钮，改按钮文字为“打开”，选中按钮，在属性窗口中设置事件单击为打开宏Micro

程序设计（20分）

考生文件夹下有一个Sample4.mdb数据库，已经设计“判断闰年”窗体。窗体样式如下图所示。

请按以下要求设计相关程序：

1、在txtIn文本框中输入一个四位年份，单击“判断”按钮，判断输入的年份是否是闰年。如果是闰年，在txtOut文本框中显示“是闰年”，否则显示“不是闰年”； 提示：闰年是指能被4整除但不能被100整除或者能被400整除的年份

打开窗体，切换到设计视图，选中“判断”按钮，在属性窗口中选“事件”标签，在“单击”一栏的事件过程编辑窗口中输入以下代码： Private Sub btnC_Click() Dim y As Integer y = txtIn

If ((y Mod 4 = 0) And (y Mod 100 <> 0)) Or (y Mod 400 = 0) Then txtOut = \是闰年\Else

txtOut = \不是闰年\End If End Sub

2、单击“清除”按钮，将txtIn和txtOut文本框清空； 选中“清除”按钮，在事件过程的窗口中输入： Private Sub BtnS_Click() txtIn = \txtOut = \End Sub

3、单击“退出”按钮，退出Access。 Private Sub BtnS_Click() quit End Sub

注意：输入完程序后，切换到窗体视图，按题目图示要求输入2013，单击“判断”按钮，看得到的结果是否与题目中的图示结果一样，再单击“清除”按钮，“退出”按钮，验证功能。

本文来源：https://www.bwwdw.com/article/alga.html