Access《数据库基础与应用》期末综合练习题.docx
《Access《数据库基础与应用》期末综合练习题.docx》由会员分享,可在线阅读,更多相关《Access《数据库基础与应用》期末综合练习题.docx(14页珍藏版)》请在冰豆网上搜索。
Access《数据库基础与应用》期末综合练习题
Access2010《数据库基础与应用》期末综合练习题
(共有33题;满分:
36分;总时;0分钟)
第1题:
(单选题,1分)
在Access2010中的VBA过程里,要运行宏可以使用DoCmd对象的
______方法。
A.OpenB.RunMacroC.CloseD.Query
[A]选A
[B]选B
[C]选C
[D]选D
答案:
B
第2题:
(单选题,1分)
在宏中,OpenReport操作可用来打开指定的_______。
A.查询B.状态栏C.窗体D.报表
[A]选A
[B]选B
[C]选C
[D]选D
答案:
D
第3题:
(单选题,1分)
关于宏的执行,以下说法不正确的是_______。
A.在“导航窗格”,选择“宏”对象列表中的某个宏名并双击,
可以直接运行该宏中的第一个子宏的所有宏操作
B.在“导航窗格”,选择“宏”对象列表中的某个宏名并双击,
可以直接运行该宏中的第二个子宏的所有宏操作
C.可以在一个宏中运行另一个宏
D.在一个宏中可以含有IF逻辑块
[A]选A
[B]选B
[C]选C
[D]选D
答案:
B
第4题:
(单选题,1分)
在宏中,用于显示所有记录的宏命令是_______。
A.MsgboxAllRecords
B.ShowAllRecords
C.SetProperty
D.SaveRecords
[A]选A
[B]选B
[C]选C
[D]选D
答案:
B
第5题:
(单选题,1分)
在VBA中,表达式(5^2Mod8)>=4的值是_______。
A.TrueB.FalseC.AndD.Or
[A]选A
[B]选B
[C]选C
[D]选D
答案:
B
第6题:
(单选题,1分)
表达式IIf(23\5.5<=3Or5>=6,68,176)的结果是______。
A.5B.6C.68D.176
注意:
执行整除之前,要先把除数四舍五入。
请另外试试表达式IIf(23\5.4<=3Or5>=6,68,176)的结果。
[A]选A
[B]选B
[C]选C
[D]选D
答案:
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
[A]选A
[B]选B
[C]选C
[D]选D
答案:
B
第8题:
(单选题,1分)
设x=9,执行下列程序段后,变量t的值是_____。
y=x\4+2^4
Ify<>30Thenx=x+y
t=xMod12
A.1B.2C.3D.4
[A]选A
[B]选B
[C]选C
[D]选D
答案:
C
第9题:
(单选题,1分)
在VBA中,声明函数过程的关键字是_______。
A.DimB.ConstC.FunctionD.Sub
[A]选A
[B]选B
[C]选C
[D]选D
答案:
C
第10题:
(单选题,1分)
对VBA中的逻辑值进行算术运算时,True值被当做-1,False当做
_______。
A.1B.2C.0D.3
[A]选A
[B]选B
[C]选C
[D]选D
答案:
C
第11题:
(单选题,1分)
在VBA中,类型说明符#表示的数据类型是______。
A.整型B.长整型C.单精度型D.双精度
[A]选A
[B]选B
[C]选C
[D]选D
答案:
D
第12题:
(单选题,1分)
下列语句中,定义窗体的加载事件过程的头语句是______。
A.PrivateSubForm_Chang()
B.PrivateSubForm__LostFocus()
C.PrivateSubForm_Load()
D.PrivateSubForm_Open()
[A]选A
[B]选B
[C]选C
[D]选D
答案:
C
第13题:
(单选题,1分)
现有一个已经建好的窗体,窗体中有一个命令按钮,单击此按钮,将
打开“产品数量统计”报表,如果采用VBA代码完成,下面语句正确的
是______。
A.Docmd.OpenForm"产品数量统计"
B.Docmd.OpenView"产品数量统计"
C.Docmd.OpenTable"产品数量统计"
D.Docmd.OpenReport"产品数量统计"
[A]选A
[B]选B
[C]选C
[D]选D
答案:
D
第14题:
(单选题,1分)
表达式IIf(7Mod5>3,60,IIf(2^3>28,80,100))的运算结果是______。
A.60B.80C.100D.160
[A]选A
[B]选B
[C]选C
[D]选D
答案:
C
第15题:
(单选题,1分)
在VBA中,变量声明语句“Dima!
bASinteger”中的变量a的
类型是______。
A.整型B.单精度型C.长整型D.变体型
[A]选A
[B]选B
[C]选C
[D]选D
答案:
B
第16题:
(单选题,1分)
在VBA中,“Dima(3,3)ASBoolean”语句定义了一个数组,该数
组中的全部元素都初始化为______。
A.TrueB.FalseC.-1D.1
[A]选A
[B]选B
[C]选C
[D]选D
答案:
B
第17题:
(单选题,1分)
在VBA某个模块中,有如下声明语句
Dima(6,10)ASinteger
那么数组a(6,10)总共有______个元素。
A.16B.60C.70D.77
[A]选A
[B]选B
[C]选C
[D]选D
答案:
D
第18题:
(单选题,1分)
以下VBA程序段运行后,变量j的值是______。
k=10
j=0
Do
k=k+10
j=j+1
LoopUntilk>20
A.1B.2C.4D.10
[A]选A
[B]选B
[C]选C
[D]选D
答案:
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."优秀"
[A]选A
[B]选B
[C]选C
[D]选D
答案:
C
第20题:
(单选题,1分)
以下VBA代码程序运行结束后,变量a的值是______。
a=0
b=101
Do
b=b-20
a=a+b
LoopWhileb>80
A.60B.140C.142D.160
[A]选A
[B]选B
[C]选C
[D]选D
答案:
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
[A]选A
[B]选B
[C]选C
[D]选D
答案:
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
[A]选A
[B]选B
[C]选C
[D]选D
答案:
C
第23题:
(单选题,1分)
在窗体上添加一个命令按钮(名为cmd2),然后编写如下事件过程:
PrivateSubcmd2_Click()
DimpiAsSingle,nAsInteger
pi=3.14
n=Len(Str(pi)&Space
(2)&"是本字符串长度")
MsgBoxn
EndSub
打开窗体运行后,单击命令按钮,消息框中的输出内容是______。
A.11B.12C.13D.14
[A]选A
[B]选B
[C]选C
[D]选D
答案:
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级法学专业
[A]选A
[B]选B
[C]选C
[D]选D
答案:
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
[A]选A
[B]选B
[C]选C
[D]选D
答案:
C
第26题:
(多选题,1分)
下面______是合法的变量名。
A.STR-NAMEB.CaseC.FOR_99D.abc2006E.6A
[A]选A
[B]选B
[C]选C
[D]选D
[E]选E
答案:
CD
第27题:
(多选题,1分)
在VBA中,对于Sub(或Function)过程中的每一个形参,可用于声
明其参数传递方式的关键字包括_______。
A.ByMe
B.ByVal
C.ByRef
D.ByVBA
E.BySub
[A]选A
[B]选B
[C]选C
[D]选D
[E]选E
答案:
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
[A]选A
[B]选B
[C]选C
[D]选D
答案:
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
[A]选A
[B]选B
[C]选C
[D]选D
答案:
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
[A]选A
[B]选B
[C]选C
[D]选D
答案:
D
第31题:
(填空题,2分)
7^2Mod11+7\4*9/5Mod6
上述表达式的值是_______。
<空1>____________________
答案:
Lower(Trim(GetFill
(1)))="6"
第32题:
(填空题,2分)
通过编程求出结果。
把9786表示为两个加数之和,使其中一个加数能被91整除,而另一个
加数能被87整除。
请求出:
在这两个加数中,能被91整除的加数等于多少?
<空1>____________________
答案:
能被91整除的加数="4914"
程序代码:
Dimi%,j%
Fori=91To9786Step91'步长为91,故i肯定能被91整除
Forj=87To9786Step87'步长为87,故j肯定能被87整除
Ifi+j=9786Then'当找到了加数时,使用消息框输出结果
msgbox"能被91整除的加数是"&i
ExitFor'找到了加数,退出本循环
EndIf
Nextj
Nexti
第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"
程序代码:
s=0's用作累加器,初值置0
n=0
Whiles<1.4
n=n+1
s=s+1/(n*5)
Wend
Msgboxn