a(m,n)=m*n Next n Next m
MsgBox a(1,1)+a(3,3)+a(5,5) +a(7,7)+a(9,9)
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果是 A)35 B)32 C)29 D)165 59. 在窗体中添加一个命令按钮（名称为Command1），然后编写如下代码：
Private Sub Command1_Click( ) A=85
If A>60 Then i=1 If A>70 Then i=2 If A>80 Then i=3 If A>90 Then i=4 MsgBox i
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果是 A)1 B)2 C)3 D)4 60. 下面显示的是查询设计视图的“设计网格”部分。
从所显示的内容中可以判断出该查询要查找的是 。 A）性别为“女”并且 1980 年以前参加工作的记录 B）性别为“女”并且 1980 年以后参加工作的记录 C）性别为“女”或者 1980 年以前参加工作的记录 D）性别为“女”或者 1980 年 三、填空题（每题1分，共10分）
1. VBA中的控制结构包括顺序结构、分支结构和_【1】_结构。 2. 数据库系统的核心是_【2】_。
3. 函数Now( )返回值的含义是_【3】_。
4. 在数据库中能够唯一地标识一个元组的属性或属性的组合称为_【4】_。 5. 在Access中，表间的关系有“_【5】_”、“一对多”及“多对多”。 6. 窗体中的数据来源主要包括表和_【6】_ 。
7. 如果要将某表中的若干记录删除，应该创建_【7】_查询。 8. 数据模型的组成要素包括数据结构、数据操作和_【8】_。
9. 使用窗体的Click事件在窗体输出1～100之间能同时被5或7整除的整数，请填空。
Private Sub Form_Click() Dim i As Integer Dim Sum As Integer For i = 1 To 100
46
If _ 【9】_Then Sum = Sum + I MsgBox I End If Next I MsgBox \ End Sub
10.在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click( ) Dim x As Integer, y As Integer x=12: y=32 Call p(x,y) MsgBox x*y End Sub Public Sub p(n As Integer,ByVal m As Integer) n=n Mod 10 m=m Mod 10 End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为_【10四、应用题（共6小题，共40分）
1. 写出下列关系运算的结果。(每小题2分，共10分)
设有关系R、S如下表所示，计算：
A B C B C D 1 2 3 2 3 1 1 3 2 1 2 3 3 1 2 1 3 2 2 1 3 3 1 2 关系R
关系S
（1）?B,D(S) （2）? C =”3”(S) （3）RS
（4）?A,B(?C=”2”(R)) （5）?A (R)×?B=”1”(S)
2. 写出下列VBA表达式的值(每小题1分，共5分) (1) 7mod3 (2) Int（3.33） (3) Len（Str$（1.23）＋Space（5）） (4) Asc(Chr(20))
(5) year(#2010-1-13#)
3. 编写一个公共的子过程Sub1，要求：通过键盘输入一个整数X，如果是偶数输出否则输出“Odd”。（5分）
4. 下列前两个小题的每条SQL查询语句写出相应的功能，后三小题的每种功能写出相应的
47
_。 “Even”;】SQL查询语句。（每小题2分，共10分）
在名称为教学库的数据库中包含有学生、课程和选课三个表，它们的定义分别为： 学生(学生编号 char(7),姓名 char(6),性别 char(2),出生日期 datetime, 专业 char(10),年级 int)
课程(课程号 char(4),课程名称 char(10),学分 single) 选课(学生编号 char(7),课程号 char(4),成绩 single)
(1) select *
from 课程
where not 课程号 in(select 课程号 from 选课
where 课程.课程号=选课 )
(2) select 专业,性别,count(*) as 人数 from 学生
group by 专业,性别 order by 专业
(3) 显示姓“张”的全部男学生的姓名、专业和年级。(4) 在学生表中增加一个“简历”字段。(5) 把学生表中所有学生的年级改为5. 在教学库中创建一个查询视图，显示每位学生的学号、姓名、专业、年级（表的结构见应用题的第4题）。命名为学生查询。写出操作步骤。6. 在教学库中设计一个学生成绩汇总报表（表的结构见应用题的第容显示学生编号、姓名、课程名称、学分和成绩，并将每位同学的平均成绩显示出来。报表页眉显示：华南农业大学的校徽和“学生选课成绩表”名、课程名称、学分、成绩等列标题。页面页脚左边显示日期，右边显示第其中i是当前的页码，n是总的页数。报表页脚显示所有学生的总平均分。写出操作步骤。（5分）
.课程号 3。
（5分）。报表页面页眉显示：学生编号、姓48
4题），报表的主体内i/共n页，
页实验补充内容（学生信息管理系统）
一、查询部分：
1、 显示每位学生的学号、姓名、学院名称、系名称、班级名称。命名为学生查询1。 2、 显示每位1987年出生的女学生的学号、姓名、学院名称、系名称、班级名称。命名为
学生查询2。
3、 分别统计男生和女生的人数。
4、 显示每门课程的课程名、学分、平均分。
5、 建立一个查询，按照学生的学号和课程号查询学生的成绩。
6、 使用生成表查询方法，将籍贯为广东省的学生的基本信息存储到一个新表“广东学生”
中。
7、 建立一个追加查询，中。
二、SQL语句
1 建立一个Student（所在系）五个属性组成。其中学号不能为空，值是唯一的，并且姓名取值也唯一。2 建立一个SC （学生选课）表，它由学号(Sno, Cno)为主码。）3. 查询所有姓刘的学生的学号与姓名及其出生年份。4. 查询全体学生的姓名、学号、班级名称，学院名称。5. 查询信息学院全体学生的学号、姓名、每门课程的成绩。6. 查所有年龄在207. 查考试成绩有不及格的学生的学号和姓名。有多门课程不及格的学生，学号和姓名只显示一次。
8. 查信息学院和工程学院学生的姓名和性别。9. 查询选修了“数据库应用”课程的学生的学号及其成绩，查询结果按分数的降序排列10. 查询选修了“数据库应用”课程的学生人数11. 查询每个学生及其选修的课程名其及成绩。三、窗体
1.以“学生”和 “选课成绩”表为数据源，创建嵌入式的主2.以“教师”表为数据源，创建计算各系不同职称人数的数据透视表窗体，窗体名为教师。3.以“教师”表为数据源，计各系不同职称教师的人数”四、报表
1. 设计一个学生成绩汇总报表，报表的主体内容显示学生编号、成绩，并将每位同学的平均成绩显示出来。报表页眉显示：华南农业大学的校徽和课成绩表”。报表页面页眉显示：学生编号、姓名、课程名称、学分、成绩等列标题。页面页脚左边显示日期，右边显示第脚显示所有学生的总平均分。 80-90分之间的学生添加到已建立的Sno（学号）、Sname（姓名）Sno、课程号
统计并显示各系不同职称的人数。。 i页/共n页，其中
49
、Ssex（性别）Cno，修课成绩 /子窗体。i是当前的页码， “广东学生”、Sage（年龄）Grade组成，其中
图表名称为“学生选n是总的页数。报表页表
Sdept “统将选课成绩在表，它由、
岁以下的学生姓名及其年龄。
创建图表窗体，姓名、课程名称、学分和2. 设计如下图所示的亚运会志愿者的标签。五、 宏时，关闭“系统登录”窗体，显示“欢迎”消息框。如果输入的用户名或口令不正确，则显示“密码不正确！文本框。2. 创建一个宏，使其能打开“学生”表，将所建宏命名为“打开表”情况”窗体，进行如下设置：将窗体页角设置为１距上边０.宏和退出，所运行的宏名为“打开表”
1.创建“系统登录”窗体，当输入了正确的用户名“scau”和正确的口令”消息框，将用户名和口令两个文本框清空，焦点移回“用户名”
。创建一个“查看学生.５厘米，在距窗体页脚左边５，按钮上显示文本分别为“打开表”和“退出”50
123456.５厘米、。
“”
４厘米处依次放置两个命令按钮，命令按钮的宽度均为２厘米，功能分别是运行