期末综合练习题10级.docx
《期末综合练习题10级.docx》由会员分享,可在线阅读,更多相关《期末综合练习题10级.docx(14页珍藏版)》请在冰豆网上搜索。
期末综合练习题10级
期末综合练习(2011-6)
一、单选题
第1题
打开某个Access数据库,创建一个数据访问页,在“页”对象列表框中所列出的是数据访问页的_____。
A.网页B.数据库文件C.快捷方式D.子表
答案:
C
第2题
在Access中,当对数据访问页设置分组字段时,展开控件的作用是显示或隐藏每组中的_____。
A.记录源B.字段C.记录D.数据表
答案:
C
第3题
在宏的设计视图窗口中,下半部分是_______。
A.操作参数区B.设计区C.打印区D.状态区
答案:
A
第4题
在宏中,OpenReport操作可用来打开指定的_______。
A.查询B.状态栏C.窗体D.报表
答案:
D
第5题
在Access中的VBA过程里,要运行宏可以使用DoCmd对象的______方法。
A.OpenB.RunMacroC.CloseD.Query
答案:
B
第6题
关于宏的执行,以下说法不正确的是_______。
A.在“数据库”窗口,选择“宏”对象列表中的宏组名并双击,可以直接运行宏组中第一个宏的所有宏操作
B.在“数据库”窗口,选择“宏”对象列表中的宏组名并双击,不可以直接运行宏组中第二个宏的所有宏操作
C.可以在一个宏中运行另一个宏
D.在打开数据库时,不会自动运行AutoExec宏
答案:
D
第7题
在宏中,用于显示所有记录的宏命令是_______。
A.MsgboxAllRecordsB.ShowAllRecords
C.SetValueD.Restore
答案:
B
第8题
在VBA中,表达式(5^2Mod8)>=4的值是_______。
A.TrueB.FalseC.AndD.Or
答案:
B
第9题
在VBA中,表达式23\4<=3Or5>=6的值是_______。
A.TrueB.FalseC.AndD.Or
答案:
B
第10题
在VBA中,表达式Not(Not(8-3>5))的值是_______。
A.TrueB.FalseC.AndD.Or
答案:
B
第11题
在VBA中,表达式33/2>16And(16\5>3)的值是_______。
A.TrueB.FalseC.AndD.Or
答案:
B
第12题
在VBA中,声明函数过程的关键字是_______。
A.DimB.ConstC.FunctionD.Sub
答案:
C
第13题
对VBA中的逻辑值进行算术运算时,True值被当做-1,False当做_______。
A.1B.2C.0D.3
答案:
C
第14题
在VBA中,类型说明符#表示的数据类型是______。
A.整型B.长整型C.单精度型D.双精度型
答案:
D
第15题
下列语句中,定义窗体的加载事件过程的头语句是______。
A.PrivateSubForm_Chang()
B.PrivateSubForm__LostFocus()
C.PrivateSubForm_Load()
D.PrivateSubForm_Open()
答案:
C
第16题
现有一个已经建好的窗体,窗体中有一个命令按钮,单击此按钮,将打开“产品数量统计”报表,如果采用VBA代码完成,下面语句正确的是______。
A.Docmd.OpenForm"产品数量统计"
B.Docmd.OpenView"产品数量统计"
C.Docmd.OpenTable"产品数量统计"
D.Docmd.OpenReport"产品数量统计"
答案:
D
第17题
表达式IIf(0,60,100)的结果是______。
A.0B.60C.100D.160
答案:
C
第18题
在VBA中,变量声明语句“Dima#,bASinteger”中的变量a的类型是______。
A.整型B.双精度型C.长整型D.变体型
答案:
B
第19题
在VBA中,“Dima(3,3)ASBollean”语句定义了一个数组,该数组中的全部元素都初始化为______。
A.TrueB.FalseC.-1D.1
答案:
B
第20题
在VBA某个模块中,有如下声明语句
Dima(6,10)ASinteger
那么数组a(6,10)总共有______个元素。
A.16B.60C.70D.77
答案:
D
第21题
以下VBA程序段运行后,变量j的值是______。
k=10
j=0
Do
k=k+10
j=j+1
LoopUntilk>20
A.1B.2C.4D.10
答案:
B
第22题
以下VBA程序段运行后,变量j的值是______。
y=89
j="不及格"
DoWhiley>60
j=IIf(y<70,"及格",IIf(y<90,"良好","优秀"))
y=y-50
Loop
A."不及格"B."及格"C."良好"D."优秀"
答案:
C
第23题
以下是宏h的操作序列设计:
条件操作操作参数
[txt1]>=2MsgBox消息是“北京”
...MsgBox消息是“上海”
MsgBox消息是“广州”
现设置宏h为窗体“sysu”上名为“cmd1”命令按钮的单击事件属性,打开窗体“sysu”运行后,在窗体上名为“txt1”的文本框内输入数字1,然后单击命令按钮cmd1,则
A.屏幕会弹出一个消息框,显示消息“北京”
B.屏幕会先后弹出两个消息框,分别显示消息“北京”和“上海”
C.屏幕会先后弹出三个消息框,分别显示消息“北京”、“上海”、“广州”
D.屏幕会弹出一个消息框,显示消息“广州”
答案:
D
第24题
以下VBA代码程序运行结束后,变量a的值是______。
a=0
b=101
Do
b=b-20
a=a+b
LoopWhileb>80
A.60B.140C.142D.160
答案:
C
第25题
以下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
第26题
假定有如下的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
第27题
在窗体上添加一个命令按钮(名为cmd12),然后编写如下事件过程:
PrivateSubcmd12_Click()
DimpiAsSingle,nAsInteger
pi=3.14
n=Len(Str(pi)&Space
(2)&"是本字符串长度")
MsgBoxn
EndSub
打开窗体运行后,单击命令按钮,消息框中的输出内容是______。
A.11B.12C.13D.14
答案:
D
第28题
在窗体上添加一个命令按钮(名为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
第29题
下列程序段,建立如图所示的数组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
二、多选题
第30题
在Access中,宏的种类包括_______。
A.繁难宏B.条件宏C.宏组D.简单宏
答案:
BCD
第31题
在VBA中,对于Sub(或Function)过程中的每一个形参,可用于声明其参数传递方式的关键字包括_______。
A.ByMeB.ByVal
C.ByRefD.ByVBA
答案:
BC
第32题
下面______是合法的变量名。
A.STR-NAMEB.CaseC.FOR_99D.abc2006
答案:
CD
三、单选[多]
第33题
在窗体上已经建立1个标签控件lab1和1个命令按钮控件cmd1。
请完善程序,使之完成以下操作:
打开窗体后单击命令按钮,则通过输入对话框分别输入3个数值,然后求出其中最大的数,并将最大的数显示在标签lab1中。
PrivateSubcmd1_Click()
DimaAsSingle,bAsSingle,cAsSingle
DimkAsSingle
a=Val(InputBox("输入第一个数"))
b=Val(InputBox("输入第二个数"))
c=Val(InputBox("输入第三个数"))
Ifak=b
Else
___[1]___‘k=a
EndIf
If___[2]___Then‘kk=c
EndIf
___[3]___‘lab1.Caption=k
EndSub
[1]A.k=0B.k=cC.k=bD.k=a
[2]A.k=kB.k=cC.kc
[3]A.lab1.Value=aB.lab1.Value=b
C.lab1.Caption=cD.lab1.Caption=k
答案:
DCD
第34题
在窗体上添加一个命令按钮(名为cmd),然后编写如下事件过程。
单击该命令按钮,便将数组p(6,8)中各个元素都赋予其对应的两个下标值平方之和,请完善程序。
PrivateSubcmd_Click()
Dimp(6,8)Asinteger,iAsinteger,jAsinteger
For____[1]_____To6’i=0
Forj=0To____[2]_____’8
p(i,j)=____[3]_____’i^2+j^2
Nextj
Nexti
EndSub
[1]A.i>0B.i>0C.i=1D.i=0
[2]A.6B.7C.8D.9
[3]A.(i+j)^2B.i^2+jC.i+j^2D.i^2+j^2
答案:
DCD
第35题
在窗体上已经建立1个文本框控件txt1和1个命令按钮控件cmd1。
请完善程序,使之完成以下操作:
程序运行时,文本框上显示“VBA程序设计”,命令按钮的标题上显示“隐藏”;
单击命令按钮时文本框消失;
单击窗体时显示出文本框。
PrivateSub___[1]___()‘cmd1_Click
txt1.Visible=False
EndSub
PrivateSubForm_Click()
txt1.Visible=___[2]___‘True
EndSub
PrivateSubForm_Load()
txt1.Value="VBA程序设计"
txt1.Visible=True
cmd1.___[3]___="隐藏"‘Caption
EndSub
[1]A.command1_ClickB.Lab1_Click
C.Form_LoadD.cmd1_Click
[2]A.FalseB.True
C."隐藏"D."显示"
[3]A.VisibleB.Value
C.CaptionD.Click
答案:
DBC
四、填空题
第36题(编程题)
求S=1/5+1/10+1/15+1/20+1/25+…+1/(5*n)+…的前n项之和,当S第一次大于或等于1.4时终止计算,此时项数n为_____。
答案:
616(n)
程序代码:
PrivateSubCmd1_Click()
Dimn%,sAsDouble
s=0's作累加器,初值置0
n=1
Whiles<=1.4
s=s+1/(5*n)
n=n+1
Wend
Text0.Value="n="&n-1
EndSub
第37题(编程题)
通过编程求出结果。
把9786表示为两个加数之和,使其中一个加数能被91整除,而另一个加数能被87整除。
请求出:
在这两个加数中,能被91整除的加数等于多少?
答案:
4914(n)
程序代码:
PrivateSubCmd1_Click()
DimiAsInteger,jAsInteger,kAsInteger
k=9786
Fori=87TokStep87
Forj=91TokStep91
Ifi+j=kThen
MsgBox"能被91整除的加数是:
"&j
ExitFor
EndIf
Nextj
Nexti
EndSub
第38题
数据库的“职工”表中含有“姓名”、“职称”和“工资”等字段,要实现对不同职称的职工增加工资,规定工程师职称增加20%,技术员增加15%,其他人员增加10%。
下列程序的功能是按上述规定调整每位职工的工资,并显示所涨工资的总和。
请在空白处填入适当的语句,使程序可以完成指定的功能。
PrivateSubCommand0_Click()
DimdbAsDAO.Database
DimrsAsDAO.Recordset
DimgzAsDAO.Field
DimzcAsDAO.Field
DimsumAsSingle
DimrateAsSingle
Setdb=CurrentDb()
Setrs=db.OpenRecordset("职工")
Setgz=rs.__________("工资")‘Fields
Setzc=rs.Fields("职称")
sum=0
DoWhileNotrs.EOF
rs.Edit
SelectCasezc
CaseIs="工程师"
rate=0.2
CaseIs="技术员"
rate=0.15
CaseElse
rate=0.1
EndSelect
sum=sum+gz*rate
gz=gz+gz*rate
rs.Update
rs.MoveNext
Loop
rs.Close
db.Close
Setrs=Nothing
Setdb=Nothing
MsgBox"涨工资总计:
"&sum
EndSub
答案:
Fields
第39题
数据库的“学生成绩”表中含有字段(学号、姓名、语文、数学、英语,总分)。
下列程序的功能是:
计算每名学生的总分(总分=数学+外语+专业)。
请在空白处填入适当的语句,使程序可以实现所需要的功能。
DimcnAsNewADODB.Connection
DimrsAsNewADODB.Recordset
DimzfAsADODB.Field
DimywAsADODB.Field
DimsxAsADODB.Field
DimyyAsADODB.Field
DimstrSQLAsString
Setcn=CurrentProject.Connection
strSQL="select*from学生成绩"
rs.OpenstrSQL,cn,adOpenDynamic,adLockOptimistic,adCmdText
Setzf=rs.Fields("总分")
Setyw=rs.Fields("语文")
Setsx=rs.Fields("数学")
Setyy=rs.Fields("英语")
DoWhileNotrs.EOF
zf=yw+sx+yy
rs.Update
rs._______‘MoveNext
Loop
rs.Close
cn.Close
Setrs=Nothing
Setcn=Nothing
答案:
MoveNext
&&&&&&&&&&&&&&&&