整理过的Access《数据库基础与应用》综合练习题.docx
《整理过的Access《数据库基础与应用》综合练习题.docx》由会员分享,可在线阅读,更多相关《整理过的Access《数据库基础与应用》综合练习题.docx(19页珍藏版)》请在冰豆网上搜索。
整理过的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+5)+„„+(1+3+5+