1、国家二级 ACCESS机试选择题（模块与 VBA编程基础）模拟试卷 9及答案与解析 一、选择题 1 在 Access中，如果要处理具有复杂条件或循环结构的操作，则应该使用的对象是 （ A）窗体 （ B）模块 （ C）宏 （ D）报表 2 VBA程序的多条语句可以写在一行中，其分隔符必须使用符号 （ A）： （ B） （ C）； （ D）， 3 有如下语句： s=Int(100*Rnd) 执行完毕后， s的值是 （ A） 0， 99的随机整数 （ B） 0， 100的随机整数 （ C） 1， 99的随机 整数 （ D） 1， 100的随机整数 4 从字符串 S中的第 2个字符开始获得 4个字符的
2、子字符串函数是 （ A） Mid$(s， 2， 4) （ B） Lefl$(s， 2， 4) （ C） Rigth(s， 4) （ D） Left$(s， 4) 5 执行语句： MsgBox“AAAA“， vbOKCancel+vbQuestion， “BBBB“之后，弹出的信息框 （ A）标题为 “BBBB”、框内提示符为 “惊叹号 ”、提示内容为 “AAAA” （ B）标题为 “AAAA”、框内提示符为 “惊叹号 ”、提示内容为 “BBBB” （ C） 标题为 “BBBB”、框内提示符为 “问号 ”、提示内容为 “AAAA” （ D）标题为 “AAAA”、框内提示符为 “问号 ”、提示内容
3、为 “BBBB” 6 下列数组声明语句中，正确的是 （ A） Dim A3， 4As Integer （ B） Dim A(3， 4)As Integer （ C） Dim A3； 4As Integer （ D） Dim A(3； 4)As Integer 7 在模块的声明部分使用 “OptionBasel”语句，然后定义二维数组 A(2 to 5， 5)则该数组的元素个数为 （ A） 20 （ B） 24 （ C） 25 （ D） 36 8 下列表达式中，能正确表示条件 “x和 y都是奇数 ”的是 （ A） x Mod 2=0 And y Mod 2=0 （ B） x Mod 2=0 Or
4、 y Mod 2=0 （ C） x Mod 2=1 And y Mod 2=1 （ D） X Mod 2=1 Or y Mod 2=1 9 将一个数转换成相应字符串的函数是 （ A） Str （ B） String （ C） Asc （ D） Chr 10 下列关于 VBA事件的叙述中，正确的是 （ A）触发相同的事件可以执行 不同的事件过程 （ B）每个对象的事件都是不相同的 （ C）事件都是由用户操作触发的 （ D）事件可以由程序定义 11 在窗口中有一个标签 Labe10和一个命令按钮 Command1， Command1的事件代码如下： Private Sub Command1_Cli
5、ck() Labe10 Left=Labe10 Left+100 End Sub 打开窗口，单击命令按钮，结果是 （ A）标签向左加宽 （ B）标签向右加宽 （ C）标签向左移动 （ D）标签向右移动 12 在窗体上添加一个命令按钮 (名为 Command1)，然后编写如下事件过程： Private Sub Command1_Click() For i=1 To 4 x=4 For j=1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next j Next i MsgBox x End Sub 打开窗体后，单击命令按钮，消息框的输出结果是 （ A） 7 （ B） 15
6、 （ C） 157 （ D） 528 13 在窗体中添加一个名称为 Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click() a=75 If a 60 Then k=1 Elself a 70 Then k=2 Flself a 80 Then k=3 Elself a 90 Then k=4 Endlf MsgBox k End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是 （ A） 1 （ B） 2 （ C） 3 （ D） 4 14 下列不是分支结构的语句是 （ A） IfThenEndlF （ B） WhileWend （
7、 C） IfThenElseEndlf （ D） SelectCa seEnd Select 15 在窗体中有一个命令按钮 run35，对应的事件代码如下： Private Sub run35_Enter() DimsumAs Integer Dim aAs Integer Dim b As Integer Dim iAs Integer For i=1 To 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)
8、&： “， b=“&Str(b) End Sub 运行以上事件所完成的功能是 （ A）对输入的 10个数据求累加和 （ B）对输入的 10个数据求各自的余数，然后再进行累加 （ C）对输入的 10个数据分别统计有几个是整数，有几个是非整数 （ D）对输入的 10个数据分别统计有几个是奇数，有几个是偶数 16 下列四个选项中，不是 VBA的条件函数的是 （ A） Choose （ B） If （ C） IIf （ D） Switch 17 在窗体中有一个命令按钮 Command1和一个文本框 Text1，编写事 件代码如下： Private Sub Command1_Click() For I=
9、1 To 4 x=3 For j=1 To 3 For k=1 To 2 x=x+3 Next k Nextj Next I Text1 value=Str(x) End Sub 打开窗体运行后，单击命令按钮，文本框 Text1输出的结果是 （ A） 6 （ B） 12 （ C） 18 （ D） 21 18 在窗体上有一个命令按钮 Command1，编写事件代码如下： Private Sub Command1_Click() Dim y As Integer y=0 Do y=InPutBox“y“ If(y Mod 10)+Int(y 10)=10 Then Debug Print y； L
10、oop 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 19 窗 体中有命令按钮 commandd1和文本框 Text1，事件过程如下： Function result(ByVal x As Integer)As Boolean If x Mod 2=0 Then result=True Else result=False
11、 End If End Function Pfivate Sub Command1_Click() x=Val(InputBox(“请输入一个整数 “) If_Then Text1=str(x) &“是偶数 “ Else Text1=str(x) &“是奇数 “ End If End Sub 运行程序，单击命令按钮，输入 19，在 Text1中会显示 “19是奇数 ”。那么在程序的空白处应填写 （ A） result(x)=“偶数 ” （ B） result(x) （ C） result(x)=“奇数 ” （ D） NOT result(x) 20 运行下列程序段，结果是 For m=10 t
12、o 1 step 0 k=k+3 Next m （ A）形成死循环 （ B）循环体不执行即结束循环 （ C）出现语法错误 （ D）循环体执行一次后结束循环 21 由 “For i=1 To 16 Step 3”决定的循环结构被执行 （ A） 4次 （ B） 5次 （ C） 6次 （ D） 7次 22 运行下列程序，显示的结果是 Pdvate Sub Command34_Click() i=0 Do i=i+1 Loop While i 10 MsgBox i End Sub （ A） 0 （ B） 1 （ C） 10 （ D） 11 23 在窗体中有一个名为 Command1的命令按钮，事件代
13、码如下： Pfivate Sub Command1_Click() Dim m(10) For k=1 To 10 m(k)=11-k Next k x=6 MsgBox m(2+m(x) End Sub 打开窗体，单击命令按钮，消息框的输出结果是 （ A） 2 （ B） 3 （ C） 4 （ D） 5 24 在窗体中添加一个名称为 Command1的命令按钮，然后编写如下程序： Public x As Integer Private Sub Command 1_Click() x=10 Call s1 Call s2 MsgBox x End Sub Private Sub s1() x=x
14、+20 End Sub Private Sub s2() Dim x As Integer x=x+20 End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为 （ A） 10 （ B） 30 （ C） 40 （ D） 50 25 要想在过程 Proc调用后返回形参 x和 y的变化结果，下列定义语句中正确的是 （ A） Sub Proc(x as Integer， y as Integer) （ B） Sub Proc(ByVal x as Integer， y as Integer) （ C） Sub Proc(x as Integer， ByVal y as Integer)
15、（ D） Sub Proc(ByVal x as Integer， ByVal y as Integer) 26 如果在被调用的过程中改变了形参变量的值，但又不影响实参变量本身，这种参数传递方式称为 （ A）按值传递 （ B）按地址传递 （ C） ByRef传递 （ D）按形参传递 27 下列属于通知或警告用户的命令是 （ A） PrintOut （ B） OutputTo （ C） MsgBox （ D） Set Warnings 国家二级 ACCESS机试选择题（模块与 VBA编程基础）模拟试卷 9答案与解析 一、选择题 1 【正确答案】 B 【试题解析】 本题考查 VBA程序设计的知识。
16、模块是能够被程序调用的函数，可以在模块中放置任意复杂的代码段。而窗体只能设计自己的事件，报表也不能设计复杂的代码，宏里面只能设计宏操作。 【知识模块】 模块与 VBA编程基础 2 【正确答案】 A 【试题解析】 本题考查 VBA程序设计的基础知识。 VBA中，原则上一行只能书写一条语句，语句后面用回车作为结束符。如果有特殊情况需要在一行 上书写多条语句时，这些语句之间要用 “： ”分隔。 【知识模块】 模块与 VBA编程基础 3 【正确答案】 A 【试题解析】 本题考查随机函数的知识。 Rnd是一个随机数函数，此函数的返回值是一个 (0， 1)这个开区间内的数。此函数乘以 100后得到 (0，
17、 100)开区间内的随机数。取整后即是 0， 99的随机整数。 可以推出，得到任意闭区间 x， y内随机整数的公式为： x+Int(Rnd*(y-x+1)。 【知识模块】 模块与 VBA编程基础 4 【正确答案】 A 【试题解析】 本题考查 取子串函数的知识。在 VBA中有三种取子串函数： Left函数用于在字符串左端开始取 n个字符； Right函数用于在字符串右端开始取 n个字符 (注意子串中字符的顺序与母串中相同 )； Mid函数可以实现在任何位置取任何长度的子串。截取第 2个字符开始的 4个字符应该用 Mid(s， 2， 4)。 【知识模块】 模块与 VBA编程基础 5 【正确答案】
18、C 【试题解析】 在 VBA中可以函数的形式调用，格式为： Msgbox(prompt， buttons， title， helpnle， context) Msgbox用于打开一个信息框，等待用户单击按钮并返回一整数值，告诉系统用户单击了哪一个按钮，若不需要返回值，可直接作为命令语句使用，显示提示信息。 【知识模块】 模块与 VBA编程基础 6 【正确答案】 B 【试题解析】 数组是由一组具有相同数据类型的变量 (称为数组元素 )构成的集合。数组变量由变量名和数组下标组成，在 VBA中不允许隐含声明数组，可用Dim语句来声明数组。数组定义的格式为： Dim数组名 (下标下界 to下标上界 )
19、 As 数据类型 下标下界的缺省值为 0，数组元素从 “数组名 (0)”至 “数组名 (下标上界 )”；如果设置下标下界非 0，要使用 to选项。 VBA也支持多维数组。可以在数组下标中加入多个数值，并以逗号分开，由此来建立多维数组。 【知识模块】 模块与 VBA编程基础 7 【正确答案】 B 【试题解析】 Dim数组名 (下标下限 to下标上限 )缺省情况下，下标下限为 0，元素个数 =(下标上限 -下标上限 +1)；如果 to选项可以安排非 0下限，使用逗号间隔可定义多维数组。数组 A(2 to 5,5)为二维数组，元素个数 =(5-2+1)*(5-0+1)=4*6=24。 【知识模 块】
20、 模块与 VBA编程基础 8 【正确答案】 C 【试题解析】 Mod取余函数，奇数 rood2=1偶数 mod2=0证明 x、 y都是奇数，即用 AND(与 )操作符。 【知识模块】 模块与 VBA编程基础 9 【正确答案】 A 【试题解析】 各函数的功能如下表所示：而选项 C)的Asc只是在 SQL语句中实现排序为升序的功能。 【知识模块】 模块与 VBA编程基础 10 【正确答案】 A 【试题解析】 事件是由系统定义的，事件的过程是由程序员定义的，因此触发相同的事件可以执行不同的事 件过程；不同的对象可能有相同的实现，如很多控件都具有 “获取焦点 ”事件。有些事件并不是用户触发的，如 Re
21、size事件。事件是由系统定义供程序员使用的，并不能由程序员定义。 【知识模块】 模块与 VBA编程基础 11 【正确答案】 D 【试题解析】 Left表示的是控件的左边距，所以 left+100表示控件向右移动。 【知识模块】 模块与 VBA编程基础 12 【正确答案】 B 【试题解析】 本题考查 VBA中多重循环的知识。见到多重循环的问题不要害怕，认真地分析清楚每一次循环这种问题 就迎刃而解了。比如这个例子，我们看到，在每一次外循环开始的时候都把 x的值置为 4，所以我们只分析最后一次循环就可以了；同理中层循环每一次开始前都把 x置为 3，所以这个问题最后实际上就是 x的初值为 3，执行最
22、内层循环直到结束就可以了。根据程序内循环执行两次，最后 x=3+6+6=15。 【知识模块】 模块与 VBA编程基础 13 【正确答案】 A 【试题解析】 本题考查多分支选择的知识。这个问题比较简单，只要知道这是一个多分支选择结构，当执行某分支后就会退出分支执行分支下面的语句就可以做对。本题中第一个 分支条件就得到满足，所以执行 k=1后退出分支结构，最终结果 k=1。 【知识模块】 模块与 VBA编程基础 14 【正确答案】 B 【试题解析】 本题考查控制结构的知识。选项 A是一个单分支选择结构；选项C是一个双分支选择结构；选项 D是一个多分支选择结构；选项 B是一个循环结构。 【知识模块】
23、 模块与 VBA编程基础 15 【正确答案】 D 【试题解析】 本题考查程序设计的知识。本题的重点在于判断 Int(num2)=num 2是什么样的条件。对于任意一个整数来说，若其除 2后为整数，也 就是 Int(num 2)=num 2成立，说明该数是一个偶数；反之若其除 2后不为整数，此时 Int(num 2)必然不等于 nurrd2，也就是一个整数不可能等于一个小数，说明该数是一个奇数。所以本题的功能是对输入的数据分别统计奇偶数的个数。 【知识模块】 模块与 VBA编程基础 16 【正确答案】 B 【试题解析】 本题考查条件函数的知识。 VBA中的条件函数共有 3个： IIF函数根据表达
24、式的真假值返回两个表达式之一； Switch函数对表达式列表求值，并返回一个 Variant类型的值或与列表中第一个 为 Tree的表达式相关联的表达式；Choose函数从参数列表中选择值并返回。 【知识模块】 模块与 VBA编程基础 17 【正确答案】 D 【试题解析】 各层循环过程及结果如下表所示：运行结束后， X的最终值为 21。 【知识模块】 模块与 VBA编程基础 18 【正确答案】 D 【试题解析】 分析 if语句，当计算表达式 (y mod 10)+int(y 10)等于 10时，立即窗口显示输入的数字。当输入第一个数字 10时， (v mod 10)+int(y 10)=0+1
25、=1不等于 l0，不显 示；当输入第二个数字 37时， (y rood 10)+int(y 10)=7+3=10，显示数字 37，依次类推，结果为选项 D)。 【知识模块】 模块与 VBA编程基础 19 【正确答案】 B 【试题解析】 result函数返回的是布尔值： True或 False， x Mod 2=0表示如果一个数除以 2为 0代表是偶数，那么返回 True值，所以条件判断时只要调用result(x)即可。 【知识模块】 模块与 VBA编程基础 20 【正确答案】 B 【试题解析】 FOR是循环语句，当 step =0时， to前数字要小于后面数字，否则将不执行。本题中 to前数字
26、是 10大于后面数字 1则不执行此循环体，直接跳过。 【知识模块】 模块与 VBA编程基础 21 【正确答案】 C 【试题解析】 根据题意可知，步长为 3，所以当 i分别为 1、 4、 7、 10、 13、 16时执行循环体，所以共执行了 6次。 【知识模块】 模块与 VBA编程基础 22 【正确答案】 C 【试题解析】 依据题意可知，当执行完第 10次循环体后，此时 i的值为 10，while的条件为假，所以跳出循环，所以最终的结果为 10。 【知识模块】 模块与 VBA编程基础 23 【正确答案】 C 【试题解析】 由题意可知， m(6)的值为 5， m(7)=4，所以 m(2+m(6)=
27、m(7)=4。 【知识模块】 模块与 VBA编程基础 24 【正确答案】 B 【试题解析】 本题考查变量作用域的知识。在整个程序中定义了一个全局变量x，在命令按钮的单击事件中对这个 x赋值为 10，然后依次调用 s1和 s2；在 s1中对 x自加了 20；在 s2中用 Dim定义了一个局部变量 x，按照局部覆盖全局的原则，在 s2中的操作都是基于局部变量 x而 不是全局变量 x。故此最终的输出结果为 30。 【知识模块】 模块与 VBA编程基础 25 【正确答案】 A 【试题解析】 本题考查 VBA中参数传递的知识。在 VBA的过程调用时，参数有两种传递方式：传址传递和传值传递。如果在过程声明
28、时形参用 ByVal声明，说明此参数为传值调用；若用 ByRef声明，说明此参数为传址调用；没有说明传递类型，则默认为传址传递。即形参的结果会传递给实参。 【知识模块】 模块与 VBA编程基础 26 【正确答案】 A 【试题解析】 在 VBA的过程调用时，参数 有两种传递方式：传址传递和传值传递。如果在过程声明时形参用 ByVal声明，说明此参数为传值调用，此时形参的变化不会返回到实参；若用 ByRef声明，说明此参数为传址调用，此时形参的变化将会返回到实参；没有说明传递类型，则默认为传址传递。 【知识模块】 模块与 VBA编程基础 27 【正确答案】 C 【试题解析】 PrintOut：打印打开的数据库中的活动对象，也可以打印数据表、窗体、报表、数据访问页和模块。 OutputTo：可将 Access数据库对象中的数据输出到 Excel、 MS-DOS文本文 件或多信息文件格式及其他格式的文件中。 MsgBox：显示包含警告信息或其他信息的消息框。 【知识模块】 模块与 VBA编程基础
