整理过的Access《数据库基础及应用》综合练习题Word格式文档下载.docx
《整理过的Access《数据库基础及应用》综合练习题Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《整理过的Access《数据库基础及应用》综合练习题Word格式文档下载.docx（17页珍藏版）》请在冰豆网上搜索。
t=xMod12
A.1B.2C.3D.4
第9题:
在VBA中，声明函数过程的关键字是_______。
A．DimB．ConstC．FunctionD．Sub
第10题:
对VBA中的逻辑值进行算术运算时，True值被当做-1，False当做
_______。
A．1B．2C．0D．3
第11题:
在VBA中，类型说明符#表示的数据类型是______。
A．整型B．长整型C．单精度型D．双精度
第12题:
下列语句中，定义窗体的加载事件过程的头语句是______。
A．PrivateSubForm_Chang（）B．PrivateSubForm__LostFocus（）
C．PrivateSubForm_Load（）D．PrivateSubForm_Open（）
第13题:
现有一个已经建好的窗体，窗体中有一个命令按钮，单击此按钮，将
打开“产品数量统计”报表，如果采用VBA代码完成，下面语句正确的
是______。
A．Docmd.OpenForm"
产品数量统计"
B．Docmd.OpenView"
C．Docmd.OpenTable"
D．Docmd.OpenReport"
第14题:
表达式IIf（7Mod5>
3,60,IIf（2^3>
28,80,100））的运算结果是______。
A．60B．80C．100D．160
第15题:
在VBA中，变量声明语句“Dima!
bASinteger”中的变量a的
类型是______。
A．整型B．单精度型C．长整型D．变体型
第16题:
在VBA中，“Dima（3,3）ASBoolean”语句定义了一个数组，该数
组中的全部元素都初始化为______。
A．TrueB．FalseC．-1D．1
第17题:
在VBA某个模块中，有如下声明语句
Dima（6,10）ASinteger
那么数组a（6,10）总共有______个元素。
A．16B．60C．70D．77
第18题:
以下VBA程序段运行后，变量j的值是______。
k=10
j=0
Do
k=k+10
j=j+1
LoopUntilk>
20
A．1B．2C．4D．10
第19题:
y=89
j="
不及格"
DoWhiley>
60
j=IIf（y<
70,"
及格"
IIf（y<
90,"
良好"
"
优秀"
））
y=y-50
Loop
A．"
B．"
C．"
D．"
第20题:
以下VBA代码程序运行结束后，变量a的值是______。
a=0
b=101
b=b-20
a=a+b
LoopWhileb>
80
A．60B．140C．142D．160
第21题:
以下VBA代码程序运行结束后，数组元素a（12）的值是______。
Dima（12）AsLong,iAsLong
i=0
DoUntili>
12
a（i）=i^2-i
i=i+1
A．1B．128C．132D．144
第22题:
假定有如下的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
第23题:
在窗体上添加一个命令按钮（名为cmd2）,然后编写如下事件过程：
PrivateSubcmd2_Click（）
DimpiAsSingle,nAsInteger
pi=3.14
n=Len（Str（pi）&
Space
（2）&
"
是本字符串长度"
）
MsgBoxn
A．11B．12C．13D．14
第24题:
在窗体上添加一个命令按钮（名为cmd13）,然后编写如下事件过程：
PrivateSubcmd13_Click（）
DimxAsString,yAsString
x="
龙洞华美路中山大学新华学院法学院"
y="
2006级法学专业学生"
MsgBoxMid（x,6,4）&
Right（x,3）&
Left（y,9）
A．龙洞华美路中山大学新华学院法学院2006级法学专业学生
B．中山大学新华学院法学院2006级法学专业学生
C．中山大学法学院2006级法学专业学生
D．中山大学法学院2006级法学专业
第25题:
下列程序段,建立如图所示的数组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
第26题:
（多选题,1分）
下面______是合法的变量名。
A．STR-NAMEB．CaseC．FOR_99D．abc2006E．6A
CD
第27题:
在VBA中，对于Sub（或Function）过程中的每一个形参,可用于声
明其参数传递方式的关键字包括_______。
A．ByMeBB．ByValC．ByRefD．ByVBAE．BySub
BC
第28题:
在窗体上添加一个命令按钮（名为cmd），然后编写如下事件过程。
单击该命令按钮，便将数组p（6,8）中各个元素都赋予其对应的两个下
标值平方之和，请完善程序。
PrivateSubcmd_Click（）
Dimp（6,8）Asinteger,iAsinteger,jAsinteger
Fori=0To6
Forj=0To8
p（i,j）=_________'
Nexti
A.（i+j）^2B.i^2+jC.i+j^2D.i^2+j^2
第29题:
在窗体上已经建立1个文本框控件txt1和1个命令按钮控件cmd1。
请完
善程序，使之完成以下操作：
程序运行时，文本框上显示“VBA程序设计”，命令按钮的标题上显示“隐藏”；
单击命令按钮时文本框消失；
单击窗体时显示出文本框。
PrivateSubcmd1_Clic（）
txt1.Visible=False
PrivateSubForm_Click（）
txt1._________=True'
PrivateSubForm_Load（）
txt1.Value="
VBA程序设计"
txt1.Visible=True
cmd1.Caption="
隐藏"
A.EnableB.ValueC.VisibleD.Caption
第30题:
在窗体上已经建立1个标签控件lab1和1个命令按钮控件cmd1。
请完善程序，使之完成以下操作：
打开窗体后单击命令按钮，则通过输入对话框分别输入3个数值，然
后求出其中最大的数，并将最大的数显示在标签lab1中。
PrivateSubcmd1_Click（）
DimaAsSingle,bAsSingle,cAsSingle
DimkAsSingle
a=Val（InputBox（"
输入第一个数"
b=Val（InputBox（"
输入第二个数"
c=Val（InputBox（"
输入第三个数"
Ifa<
bThen
k=b
k=a
Ifk<
cThen
k=c
____________'
A.lab1.Value=a
B.lab1.Value=b
C.lab1.Caption=c
D.lab1.Caption=k
第31题:
（填空题,2分）
7^2Mod11+7\4*9/5Mod6
上述表达式的值是_______。
<
空1>
____________________
Lower（Trim（GetFill
（1）））="
6"
第32题:
通过编程求出结果。
把9786表示为两个加数之和，使其中一个加数能被91整除，而另一个
加数能被87整除。
请求出：
在这两个加数中，能被91整除的加数等于多少？
4914"
第33题:
求S=1/5+1/10+1/15+1/20+1/25+…+1/（5*n）+…的前n项之和，
当S第一次大于或等于1.4时终止计算，此时项数n为_____。
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方法）
方法：
打开窗体、报表、查询和表等的操作方法（命令及其格式、参数）
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（"
）
【例】
下列表达式中，能正确表示条件"
x和y都是奇数"
的是C
A）x
Mod
2=0
And
y
B）x
Or
C）x
2=1
D）x
在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：
C）Z＝X：
X＝Y：
Y＝Z
D）Z＝X：
W＝Y：
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
k<
=5
f=f0+f1
f0=f1
f1=f
k=k+1
MsgBox
f="
&
f
End
【例】2.
有如下事件程序，运行该程序后输出结果是（
x=1，
y=0
Command33_Click（）
x
As
Integer，y
Integer
x=1：
Until
y<
=25
y=y
+
*
x=x
x="
，
y="
Sub
【例】3.
下列程序的功能是计算Sum=1+（1+3）+（1+
升级会员 