1、国家二级（宏）机试模拟试卷 1及答案与解析 一、选择题 1 属于运行和控制流程的宏操作是 （ A） Close （ B） Quit （ C） RunCommand （ D） Restore 2 Close命令用于 （ A）打开窗体 （ B）打开报表 （ C）打开查询 （ D）关闭数据库对象 3 RunSQL命令用于 （ A）执行指定的 SQL语句 （ B）执行指定的外部应用程序 （ C）退出 Access （ D）设置属性值 4 Quit命令用于 （ A）执行指定的 SQL语句 （ B）执行指定的外部应用 程序 （ C）退出 Access （ D）设置属性值 5 Requery命令用于 （ A
2、）实施指定控件重新查询及刷新控件数据 （ B）查找满足指定条件的第一条记录 （ C）查找满足指定条件的下一条记录 （ D）指定当前记录 6 FindNext命令用于 （ A）实施指定控件重新查询及刷新控件数据 （ B）查找满足指定条件的第一条记录 （ C）查找满足指定条件的下一条记录 （ D）指定当前记录 7 GoToRecord命令用于 （ A）实施指定控件重新查询及刷新控件数据 （ B）查找满足指定条件的第 一条记录 （ C）查找满足指定条件的下一条记录 （ D）指定当前记录 8 Minmize命令用于 （ A）最大化激活窗口 （ B）最小化激活窗口 （ C）将最大化或最小化窗口恢复至原始
3、大小 （ D）使计算机发出 “嘟嘟 ”声 9 VBA程序中，可以实现代码注释功能的是 （ A）方括号 () （ B）冒号 (： ) （ C）双引号 (“) （ D）单引号 () 10 在窗口中有一个标签 Labe10和一个命令按钮 Commandl， Commandl的事件代码如下： Private Sub Command 1一 Click() Label0.Left=Labe10.Left+100 End Sub 打开窗口，单击命令按钮，结果是 （ A）标签向左加宽 （ B）标签向右加宽 （ C）标签向左移动 （ D）标签向右移动 11 以下关于宏的说法不正确的是 （ A）宏能够一次完成多个
4、操作 （ B）每一个宏命令都是由动作名和操作参数组成的 （ C）宏可以是很多宏命令组成在一起的宏 （ D）宏是用编程的方法来实现的 12 以下能用宏而不需要 VBA就能完成的操作是 （ A）事务性或重复性的操作 （ B）数据库的复杂操作和维护 （ C）自定义过程的创建和使用 （ D）一些错误过程 13 以下哪个数据库对象可以一次执行多个操作 （ A）数据访问页 （ B）菜单 （ C）宏 （ D）报表 14 以下关于宏操作的叙述错误的是 （ A）可以使用宏组来管理相关的一系列宏 （ B）使用宏可以启动其他应用程序 （ C）所有宏操作都可以转化为相应的模块代码 （ D）宏的关系表达式中不能应用窗体
5、或报表的控件值 15 用于执行指定的外部应用程序的宏命令是 （ A） RunSQL （ B） RunApp （ C） Requery （ D） Quit 16 用于打开报表的宏命令是 （ A） OpenForm （ B） Openquery （ C） OpenReport （ D） RunSQL 17 在某个宏要先打开一个窗体而后在关闭该窗体的两个宏命令是 （ A） OpenForm、 Close （ B） OpenForm、 Quit （ C） OpenQuery、 Close （ D） OpenQuery、 Quit 18 用于最大化激活窗口的宏命令是 （ A） Minimize （ B）
6、 Requery （ C） Maximize （ D） Restore 19 在宏的表达式中要引用报表 exam上控件 Name的值，可以使用引用式 （ A） Reports!Name （ B） Reports!exam!Name （ C） exam!Name （ D） Reports exam Name 20 以下程序段运行结束后，变量 X的值为 （ A） 2 （ B） 4 （ C） 8 （ D） 20 21 在窗体上添加一个命令按钮 (名为 Commandl)，然后编写如下事件过程： Private Sub Command l_Click() Fori=l To 4 x=4 Forj=1
7、To 3 x=3 Fork=1 To 2 x=x+6 Next k Nextj Next i MsgBox X End Sub 打开窗体后，单击命令按钮，消息框的输出结果是 （ A） 7 （ B） 15 （ C） 157 （ D） 528 22 在窗体中添加一个名称为 Commandl的命令按钮，然后编写如下事件代码： Private Sub Commandl_Click() Dim a(10,10) For m=2 To 4 For n=4 To 5 a(m,n)=m*n Nextn Next m MsgBox a(2， 5)+a(3， 4)+a(4， 5) End Sub 窗体打开运行后，
8、单击命令按钮，则消息框的输出结果是 （ A） 22 （ B） 32 （ C） 42 （ D） 52 23 在窗体中添加一个名称为 Commandl的命令按钮，然后编写如下事件代码： Private Sub Command l_Click() A=75 IfA60 Then I=1 IfA70 Then I=2 IfA80 Then I=3 IfA90 Then I=4 MsgBox I End Sub 窗体 打开运行后，单击命令按钮，则消息框的输出结果是 （ A） 1 （ B） 2 （ C） 3 （ D） 4 24 在窗体中添加一个名称为 Commandl的命令按钮，然后编写如下事件代码： P
9、rivate Sub Cornmandl_Click() s=“ABBACDDCBA“ For I=6 To 2 Step -2 x=Mid(s， I， I) y=Left(s， I) z=Right(s， I) z=x y z Next I MsgBox z End Sub | 窗体打开运行后，单击命令按钮，则消息框的输出结果是 （ A） AABAAB （ B） ABBABA （ C） BABBA （ D） BBABBA 25 在窗体中添加一个名称为 Commandl的命令按钮，然后编写如下事件代码： Private Sub Commandl_C1ick() a=75 If a60 Then
10、 k=1 Elself a70 Then k=2 Elself a80 Then k=3 Elself a90 Then k=4 EndIf MsgBOX k End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是 （ A） 1 （ B） 2 （ C） 3 （ D） 4 26 设有如下窗体单击事件过程： Private Sub Form_Click() a=1 For i=1 T0 3 Select Case i Case 1,3 a=a+1 Case 2,4 a=a+2 End Select Next i MsgBox a End Sub 打开窗体运行后，单击窗体，则消息框的输出
11、的结果是 （ A） 3 （ B） 4 （ C） 5 （ D） 6 27 设有如下程序： Private Sub Command l_click() Dim sum As Double， x As Double Sum=0 n=0 For i=l T0 5 x=nil n=n+l Sum=Sum+X Next I End Sub 该程序通过 For循环来计算一个表达式的值，这个表达式是 （ A） 1+1 2+2 3+3 4+4 5 （ B） 1+1 2+l 3+1 4+1 5 （ C） 1 2+2 3+3 4+4 5 （ D） 1 2+1 3+1 4+1 5 28 下列 Case语句中错误的是
12、（ A） Case 0 To 10 （ B） Case Is10 （ C） Case Is10 And Is10 29 下列不是分支结构的语句是 （ A） If.Then.EndIF （ B）啪 ile.Wend （ C） If.Then.Else.EndIf （ D） Select.Case.End Select 30 VBA程序流程控制的方式是 （ A）顺序控制和分支控制 （ B）顺序控制和循环控制 （ C）循环控制和分支控制 （ D）顺序、分支和循环控制 31 下列四种形式的循环设计中，循环次数最少的是 （ A） a=5： b=8 Do A=a+l Loop While ab a=a+l
13、 Loop 32 在窗体中有一个命令按钮 run35，对应的事件代码如下： Private Sub run35_Etater() Dim num As Integer Dim a As Integer Dim b As Integer Dim iAs Integer For i=l T0 10 num=InputBox(”请输入数据： “， “输入 “， 1) If Int(num 2)=num 2 Then a=a+1 Else B=b+1 End If Next i MsgBox(”运行结果： a=” Str(A）： ”， b=” Str(B） ) End Sub 运行以上事件所完成的功能
14、是 （ A）对输入的 10个数据求累加和 （ B）对输入的 10个数据求各自的余数，然后再进行累加 （ C）对输入的 10个数据分别统计有几个是整数，有几个是非整数 （ D）对输入的 lO个数据分别统计有几个是奇数，有几个是偶数 33 在 VBA中，错误的循环结构是 （ A） Do While条件式 循环体 Loop （ B） Do Until条件式 循环体 Loop （ C） Do Until 循环体 Loop条件式 （ D） Do 循环体 Loop While条件式 34 在窗体中有一个命令按钮 (名称为 run34)，对应的事件代码如下： Private Sub run34_Click(
15、) sum=0 For i=10 To 1 Step-2 sum=suln+i Next i MsgBox sum End Sub 运行以上事件，程序的输出结果是 （ A） 10 （ B） 30 （ C） 55 （ D）其他结果 35 在窗体中有一个名称为 run35的命令按钮，单击该按钮从键盘接收学生成绩，如果输入的成绩不在 0到 100分之间，则要求重新输入；如果输入的成绩正确，则进入后续程序处理。 run35命令按钮的 Click的事件代码如下： Private Sub run35_Click() Dim flagAs Boolean result=0 flag=True Do Whil
16、e flag result=Val(InputBox(“请输入学生成绩 :“,“输入 “) If result=0 And result=7 （ D） x7 38 在窗体中添加一个名称为 Commandl的命令按钮，然后编写如下事件代码： Private Sub CommandIClick() MsgBox f(24， 18) End Sub Public Function f(m As Integer， n As Integer)As Integer Do While mn m=m-n Loop Do While mn n=n-m Loop Loop f=m End Function 窗体打
17、开运行后，单击命令按钮，则消息框的输出结果是 （ A） 2 （ B） 4 （ C） 6 （ D） 8 39 在窗体中有一个文本框 Textl，编写事件代 码如下： Private Sub Form_Click() X=val(Inputbox(“输入 x的值 “) Y=1 IfX 0 Then Y=2 Textl.Value=Y End Sub 打开窗体运行后，在输入框中输入整数 12，文本框 Textl中输出的结果是 （ A） 1 （ B） 2 （ C） 3 （ D） 4 40 在窗体中有一个命令按钮 Commandl和一个文本框 Textl，编 写事件代码如下： Private Sub C
18、ommandl_Click() For I=1 To 4 x=3 Forj=1 T0 3 For k=1 To 2 x=x+3 Nextk Nextj Next I Textl value=Str(x) End Sub 打开窗 体运行后，单击命令按钮，文本框 Textl输出的结果是 （ A） 6 （ B） 12 （ C） 18 （ D） 21 41 在窗体中有一个命令按钮 Commandl，编写事件代码如下： Private Sub Commandl_Click() Dim sAs Integer S=P(1)+P(2)+P(3)+P(4) debug.Print S End Sub Publ
19、ic Function P(N AS Integer) Dim Sum As Integer Sum=0 For i=l TO N Sum=Sum+i Next i P=Sum End Function 打开窗体运行后，单击命令按钮，输出结果是 （ A） 15 （ B） 20 （ C） 25 （ D） 35 42 由 “For i=l To 9 Step-3”决定的循环结构，其循环体将被执行 （ A） 0次 （ B） 1次 （ C） 4次 （ D） 5次 43 在窗体上 有一个命令按钮 Commandl和一个文本框 Textl，编写事件代码如下 Private Sub Commandl Cli
20、ck() Dim i， j， x For i=1 To 20 sep 2 x=0 Forj=i To 20 step 3 x=x+l Nextj Next i Textl.Value=Str(x) End Sub 打开窗体运行后，单击命令按钮，文本框中显示的结果是 （ A） 1 （ B） 7 （ C） 17 （ D） 400 44 在窗体上有一个命令按钮 Commandl，编写事件代码如下： Private Sub Commandl_Click() Dim Y As Integer y=0 Do y=InPutBox“y“) If(y Mod 10)+Int(y 10)=10 Then Deb
21、ug.Print y； Loop Until y=0 End Sub 打开窗体运行后，单击命令按钮，依次输入 10、 37、 50、 55、 64、 20、 28、19、 -19、 0， 立即窗口上输出的结果是 （ A） 37 55 64 28 19 19 （ B） 10 50 20 （ C） 10 50 20 0 （ D） 37 55 64 28 19 45 在宏的操作参数中，不能设置成表达式的操作是 （ A） Close （ B） Save （ C） OutputTo （ D） A、 B和 C 46 可以用前面加什么的表达式来设置宏的操作参数 （ A） “” （ B） “=” （ C） “
22、， ” （ D） “； ” 47 从 VBA代码过程中直接运行宏，可以使用 DoCmd对象的 （ A） RunMacro方法 （ B） AutoExec方法 （ C） RunCommand方法 （ D） SendObject方法 国家二级（宏）机试模拟试卷 1答案与解析 一、选择题 1 【正确答案】 C 【知识模块】 宏 2 【正确答案】 D 【知识模块】 宏 3 【正确答案】 A 【知识模块】 宏 4 【正确答案】 C 【知识模块】 宏 5 【正确答案】 A 【知识模块】 宏 6 【正确答案】 C 【知识模块】 宏 7 【正确答案】 D 【知识模块】 宏 8 【正确答案】 B 【知识模块】
23、宏 9 【正确答案】 D 【知识模块】 宏 10 【正确答案】 D 【知识模块】 宏 11 【正确答案】 D 【试题解析】 在 Access数据库中，通过直接执行宏或者使用包含宏的用户界面来实现宏的功能，不需 要编程。 【知识模块】 宏 12 【正确答案】 A 【试题解析】 事务性或重复性的操作，可以使用宏，没有必要使用 VBA来完成。 【知识模块】 宏 13 【正确答案】 C 【试题解析】 宏可以一次执行多个操作。 【知识模块】 宏 14 【正确答案】 D 【试题解析】 宏的关系表达式中可以应用窗体或报表的控件值。 【知识模块】 宏 15 【正确答案】 B 【知识模块】 宏 16 【正确答案
24、】 C 【知识模块】 宏 17 【正确答案】 A 【试题解析】 Quit用于退出 Access，而 Close用于关闭数据库对象， OpenQuery用于打开查询。 【知识模块】 宏 18 【正确答案】 C 【知识模块】 宏 19 【正确答案】 B 【试题解析】 该语句的语法为 Reports!报表名 !控件名 。 【知识模块】 宏 20 【正确答案】 C 【知识模块】 宏 21 【正确答案】 B 【知识模块】 宏 22 【正确答案】 C 【知识模块】 宏 23 【正确答案】 B 【知识模块】 宏 24 【正确答案】 D 【知识模块】 宏 25 【正确答案】 A 【知识模块】 宏 26 【正确
25、答案】 C 【知识模块】 宏 27 【正确答案】 C 【知识模块】 宏 28 【正确答案】 C 【知识模块】 宏 29 【正确答案】 B 【知识模块】 宏 30 【正确答案】 D 【知识模块】 宏 31 【正确答案】 C 【知识模块】 宏 32 【正确答案】 D 【知识模块】 宏 33 【正确答案】 C 【知识模块】 宏 34 【正确答案】 B 【知识模块】 宏 35 【正确答案】 C 【知识模块】 宏 36 【正确答案】 B 【知识模块】 宏 37 【正确答案】 C 【知识模块】 宏 38 【正确答案】 C 【知识模块】 宏 39 【正确答案】 B 【知识模块】 宏 40 【正确答案】 D 【知识模块】 宏 41 【正确答案】 B 【知识模块】 宏 42 【正确答案】 A 【知识模块】 宏 43 【正确 答案】 A 【知识模块】 宏 44 【正确答案】 D 【知识模块】 宏 45 【正确答案】 D 【知识模块】 宏 46 【正确答案】 B 【知识模块】 宏 47 【正确答案】 A 【知识模块】 宏
