1、国家二级 ACCESS机试选择题（模块与 VBA编程基础）模拟试卷 11及答案与解析 一、选择题 1 下列变量名中，合法的是 （ A） 4A （ B） A1 （ C） ABC一 1 （ D） private 2 下列表达式中，能正确表示条件 “x和 Y都是奇数 ”的是 （ A） x Mod 2=0 And Y Mod 2=0 （ B） x Mod 2=0 Or Y Mod 2=0 （ C） x Mod 2=1 And Y Mod 2=1 （ D） X Mod 2=1 Or Y Mod 2=1 3 下列给出的选项中，非法的 变量名是 （ A） Sum （ B） Integer 2 （ C） Re
2、m （ D） Forml 4 表达式 “B=INT(A+0 5)”的功能是 （ A）将变量 A保留小数点后 1位 （ B）将变量 A四舍五入取整 （ C）将变量 A保留小数点后 5位 （ D）舍去变量 A的小数部分 5 VBA语句 “Dim NewArray(10)as Integer”的含义是 （ A）定义 10个整型数构成的数组 NewArray （ B）定义 11个整型数构成的数组 NewArray （ C）定义 1个值为整型数的变量 NewArray(10) （ D）定义 1个值为 10的变量 NewArray 6 将一个数转换成相应字符串的函数是 （ A） Str （ B） Stri
3、ng （ C） Asc （ D） Chr 7 VBA中定义符号常量使用的关键字是 （ A） Const （ B） Dim （ C） Public （ D） Static 8 可以用 InputBox函数产生 “输入对话框 ”。执行语句： st=InputBox(“请输入字符串 ”， ”字符串对话框 ”,“aaaa”) 当用户输入字符串 “bbbb”，按 OK按钮后，变量 st的内容是 （ A） aaaa （ B）请输入字符串 （ C）字符串对话框 （ D） bbbb 9 下列不属于 VBA函数的是 （ A） Choose （ B） If （ C） IIf （ D） Switch 10 下列关于
4、 VBA事件的叙述中，正确的是 （ A）触发相同的事件可以执行不同的事件过程 （ B）每个对象的事件都是不相同的 （ C）事件都是由用户操作触发的 （ D）事件可以由程序定义 11 用来测试当前读写位置是否达到文件末尾的函数是 （ A） EOF （ B） FileLen （ C） Len （ D） LOF 12 下 列表达式中，能够保留变量 X整数部分并进行四舍五入的是 （ A） Fix(x) （ B） Rnd(x) （ C） Round(x) （ D） Int(x) 13 VBA程序中，可以实现代码注释功能的是 （ A）方括号 () （ B）冒号 (： ) （ C）双引号 (”) （ D）单
5、引号 () 14 在窗口中有一个标签 Label0和一个命令按钮 Commandl， Commandl的事件代码如下： Private Sub Commandl_Click() Label0 Left=Labe10 Left+1 00 End Sub 打开窗口，单击命令按钮，结果是 （ A）标签向左加宽 （ B）标签向右加宽 （ C）标签向左移动 （ D）标签向右移动 15 假定有以下循环结构 Do Until 条件 循环体 Loop 则正确的叙述是 （ A）如果 “条件 ”值为 0，则一次循环体也不执行 （ B）如果 “条件 ”值为 0，则至少执行一次循环体 （ C）如果 “条件 ”值不为
6、0，则至少执行一次循环体 （ D）不论 “条件 ”是否为 “真 ”，至少要执行一次循环体 16 假定有以下程 序段 n=0 for i=1 to 3 for j=-4 to-1 n=n+1 next j next i 运行完毕后， n的值是 （ A） 0 （ B） 3 （ C） 4 （ D） 12 17 以下程序段运行结束后，变量 X的值为 X=2 Y=4 DO X=x*y Y=y+1 Loop While y 4 （ A） 2 （ B） 4 （ C） 8 （ D） 20 18 在窗体上添加一个命令按钮 (名为 Commandl)，然后 编写如下事件过程： Private Sub Comman
7、dl_Click() For i=1 To 4 X=4 Forj=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 （ C） 157 （ D） 528 19 在窗体中添加一个名称为 Commandl的命令按钮，然后编写如下事件代码： Private Sub Commandl_Click() Dim a(10， 10) For m=2 To 4 For n=4 To 5 a(m， n)=m*n Next n Next m MsgBox
8、a(2， 5)+a(3， 4)+a(4， 5) End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是 （ A） 22 （ B） 32 （ C） 42 （ D） 52 20 在窗体中添加一个名 称为 Commandl的命令按钮，然后编写如下事件代码： Private Sub Command l_Click() A=75 IfA 60 Then I=1 IfA 70 Then I=2 IfA 80 Then I=3 IfA 90 Then I=4 MsgBox I End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是 （ A） 1 （ B） 2 （ C） 3 （ D）
9、4 21 在窗体中添加一个名称为 Commandl的 命令按钮，然后编写如下事件代码： Private Sub Commandl_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选项 D是一个多分支选择结构；选项 B是一个循环结构。 【知识模块】 模块与 VBA编程基础 27 【正确答案】 A 【试题解析】 本题考查二重循环的知识。在这个二重循环中，外循环的执行次数为 4，内循环的执行次数也为 4，并且每次内循环退出后都要换行，所以最 后结果为一个 4*4的矩阵，矩
10、阵的每个元素都为 ”*”。 【知识模块】 模块与 VBA编程基础 28 【正确答案】 D 【试题解析】 本题考查结构化程序设计的知识。 VBA是一种结构化的程序设计方式，结构化的程序设计方式要求程序只能由顺序、分支和循环三种基本控制结构组成。 【知识模块】 模块与 VBA编程基础 29 【正确答案】 C 【试题解析】 本题考查 VBA中循环的知识。对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判 断条件，则无论条件如何至少执行一次循环体。在 Until循环中条件为 False时执行循环体，条件为 True时退出循环；在 While
11、循环中条件为 True时执行循环体，条件为 False时退出循环。这一点要注意区分清楚。本题中的 A循环执行 4次， B循环执行 1次， C循环一次也不执行， D循环执行 4次。 【知识模块】 模块与 VBA编程基础 30 【正确答案】 D 【试题解析】 本题考查程序设计的知识。本题的重点在于判断 Int(num2)=num 2是什么样的条件。对于任意一个整数来说，若其除 2后为整数，也 就是 Int(num 2)=num 2成立，说明该数是一个偶数：反之若其除 2后不为整数，此时 Int(num 2)必然不等于 hum 2，也就是一个整数不可能等于一个小数，说明该数是一个奇数。所以本题的功能是对输入的数据分别统计奇偶数的个数。 【知识模块】 模块与 VBA编程基础
