数据库12-13年考试题及答案

江西财经大学12-13第一学期期末考试试卷试卷代码：03333C 授课课时：64 考试用时：110分钟课程名称：数据库应用（主干课程）适用对象：本科选课班试卷命题人：周萍试卷审核人：刘炜_____________________________________________________________________一、单项选择题（从下列各题四个备选答案中选出一个正确答案，并将其代号写在答题纸的相应位置处。

答案错选或未选者，该题不得分。

每小题1分，共10分。

）1、数据库(DB)、数据库系统(DBS)和数据库管理系统(DBMS)之间的关系是（）。

A、DBMS包括DB和DBSB、DBS包括DB和DBMSC、DB包括DBS和DBMSD、三者之间是平等的关系2、表达式（a = a+1）是（）。

A、算术表达式B、关系表达式C、赋值表达式D、非法表达式3、数据库的基本特点是（）。

A、数据结构化，数据独立性高、冗余度大、共享性高，数据统一管理和控制B、数据结构化，数据独立性高、冗余度小、共享性高，数据统一管理和控制C、数据结构化，数据独立性低、冗余度小、共享性高，数据统一管理和控制D、数据非结构化，数据独立性低、冗余度大、共享性低，数据统一管理和控制4、常量“12.56”属于（）数据类型。

A 、日期型B、双精度型C、整型D、字符型5、用二维表结构来表示实体与实体之间联系的数据模型称为（）。

A、层次模型B、网状模型C、关系模型D、表格模型6、VBA中，变量声明所使用的关键字是（）。

A、PublicB、ConstC、DimD、Int7、在以下选项中，与“Where成绩Between 75 And 85”完全等价的是（）。

A、Where 成绩>75 And 成绩<85B、Where 成绩>=75 And 成绩<=85C、Where 成绩>75 Or 成绩<85D、Where 成绩>=75 Or 成绩<=858、VBA程序编写中，为提高程序的可读性，其采取的措施是（）。

A、缩格与对齐B、缩格C、注意全半角D、前面条件均可9、在基本关系运算中，从关系中取出满足条件的记录组成新的关系的操作称为（）。

A、选择B、投影C、联接D、扫描10、关系数据库管理系统中，关系是指（）。

A、各条记录之间有一定的关系B、各个字段之间有一定关系C、一个数据库文件与另一个数据库文件之间有一定关系D、满足一定条件的二维表格二、填空（在答题纸写上题目标号，并将正确答案写在答题纸相应位置处。

答案错或未答者，该题不得分。

每空1分，共10分。

）1、关系模型的概念单一，无论实体还是实体之间的联系都是用___________表示。

2、VBA中逻辑运算符优先级由高到低排列为_______、_________和_________。

3、数据管理技术的发展经历了__________、___________、___________3个阶段。

4、两个数据表实现自然连接操作的约束条件是两个数据表间存在____________。

5、表达式(8+2*3^2 ) \ (9 / 3) - 3 mod 2的结果为____________________。

6、写出2012年12月12日12时12分12秒的日期型常量______________。

三、SQL题（在答题纸写上题目标号，并将正确答案写在答题纸相应位置处。

答案错或未答者，该题不得分。

每题5分，共30分。

）已知一个有4张表的教学管理数据库，其对应数据库模式和各个表的字段名称和数据类型如图所示。

班级表字段名称和类型学生表字段名称和类型课程表字段名称和类型成绩表的字段名称和类型试编写完成SQL语句。

1、求姓杨或姓李同学的学号、姓名、性别、出生日期和入学成绩。

2、查询未选修《微积分I》的学生的学号、姓名和入学成绩，并按学号排降序输出。

3、查询马晓明同学的成绩单，要求显示学号、姓名、课程号、课程名和成绩。

4、查询信息管理学院的学生的数据结构课程的成绩，要求显示学院、姓名、课程名和成绩。

5、查询每个学生的总学分。

要求显示姓名、总学分。

6、将学生表中所有江西籍的学生的入学成绩更新为入学成绩-600。

四、求程序运行结果题（在答题纸写上题目标号，并将正确答案写在答题纸相应位置处。

答案错或未答者，该题不得分。

每题5分，共15分。

）1、写出下列程序运行结果，也可以写出结果对应的表达式。

Private Sub Do_Test()x=0Do While x<70x=(x+2)*(x+3)n=n+1LoopDebug.Print n; xEnd Sub2、写出下列程序运行结果，也可以写出结果对应的表达式。

Public Sub For_if_test ()x=0For i=1 to 60If i/3 = int(i/3) and i/7 = int(i/7) ThenDebug.Print i;x=x+1End IfnextDebug.Print “x=”;xEnd Sub3、写出下列程序运行结果，也可以写出结果对应的表达式。

Public Sub Do_Do_test()y=1do while y<4x=3do while x<=6x=x+2Loopy=y+1LoopDebug.Print "x="; xDebug.Print "y="; yEnd Sub五、编程题（在答题纸写上题目标号，并将正确答案写在答题纸的相应位置处。

答案错或未答者，该题不得分。

每题6分，共24分。

）1、若工资大于等于1500元，则增加工资20%；若小于1500元且大于等于1000，则增加工资15%；若小于1000且大于等于500元，则增加工资10%；若小于500元，则增加工资5%。

使用InputBox函数由用户输入一个工资数，请计算并输出增加后的工资（若输入负数，可以使用MsgBox或Debug.Print输出“输入有误”的提示信息）。

2、有一个分数数列1/2，2/3，3/5，5/8，8/13，….，求出这个数列的前30项之和。

3、编程求300到500之间能被7整除的正整数，将这些数、总个数及这些数的和显示到立即窗口。

4、编程完成下列图形的打印。

其中第一行左侧第一个*所在列为第10列。

****************六、论述题（在答题纸写上题目标号，并将正确答案写在答题纸的相应位置处。

答案错或未答者，该题不得分。

共11分。

）（1）试列举4种以上图像化界面控件元素；（2）试给出编写面向对象程序的基本步骤；（3）简述对象的4种特性；（4）有下列图所示图形化界面，其对应的功能如下表功能实现表所示，试说明这些功能实现在哪个对象的什么事件上（事件请用英文单词说明）图：图形化界面表：功能实现表一．1b,2b,3b,4d,5c,6c,7b,8a,9a,10d二．1（关系）。

2（not,and,or）,3（人工、文件、数据库），4（公共字段），5（7），6（#2012-12-12 12:12:12#）三、SQL题试编写完成SQL语句。

1、求姓杨或姓李同学的学号、姓名、性别、出生日期和入学成绩。

Select 学号,姓名,性别,出生日期,入学成绩from 学生表where 姓名like "杨*" or 姓名like "李*"2、查询未选修《微积分I》的学生的学号、姓名和入学成绩，并按学号排降序输出。

Select 学号,姓名,入学成绩from 学生表where 学号not in (select a.学号from 学生表a,成绩表b,课程表 c where a.学号=b.学号and b.课程号=c.课程号and 课程名=" 微积分I")3、查询马晓明同学的成绩单，要求显示学号、姓名、课程号、课程名和成绩。

Select 学生表.学号,姓名, 课程表.课程号,课程名,成绩from 学生表,成绩表,课程表where 学生表.学号=成绩表.学号and 成绩表.课程号=课程表.课程号and 姓名="马晓明"4、查询信息管理学院的学生的数据结构课程的成绩，要求显示学院、姓名、课程名和成绩。

Select 学院,姓名, 课程名,成绩from 班级表,学生表,成绩表,课程表where 班级表.班号=学生表.班号and 学生表.学号=成绩表.学号and 成绩表.课程号=课程表.课程号and 课程名="数据结构" and 学院="信息管理学院"5、查询每个学生的总学分。

要求显示姓名、总学分。

Select 姓名,sum(学分) as 总学分from 学生表,成绩表,课程表where 学生表.学号=成绩表.学号and成绩表.课程号=课程表.课程号group by 姓名6、将学生表中所有江西籍的学生的入学成绩更新为入学成绩-600。

Update 学生表set入学成绩=入学成绩-600 where 籍贯like “江西*”四．1. Private Sub Do_Test7()x=0Do While x<70x=(x+2)*(x+3)n=n+1LoopDebug.Print n; xEnd Sub2 722.Public Sub For_if_test ()x=0For i=1 to 60If i/3 = int(i/3) and i/7 = int(i/7) ThenDebug.Print i;x=x+1End IfnextDebug.Print “x=”;xEnd Sub21 42 x= 23. Public Sub Do_Do_test()y=1do while y<4x=3do while x<=6x=x+2Loopy=y+1LoopDebug.Print "x="; xDebug.Print "y="; yEnd SubX=7Y=4五、编程题（在答题纸写上题目标号，并将正确答案写在答题纸的相应位置处。

答案错或未答者，该题不得分。

每题6分，共24分。

）1、若工资大于等于1500元，则增加工资20%；若小于1500元且大于等于1000，则增加工资15%；若小于1000且大于等于500元，则增加工资10%；若小于500元，则增加工资5%。

使用InputBox函数由用户输入一个工资数，请计算增加后的工资（可以使用MsgBox或Debug.Print输出“输入有误”的提示信息）。

（用select case,if…elesif等只要“分支”结构正确都得满分）Public Sub c_salary_test()Dim s As Doubles = Val(InputBox("请输入一个工资数"))If s >= 1500 Thens = s * (1 + 0.2)End IfIf s >= 1000 And s < 1500 Thens = s * (1 + 0.15)End IfIf s >= 500 And s < 1000 Thens = s * (1 + 0.1)End IfIf s < 500 And s >= 0 Thens = s * (1 + 0.05)End IfDebug.Print "S="; sIf s < 0 ThenDebug.Print ("输入有误！")End IfEnd Sub2、有一个分数数列1/2，2/3，3/5，5/8，8/13，….，求出这个数列的前30项之和。