大学计算机数据库VB期末考试复习资料-(2)
- 格式：doc
- 大小：44.00 KB
- 文档页数：4
Access复习大纲(考试时间：2016年1月14日)
总成绩构成：平时成绩占40%，期末考试占60%。按照教务处的规定，期末考试卷面不及
格者，平时成绩不计入总分
复习范围：
教材：1~9章，10-12章不考察，详细请参考实验教材二级等级考试大纲
第一章 数据库系统概述（1.3.5、1.3.6不考察)
第二章 关系数据库
关系数据模型的基本概念
集合运算：并、交、差、笛卡尔积、连接运算
关系运算：投影、选择、连接运算(除法不考察)
第四章 表的操作
第五章 数据库设计（5.4.2规范化基础、5.5、5.6、5.7不考察)
第六章 数据查询（6.5SQL查询设计不考察)
第七章 关系数据库标准语言SQL（创建索引的语句不要求）
第八章 数据库应用开发技术（菜单与工具栏不考察）
第九章 VBA（着重看实验指导书上实验八和等级考试中的VBA题目，9.3程序调试不
考察）
实验指导书：
P90三、应用题
P114三、应用题
实验八VBA程序设计
最后的二级等级考试大纲
所有实验内容
补充的样题
补充的2011年9月，2012年9月等级考试真题，
期末题型（初步计划）
一、判断题(0.5分*20=10分)
二、选择题(1分*40=40分) (说明：包含VBA程序阅读题。艺术学院不考试VBA的内容)
三、填空题(1分*10=10分)
四、应用题(40分)
1. 关系运算(2分*5=10分)
2. SQL语句(2分*5=10分) （说明：有多表查询）
3. VBA (10分) （艺术学院为简答题）
①VBA表达式写结果(1分*5=5分)
②VBA程序编写(5分)
4. 实验操作题 (10分) ：两个实验操作题。
三．程序编制。
1、输出任意两个数中的最大的数（程序1）。
程序1的代码如下：
Dim FirstNum As Integer
Dim SecoNum As Integer
FirstNum = InputBox(“请输入第一个要比较的数：”, “输入”, 1)
SecoNum = InputBox(“请输入第二个要比较的数：”, “输入”, 1)
If FirstNum > SecoNum Then
MsgBox “最大的数是” & Str(FirstNum), VbOkOnly + VbInformation, “提示”
Else
MsgBox “最大的数是” & Str(SecoNum), VbOkOnly + VbInformation, “提示”
End If
2、输出任意10个数中负数的个数、偶数的个数和奇数的个数（程序2）。
程序2的代码如下：
Dim Num(10) As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim i As Integer
For i=1 To 10
Num(i)=InputBox(“请输入任意10个数(负数、偶数、奇数)！！！”, “输入”，1)
If Num(i)<0 Then
a=a+1
Else
If Num(i) Mod 2=0 Then
b=b+1
Else
c=c+1
End If
End If
Next i
MsgBox “负数的个数为：” & Str(a) & chr(13)&chr(10) & ”偶数的个数为：”_
& Str(b) & VbCrLf & “奇数的个数为：”_
& Str(c), VbOKOnly + VbInformation, “提示”
3、求1～100的自然数和（程序3）。
程序3的代码如下：
Dim i As Integer : Dim Sum As Integer
For i=1 To 100
Sum=Sum+i
Next i
MsgBox “1到100的自然数的和为：” & Str(Sum), VbOKOnly + VbInformation, “提示”
4、求10！（程序4）。
程序4的代码如下：
Dim i As Integer : Dim M As Long : M=1
For i=1 To 10
M=M*i
Next i
MsgBox ”10的阶乘为：” & Str(M), VbOkOnly + VbInformation, “提示”
5、输出1～100自然数中被3整除的数据的个数及它们的和（程序5）。
程序5的代码如下：
Dim i As Integer : Dim S As Integer : Dim C As Integer
For i = 1 To 100
If i Mod 3 = 0 Then
S = S + i : C = C + 1
End If
Next i
MsgBox "1到100自然数中能被3整除的数的个数为：" & Str(C) & ",它们的和为：" & Str(S),
vbOKOnly + vbInformation, "提示"
6、求S的值（程序6）。S=1+(1+2)+(1+2+3)+(1+2+3+4)+…+(1+2+3+4+…+N)(N=50)。
程序6的代码如下：
Dim i As Integer : Dim j As Integer : Dim S As Integer
For i=1 To 50
For j=1 To i
S=S+j
Next j
Next i
MsgBox “S的值为：” & Str(S), VbOkOnly + VbInformation, “提示”
7、求P的值（程序7）。P=1+2!+3!+4!+5!+6!+7!+8!+9!+10!
程序7代码如下：
Dim P As Double : Dim M As Double : Dim i As Integer : M=1
For i=1 To 10
M=M*i : P=P+M
Next i
MsgBox “P的值为：” & Str(P), VbOkOnly + VbInformation, “提示”
8、求S的值（程序8）。S=1+(1/2)+(1/3)+(1/4)+…+(1/10)
程序8的代码如下：
Dim i As Integer
Dim S As Single
For i = 1 To 10
S=S+1/i
Next i
MsgBox “S的值为：” & Str(S), VbOkOnly + VbInformation, “提示”
9、输出任意10个数中超过平均值的个数（程序9）。
程序9 的代码如下：
Dim i As Integer
Dim Num(10) As Integer
Dim S As Long
Dim Aver_Num As Single, N As Integer
S = 0: N = 0
For i = 1 To 10
Num(i) = InputBox("NUM(" & Str(i) & "):")
S = S + Num(i)
Next i
Aver_Num = S / 10
For i = 1 To 10
If Num(i) > Aver_Num Then
N = N + 1
End If
Next i
MsgBox N
10、按从小到大的顺序输出任意10个数（程序10）。
程序10的代码如下：
Dim i As Integer, j As Integer, result As String
Dim Num(10) As Integer
Dim NumTemp As Integer
For i = 1 To 10
Num(i) = InputBox("请输入任意10个数！！！", "输入", 1)
Next i
For i = 1 To 10
For j = i + 1 To 10
If Num(i) > Num(j) Then
NumTemp = Num(i)
Num(i) = Num(j)
Num(j) = NumTemp
End If
Next j
Next i
For i = 1 To 10
result = result & Str(Num(i))&Space(1)
Next i
MsgBox result
