期末综合练习题10级.docx

期末综合练习题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.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

&&&&&&&&&&&&&&&&