整理过的Access《数据库基础与应用》综合练习题讲解.docx
《整理过的Access《数据库基础与应用》综合练习题讲解.docx》由会员分享，可在线阅读，更多相关《整理过的Access《数据库基础与应用》综合练习题讲解.docx（22页珍藏版）》请在冰点文库上搜索。
整理过的Access《数据库基础与应用》综合练习题讲解
第1题:
（单选题,1分）
在Access2010中的VBA过程里，要运行宏可以使用DoCmd对象的______方法。
A．OpenB．RunMacroC．CloseD．Query
答案:
B
第2题:
（单选题,1分）
在宏中，OpenReport操作可用来打开指定的_______。
A．查询B．状态栏C．窗体D．报表
答案:
D
第3题:
（单选题,1分）
关于宏的执行，以下说法不正确的是_______。
A．在“导航窗格”，选择“宏”对象列表中的某个宏名并双击，
可以直接运行该宏中的第一个子宏的所有宏操作
B．在“导航窗格”，选择“宏”对象列表中的某个宏名并双击，
可以直接运行该宏中的第二个子宏的所有宏操作
C．可以在一个宏中运行另一个宏
D．在一个宏中可以含有IF逻辑块
答案:
B
第4题:
（单选题,1分）
在宏中，用于显示所有记录的宏命令是_______。
A．MsgboxAllRecordsB．ShowAllRecordsC．SetPropertyD．SaveRecords
答案:
B
第5题:
（单选题,1分）
在VBA中，表达式（5^2Mod8）>=4的值是_______。
A．TrueB．FalseC．AndD.Or
答案:
B
第6题:
（单选题,1分）
表达式IIf（23\5.5<=3Or5>=6,68,176）的结果是______。
A．5B．6C．68D．176
注意：
执行整除之前，要先把除数四舍五入。
请另外试试表达式IIf（23\5.4<=3Or5>=6,68,176）的结果。
答案:
C
第7题:
（单选题,1分）
执行下列程序段后，变量P的值是_____。
DimWAsSingle
DimPAsSingle
W=68.5
IfW<=50Then
P=W*4
Else
P=W*2
EndIf
A.68.5B.137C.205.5D.275
答案:
B
第8题:
（单选题,1分）
设x=9，执行下列程序段后，变量t的值是_____。
y=x\4+2^4
Ify<>30Thenx=x+y
t=xMod12
A.1B.2C.3D.4
答案:
C
第9题:
（单选题,1分）
在VBA中，声明函数过程的关键字是_______。
A．DimB．ConstC．FunctionD．Sub
答案:
C
第10题:
（单选题,1分）
对VBA中的逻辑值进行算术运算时，True值被当做-1，False当做
_______。
A．1B．2C．0D．3
答案:
C
第11题:
（单选题,1分）
在VBA中，类型说明符#表示的数据类型是______。
A．整型B．长整型C．单精度型D．双精度
答案:
D
第12题:
（单选题,1分）
下列语句中，定义窗体的加载事件过程的头语句是______。
A．PrivateSubForm_Chang（）B．PrivateSubForm__LostFocus（）
C．PrivateSubForm_Load（）D．PrivateSubForm_Open（）
答案:
C
第13题:
（单选题,1分）
现有一个已经建好的窗体，窗体中有一个命令按钮，单击此按钮，将
打开“产品数量统计”报表，如果采用VBA代码完成，下面语句正确的
是______。
A．Docmd.OpenForm"产品数量统计"B．Docmd.OpenView"产品数量统计"
C．Docmd.OpenTable"产品数量统计"D．Docmd.OpenReport"产品数量统计"
答案:
D
第14题:
（单选题,1分）
表达式IIf（7Mod5>3,60,IIf（2^3>28,80,100））的运算结果是______。
A．60B．80C．100D．160
答案:
C
第15题:
（单选题,1分）
在VBA中，变量声明语句“Dima!
bASinteger”中的变量a的
类型是______。
A．整型B．单精度型C．长整型D．变体型
答案:
B
第16题:
（单选题,1分）
在VBA中，“Dima（3,3）ASBoolean”语句定义了一个数组，该数
组中的全部元素都初始化为______。
A．TrueB．FalseC．-1D．1
答案:
B
第17题:
（单选题,1分）
在VBA某个模块中，有如下声明语句
Dima（6,10）ASinteger
那么数组a（6,10）总共有______个元素。
A．16B．60C．70D．77
答案:
D
第18题:
（单选题,1分）
以下VBA程序段运行后，变量j的值是______。
k=10
j=0
Do
k=k+10
j=j+1
LoopUntilk>20
A．1B．2C．4D．10
答案:
B
第19题:
（单选题,1分）
以下VBA程序段运行后，变量j的值是______。
y=89
j="不及格"
DoWhiley>60
j=IIf（y<70,"及格",IIf（y<90,"良好","优秀"））
y=y-50
Loop
A．"不及格"B．"及格"C．"良好"D．"优秀"
答案:
C
第20题:
（单选题,1分）
以下VBA代码程序运行结束后，变量a的值是______。
a=0
b=101
Do
b=b-20
a=a+b
LoopWhileb>80
A．60B．140C．142D．160
答案:
C
第21题:
（单选题,1分）
以下VBA代码程序运行结束后，数组元素a（12）的值是______。
Dima（12）AsLong,iAsLong
i=0
DoUntili>12
a（i）=i^2-i
i=i+1
Loop
A．1B．128C．132D．144
答案:
C
第22题:
（单选题,1分）
假定有如下的Function过程：
Functionppfun（xAsSingle,yAsSingle）
ppfun=x^3-y^2
EndFunction
在窗体上添加一个命令按钮（名为cmd10）,然后编写如下事件过程：
PrivateSubcmd10_Click（）
DimaAsSingle,bAsSingle
a=5
b=4
MsgBoxppfun（a,b）mod50
EndSub
打开窗体运行后，单击命令按钮，消息框中的输出内容是______。
A．50B．25C．9D．109
答案:
C
第23题:
（单选题,1分）
在窗体上添加一个命令按钮（名为cmd2）,然后编写如下事件过程：
PrivateSubcmd2_Click（）
DimpiAsSingle,nAsInteger
pi=3.14
n=Len（Str（pi）&Space
（2）&"是本字符串长度"）
MsgBoxn
EndSub
打开窗体运行后，单击命令按钮，消息框中的输出内容是______。
A．11B．12C．13D．14
答案:
D
第24题:
（单选题,1分）
在窗体上添加一个命令按钮（名为cmd13）,然后编写如下事件过程：
PrivateSubcmd13_Click（）
DimxAsString,yAsString
x="龙洞华美路中山大学新华学院法学院"
y="2006级法学专业学生"
MsgBoxMid（x,6,4）&Right（x,3）&Left（y,9）
EndSub
打开窗体运行后，单击命令按钮，消息框中的输出内容是______。
A．龙洞华美路中山大学新华学院法学院2006级法学专业学生
B．中山大学新华学院法学院2006级法学专业学生
C．中山大学法学院2006级法学专业学生
D．中山大学法学院2006级法学专业
答案:
D
第25题:
（单选题,1分）
下列程序段,建立如图所示的数组d（下标从1开始），填写所缺部分：
123456
212345
321234
432123
543212
654321
Dimd（1To6,1To6）
Forj=1To6
Fork=1To6
d（j,k）=Abs（_____）+1'选答案
Nextk
Nextj
A．jB．j-k+1C．j-kD．2*j-k
答案:
C
第26题:
（多选题,1分）
下面______是合法的变量名。
A．STR-NAMEB．CaseC．FOR_99D．abc2006E．6A
答案:
CD
第27题:
（多选题,1分）
在VBA中，对于Sub（或Function）过程中的每一个形参,可用于声
明其参数传递方式的关键字包括_______。
A．ByMeBB．ByValC．ByRefD．ByVBAE．BySub
答案:
BC
第28题:
（单选题,1分）
在窗体上添加一个命令按钮（名为cmd），然后编写如下事件过程。
单击该命令按钮，便将数组p（6,8）中各个元素都赋予其对应的两个下
标值平方之和，请完善程序。
PrivateSubcmd_Click（）
Dimp（6,8）Asinteger,iAsinteger,jAsinteger
Fori=0To6
Forj=0To8
p（i,j）=_________'选答案
Nextj
Nexti
EndSub
A.（i+j）^2B.i^2+jC.i+j^2D.i^2+j^2
答案:
D
第29题:
（单选题,1分）
在窗体上已经建立1个文本框控件txt1和1个命令按钮控件cmd1。
请完
善程序，使之完成以下操作：
程序运行时，文本框上显示“VBA程序设计”，命令按钮的标题上显示“隐藏”；
单击命令按钮时文本框消失；
单击窗体时显示出文本框。
PrivateSubcmd1_Clic（）
txt1.Visible=False
EndSub
PrivateSubForm_Click（）
txt1._________=True'选答案
EndSub
PrivateSubForm_Load（）
txt1.Value="VBA程序设计"
txt1.Visible=True
cmd1.Caption="隐藏"
EndSub
A.EnableB.ValueC.VisibleD.Caption
答案:
C
第30题:
（单选题,1分）
在窗体上已经建立1个标签控件lab1和1个命令按钮控件cmd1。
请完善程序，使之完成以下操作：
打开窗体后单击命令按钮，则通过输入对话框分别输入3个数值，然
后求出其中最大的数，并将最大的数显示在标签lab1中。
PrivateSubcmd1_Click（）
DimaAsSingle,bAsSingle,cAsSingle
DimkAsSingle
a=Val（InputBox（"输入第一个数"））
b=Val（InputBox（"输入第二个数"））
c=Val（InputBox（"输入第三个数"））
Ifak=b
Else
k=a
EndIf
Ifkk=c
EndIf
____________'选答案
EndSub
A.lab1.Value=a
B.lab1.Value=b
C.lab1.Caption=c
D.lab1.Caption=k
答案:
D
第31题:
（填空题,2分）
7^2Mod11+7\4*9/5Mod6
上述表达式的值是_______。
<空1>____________________
答案:
Lower（Trim（GetFill
（1）））="6"
第32题:
（填空题,2分）
通过编程求出结果。
把9786表示为两个加数之和，使其中一个加数能被91整除，而另一个
加数能被87整除。
请求出：
在这两个加数中，能被91整除的加数等于多少？
<空1>____________________
答案:
Lower（Trim（GetFill
（1）））="4914"
第33题:
（填空题,2分）
通过编程求出结果。
求S=1/5+1/10+1/15+1/20+1/25+…+1/（5*n）+…的前n项之和，
当S第一次大于或等于1.4时终止计算，此时项数n为_____。
<空1>____________________
答案:
Lower（Trim（GetFill
（1）））="616"
第10章 VBA程序模块设计
1．VBA的英文全名 Visual Basic for Application
2、VBA编程基础
（1）标准数据类型（P221）
数据类型定义时的字符串、类型说明符 变体数据类型
VBA数据类型中不包括字段类型中的OLE对象型和备注型
（2）常量及其类型
·类型——直接常量（数值常量、字符常量、日期/时问常量）、符号常量（需要用Const来定义）、系统常量（7个系统常量）、内部常量 ·字符常量与日期/时间常量的定界符
（3）变量
·变量的命名规则，变量的定义（声明）语句（类型说明符的应用） ·变量的类型及其作用域：
公共变量、私有（模块）变量、局部变量 ·数据库对象变量在VBA代码中的引用格式，使用Set建立控件对象的变量
（4）数组
·数组的构成与定义语句（多维数组的定义） ·数组下标及数组元素个数的确定 （5）运算符与表达式
·四类运算符：
算术运算符（标准除法、整除、Mod）、连接运算符（&和+）、比较/关系运算符、逻辑运算符 ·运算符的优先级别 （6）需熟练掌握如下标准函数：
·算术（数学）函数：
Int（）、Fix（）、Rnd（）
·字符串函数：
Instr（）、Len（）、Left（）、Right（）、Mid（）
·日期/时间函数：
Date（）、Now（）、Year（）、Month（）、Day（）、WeekDay（）、 ·类型转换函数：
Asc（）、Chr（）、Str（）、Val（） ·其它函数：
MsgBox（）、IIf（）
3、程序控制的三种基本结构
①顺序结构 ②分支/选择/条件结构（多种结构形式） ③循环结构
要求：
掌握各种语句的语法结构及其功能；能读懂和说出程序的运行流程及运行结果；会编写简单的程序。
4、数据的输入输出
InputBox（）函数、MsgBox（）函数 （换行输出 Chr（13）用法）、 Debug.Print语句 （“立即”窗口中输出）
5、过程调用
6、参数传递（阅读程序）参数的两种传递方式
·按值传递：
传值、数据“单向”传递；在形参定义时的相应子句为：
ByVal
·按地址传递：
传址、数据“双向”传递；在形参定义时的相应子句为：
ByRef
·当实参为常量或表达式时，实际为“传值”，此时不受形参的传址（ByRef）说明的影响
·系统默认的参数传递方式是：
地址传递
7、VBA的数据库编程
（1）数据库引擎及其接口
①使用DAO、ADO进行数据库编程的要点
②数据库数据访问和处理时使用的属性、方法和特殊函数 属性：
BOF、EOF
方法：
Edit（DAO）、Update、Close、Move系列方法
（2）DOCmd对象及其常用的方法
打开窗体、报表、查询和表等的操作方法（命令及其格式、参数） 关闭对象操作（用Close方法）与退出Access的操作（用Quit方法）
7、VBA的数据库编程
（1）数据库引擎及其接口
①使用DAO、ADO进行数据库编程的要点
②数据库数据访问和处理时使用的属性、方法和特殊函数 属性：
BOF、EOF
方法：
Edit（DAO）、Update、Close、Move系列方法
（2）DOCmd对象及其常用的方法
打开窗体、报表、查询和表等的操作方法（命令及其格式、参数） 关闭对象操作（用Close方法）与退出Access的操作（用Quit方法）
4、VBA程序设计
（1）编程题中第2小题为结构化编程
要求：
用VBA语句编程，并按要求输出结果（在“立即窗口”显示结果或使用MsgBox函数）
（2）编程题中第3小题为VBA的数据库编程
使用DAO或ADO访问数据库/表，对表中记录或字段值操作
【例】下列表达式计算结果为日期类型的是A
A）#2012-1-23#-#2011-2-3# B）year（#2011-2-3#）C）DateValue（"2011-2-3"）D）Len（"2011-2-3"） 【例】 下列表达式中，能正确表示条件"x和y都是奇数"的是C
A）x Mod 2=0 And y Mod 2=0 B）x Mod 2=0 Or y Mod 2=0
C）x Mod 2=1 And y Mod 2=1 D）x Mod 2=1 Or y Mod 2=1
【例】 在VBA中，能自动检查出来的错误是A
A）语法错误 B）逻辑错误 C）运行错误 D）注释错误
【例】 下列给出的选项中，非法的变量名是C
A）Sum B）Integer_2 C）Rem D）Form1
【例】 如果在被调用的过程中改变了形参变量的值，但又不影响实参变量本身，这种参数传递方式称为A
A）按值传递 B）按地址传递 C）ByRef传递 D）按形参传递
【例】 表达式"B=INT（A+0.5）"的功能是B
A）将变量A保留小数点后1位 B）将变量A四舍五入取整 C）将变量A保留小数点后5位
D）舍去变量A的小数部分
【例】VBA语句"Dim NewArray（10） as Integer"的含义是B
A）定义10个整型数构成的数组NewArray B）定义11个整型数构成的数组NewArray C）定义1个值为整型数的变量NewArray（10） D）定义1个值为10的变量NewArray
【例】 运行下列程序段，结果是B
For m=10 to 1 step 0 k=k+3 Next m
A）形成死循环 B）循环体不执行即结束循环 C）出现语法错误 D）循环体执行一次后结束循环
【例】 下列表达式计算结果为数值类型的是A
A）#5/5/2010#-#5/1/2010# B）"102">"11" C）102＝98＋4 D）#5/1/2010#＋5
【例】 要将一个数字字符串转换成对应的数值，应使用的函数是A A）Val B）Single C）Asc D）Space
【例】下列变量名中，合法的是C
A）4A B）A－1 C）ABC_1 D）private
【例】 若变量i的初值为8，则下列循环语句中循环体的执行次数为C Do While i<＝17
i＝i＋2 Loop
A）3次 B）4次 C）5次 D）6次 【例】 InputBox函数的返回值类型是B
A）数值 B）字符串 C）变体 D）视输入的数据而定
【例】下列能够交换变量X和Y值的程序段是C
A）Y＝X：
X＝Y B）Z＝X：
Y＝Z：
X＝Y
C）Z＝X：
X＝Y：
Y＝Z D）Z＝X：
W＝Y：
Y＝Z：
X＝Y
【例】 在VBA中要将数值表达式的值转换为字符串，应使用函数 str（） 。
【例】 在VBA中要判断一个字段的值是否为Null，应该使用的函数是 ISNULL 。
【例】函数表达式题目：
1. int（-2.8）+fix（2.8） 2. 10\3+-8 mod 3
3. year（#2011/12/12#）-month（#2011/10/10#）+day（#2012/1/1#）
4. left（―南京财经大学‖，2）+mid（―南京财经大学‖，3,2）+right（‖南京财经大学‖,2） 5. instr（3，“ab12abc34abc”,‖a‖,1）
6. 已知2011年12月31日是星期六，weekday（#2011/12/31#） 7. val（―-12e2abcd‖）+len（―南京财经大学‖） 8. chr（asc（―A‖）+5）
【例】1. 运行下列程序，结果是（ ） f=13
Private Sub Command32_Click（） f0=1：
fl=1：
k=1 Do While k<=5 f=f0+f1 f0=f1 f1=f k=k+1 Loop
MsgBox "f=" & f End Sub
【例】2. 有如下事件程序，运行该程序后输出结果是（ ） x=1， y=0
Private Sub Command33_Click（）
Dim x As Integer，y As Integer x=1：
y=0
Do Until y<=25 y=y + x * x x=x + 1 Loop
MsgBox "x=" & x & "， y=" & y End Sub
【例】3. 下列程序的功能是计算Sum=1+（1+3）+（1+3
升级会员 