期末综合练习题10级.docx
- 文档编号:3711849
- 上传时间:2022-11-24
- 格式:DOCX
- 页数:14
- 大小:20.02KB
期末综合练习题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("输入第三个数"))
Ifa k=b Else ___[1]___‘k=a EndIf If___[2]___Then‘k k=c EndIf ___[3]___‘lab1.Caption=k EndSub [1]A.k=0B.k=cC.k=bD.k=a [2]A.k=kB.k=cC.k [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 &&&&&&&&&&&&&&&&
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 期末 综合 练习题 10