还剩10页未读,继续阅读
本资源只提供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.ShowAllRecordsC.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中,表达式NotNot8-35的值是_______A.TrueB.FalseC.AndD.Or答案B第11题在VBA中,表达式33/216And16\53的值是_______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_ChangB.PrivateSubForm__LostFocusC.PrivateSubForm_LoadD.PrivateSubForm_Open答案C第16题现有一个已经建好的窗体,窗体中有一个命令按钮,单击此按钮,将打开“产品数量统计”报表,如果采用VBA代码完成,下面语句正确的是______A.Docmd.OpenForm产品数量统计B.Docmd.OpenView产品数量统计C.Docmd.OpenTable产品数量统计D.Docmd.OpenReport产品数量统计答案D第17题表达式IIf060100的结果是______A.0B.60C.100D.160答案C第18题在VBA中,变量声明语句“Dima#bASinteger”中的变量a的类型是______A.整型B.双精度型C.长整型D.变体型答案B第19题在VBA中,“Dima33ASBollean”语句定义了一个数组,该数组中的全部元素都初始化为______A.TrueB.FalseC.-1D.1答案B第20题在VBA某个模块中,有如下声明语句Dima610ASinteger那么数组a610总共有______个元素A.16B.60C.70D.77答案D第21题以下VBA程序段运行后,变量j的值是______k=10j=0Dok=k+10j=j+1LoopUntilk20A.1B.2C.4D.10答案B第22题以下VBA程序段运行后,变量j的值是______y=89j=不及格DoWhiley60j=IIfy70及格IIfy90良好优秀y=y-50LoopA.不及格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=0b=101Dob=b-20a=a+bLoopWhileb80A.60B.140C.142D.160答案C第25题以下VBA代码程序运行结束后,数组元素a12的值是______Dima12AsLongiAsLongi=0DoUntili12ai=i^2-ii=i+1LoopA.1B.128C.132D.144答案C第26题假定有如下的Function过程FunctionppfunxAsSingleyAsSingleppfun=x^3-y^2EndFunction在窗体上添加一个命令按钮(名为cmd10)然后编写如下事件过程PrivateSubcmd10_ClickDimaAsSinglebAsSinglea=5b=4MsgBoxppfunabmod50EndSub打开窗体运行后,单击命令按钮,消息框中的输出内容是______A.50B.25C.9D.109答案C第27题在窗体上添加一个命令按钮(名为cmd12)然后编写如下事件过程PrivateSubcmd12_ClickDimpiAsSinglenAsIntegerpi=
3.14n=LenStrpiSpace2是本字符串长度MsgBoxnEndSub打开窗体运行后,单击命令按钮,消息框中的输出内容是______A.11B.12C.13D.14答案D第28题在窗体上添加一个命令按钮(名为cmd13)然后编写如下事件过程PrivateSubcmd13_ClickDimxAsStringyAsStringx=龙洞华美路中山大学新华学院法学院y=2006级法学专业学生MsgBoxMidx64Rightx3Lefty9EndSub打开窗体运行后,单击命令按钮,消息框中的输出内容是______A.龙洞华美路中山大学新华学院法学院2006级法学专业学生B.中山大学新华学院法学院2006级法学专业学生C.中山大学法学院2006级法学专业学生D.中山大学法学院2006级法学专业答案D第29题下列程序段建立如图所示的数组d(下标从1开始),填写所缺部分123456212345321234432123543212654321Dimd1To61To6Forj=1To6Fork=1To6djk=Abs_____+1NextkNextjA.jB.j-k+1C.j-kD.2*j-k答案C
二、多选题第30题在Access中宏的种类包括_______A.繁难宏B.条件宏C.宏组D.简单宏答案BCD第31题在VBA中,对于Sub或Function过程中的每一个形参可用于声明其参数传递方式的关键字包括_______A.ByMeB.ByValC.ByRefD.ByVBA答案BC第32题下面______是合法的变量名A.STR-NAMEB.CaseC.FOR_99D.abc2006答案CD
三、单选[多]第33题在窗体上已经建立1个标签控件lab1和1个命令按钮控件cmd1请完善程序,使之完成以下操作打开窗体后单击命令按钮,则通过输入对话框分别输入3个数值,然后求出其中最大的数,并将最大的数显示在标签lab1中PrivateSubcmd1_ClickDimaAsSinglebAsSinglecAsSingleDimkAsSinglea=ValInputBox输入第一个数b=ValInputBox输入第二个数c=ValInputBox输入第三个数IfabThenk=bElse___
[1]___‘k=aEndIfIf___
[2]___Then‘kck=cEndIf___
[3]___‘lab
1.Caption=kEndSub
[1]A.k=0B.k=cC.k=bD.k=a
[2]A.k=kB.k=cC.kcD.kc
[3]A.lab
1.Value=aB.lab
1.Value=bC.lab
1.Caption=cD.lab
1.Caption=k答案DCD第34题在窗体上添加一个命令按钮(名为cmd),然后编写如下事件过程单击该命令按钮,便将数组p68中各个元素都赋予其对应的两个下标值平方之和,请完善程序PrivateSubcmd_ClickDimp68AsintegeriAsintegerjAsintegerFor____
[1]_____To6’i=0Forj=0To____
[2]_____’8pij=____
[3]_____’i^2+j^2NextjNextiEndSub
[1]A.i0B.i0C.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_Clicktxt
1.Visible=FalseEndSubPrivateSubForm_Clicktxt
1.Visible=___
[2]___‘TrueEndSubPrivateSubForm_Loadtxt
1.Value=VBA程序设计txt
1.Visible=Truecmd
1.___
[3]___=隐藏‘CaptionEndSub
[1]A.command1_ClickB.Lab1_ClickC.Form_LoadD.cmd1_Click
[2]A.FalseB.TrueC.隐藏D.显示
[3]A.VisibleB.ValueC.CaptionD.Click答案DBC
四、填空题第36题(编程题)求S=1/5+1/10+1/15+1/20+1/25+…+1/5*n+…的前n项之和,当S第一次大于或等于
1.4时终止计算,此时项数n为_____答案616n程序代码PrivateSubCmd1_ClickDimn%sAsDoubles=0s作累加器,初值置0n=1Whiles=
1.4s=s+1/5*nn=n+1WendText
0.Value=n=n-1EndSub第37题(编程题)通过编程求出结果把9786表示为两个加数之和,使其中一个加数能被91整除,而另一个加数能被87整除请求出在这两个加数中,能被91整除的加数等于多少?答案4914n程序代码PrivateSubCmd1_ClickDimiAsIntegerjAsIntegerkAsIntegerk=9786Fori=87TokStep87Forj=91TokStep91Ifi+j=kThenMsgBox能被91整除的加数是jExitForEndIfNextjNextiEndSub第38题数据库的“职工”表中含有“姓名”、“职称”和“工资”等字段,要实现对不同职称的职工增加工资,规定工程师职称增加20%,技术员增加15%,其他人员增加10%下列程序的功能是按上述规定调整每位职工的工资,并显示所涨工资的总和请在空白处填入适当的语句,使程序可以完成指定的功能PrivateSubCommand0_ClickDimdbAsDAO.DatabaseDimrsAsDAO.RecordsetDimgzAsDAO.FieldDimzcAsDAO.FieldDimsumAsSingleDimrateAsSingleSetdb=CurrentDbSetrs=db.OpenRecordset职工Setgz=rs.__________工资‘FieldsSetzc=rs.Fields职称sum=0DoWhileNotrs.EOFrs.EditSelectCasezcCaseIs=工程师rate=
0.2CaseIs=技术员rate=
0.15CaseElserate=
0.1EndSelectsum=sum+gz*rategz=gz+gz*raters.Updaters.MoveNextLooprs.Closedb.CloseSetrs=NothingSetdb=NothingMsgBox涨工资总计sumEndSub答案Fields第39题数据库的“学生成绩”表中含有字段(学号、姓名、语文、数学、英语,总分)下列程序的功能是计算每名学生的总分(总分=数学+外语+专业)请在空白处填入适当的语句,使程序可以实现所需要的功能DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimzfAsADODB.FieldDimywAsADODB.FieldDimsxAsADODB.FieldDimyyAsADODB.FieldDimstrSQLAsStringSetcn=CurrentProject.ConnectionstrSQL=select*from学生成绩rs.OpenstrSQLcnadOpenDynamicadLockOptimisticadCmdTextSetzf=rs.Fields总分Setyw=rs.Fields语文Setsx=rs.Fields数学Setyy=rs.Fields英语DoWhileNotrs.EOFzf=yw+sx+yyrs.Updaters._______‘MoveNextLooprs.Closecn.CloseSetrs=NothingSetcn=Nothing答案MoveNext。