1、国家二级 ACCESS机试选择题（模块与 VBA编程基础）模拟试卷 8及答案与解析 一、选择题 1 使用 Function语句定义一个函数过程，其返回值的类型 （ A）只能是符号常量 （ B）是除数组之外的简单数据类型 （ C）可在调用时由运行过程决定 （ D）由函数定义时 As子句声明 2 下列逻辑表达式中，能正确表示条件 “x和 y都是奇数 ”的是 （ A） x Mod 2=1 Or y Mod 2=1 （ B） x Mod 2=0 Or y Mod 2=0 （ C） x Mod 2=1 And y Mod 2=1 （ D） x Mod 2=0 And y Mod 2=0 3 在窗体上添加
2、一个命令按钮 (名为 Command1)和一个文本框 (名为 Text1)，并在命令按钮中编写如下事件代码： Private Sub Command 1_Click() m=2 17 n=Len(Str$(m)+Space(5) Me!Text1=n End Sub 打开窗体运行后，单击命令按钮，在文本框中显示 （ A） 5 （ B） 8 （ C） 9 （ D） 10 4 在窗体中有一个标签 Lb1和一个命令按钮 Command1，事件代码如下 ： Option Compare Database Dim aAs String*10 Private Sub Command 1_Click() a
3、=“1234“ b=Len(a) Me Lb 1 Coption=b End Sub 打开窗体后单击命令按钮，窗体中显示的内容是 （ A） 4 （ B） 5 （ C） 10 （ D） 40 5 能够实现从指定记录集里检索特定字段值的函数是 （ A） DCount （ B） DLookup （ C） DMax （ D） DSum 6 下列数据类型中，不属于 VBA的是 （ A）长整型 （ B）布尔型 （ C）变体型 （ D）指针型 7 如果 X是一个正的实数，保留两位小数、将千分位四舍五入的表达式是 （ A） 0 01*Int(x+0 05) （ B） 0 01*Int(100*(X+0 005
4、) （ C） 0 01*Int(x+0 005) （ D） 0 01*Int(100*(X+0 005) 8 下列变量名中，合法的是 （ A） 4A （ B） A-1 （ C） ABC_1 （ D） pfivate 9 VBA语句 “Dim NewArray(10)as Integer”的含义是 （ A）定义 10个整型数构成的数组 NewArray （ B）定义 11个整型数构成的数组 NewArray （ C）定义 1个值为整型数的变量 NewArray(10) （ D）定义 1个值为 10的变量 NewArray 10 下列不属于 VBA函数的是 （ A） Choose （ B） If
5、（ C） IIf （ D） Switch 11 VBA程序中，可以实现代码注释功能的是 （ A）方括号 () （ B）冒号 (： ) （ C）双引号 (”) （ D）单引号 () 12 以下程序段运行结束后，变量 X的值为 X=2 y=4 Do x=x*y y=y+1 Loop While y 4 （ A） 2 （ B） 4 （ C） 8 （ D） 20 13 在窗体中添加一个名称为 Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click() s=“ABBACDDCBA“ For 1=6 To 2 Step -2 x=Mid(s， I， I)
6、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 14 下列 Case语句中错误的是 （ A） Case 0 To 10 （ B） Case Is 10 （ C） Case Is 10 And Is 50 （ D） Case 3 5 Is 10 15 下列四种形式的循环设计中，循环次数最少的是 （ A） a=5： b=8 Do A=a+1 Loop While a b （
7、B） a=5： b=8 Do a=a+1 Loop Until a b （ C） a=5： b=8 Do Until a b b=b+1 Loop （ D） a=5： b=8 Do Until a b a=a+1 Loop 16 在窗体中有一个名称为 run35的命令按钮，单击该按钮从键盘接收学生成绩，如果输入的成绩不在 0到 100分之间，则要求重新输入；如果输入的成绩正确，则进入后续程序处理。 run35命令按钮的 Click的事件代码如下： Pfivate Sub run35_Click() Dim flagAs Boolean result=0 flag=True Do While f
8、lag result=Val(InputBox(“请输入学生成绩： “， “输入 “) If result =0 And result =100 Then _ Else MsgBox “成绩输入错误，请重新输入 “ End If Loop Rem 成绩输入正确后的程序代码略 End Sub 程序中有一空白处，需要填入一条语句使程序完成其功能。 下列选项中错误的语句是 （ A） flag=False （ B） flag=Not flag （ C） flag=True （ D） Exit Do 17 在窗体中有一个文本框 Text1，编写事件代码如下： Private Sub Form_Click
9、() X=val(inputbox(“输入 x的值 “) Y=1 If 0 Then Y=2 Textl.Value=Y End Sub 打开窗体运行后，在输入框中输入整数 12，文本框 Text1中输出的结果是 （ A） 1 （ B） 2 （ C） 3 （ D） 4 18 在窗体上有一个命令按钮 Command1和一个文本框 Text1，编写事件代码如下 Private Sub Command1_Click() Dim i， j， x For i=1 To 20 sep 2 x=0 Forj=i To 20 step 3 x=x+1 Next j Next i Text1 Value=Str
10、(x) End Sub 打开窗体运行后，单击命令按钮，文本框中显示的结果是 （ A） 1 （ B） 7 （ C） 17 （ D） 400 19 下列能够交换变量 X和 Y值的程序段是 （ A） Y=X： X=Y （ B） Z=X： Y=Z： X=Y （ C） Z=X： X=Y： Y=Z （ D） Z=X： W=Y： Y=Z： X=Y 20 运行下列程序，输入数 据 8、 9、 3、 0后，窗体中显示结果是 Privste Sub Form_click() Dim sum As Integer， m As Integer sum=0 Do m=InputBox(“输入 m“) sum=sum+m
11、 Loop Until m=0 MsgBox sum End Sub （ A） 0 （ B） 17 （ C） 20 （ D） 21 21 下列程序的功能是计算 sum=1+(1+3)+(1+3+5)+(1+3+5+39) Private Sub Command34_Click() t=0 m=1 sum=0 Do T=t+m Sum=Sum+t m=_ Loop While m =39 MsgBox“Sum=“& sun End Sub 为保证程序正确完成上述功能，空白处应填入的语句是 （ A） m+1 （ B） m+2 （ C） t+1 （ D） t+2 22 若有如下 Sub过程： Sub
12、 sfun(x As Single， y As Single) t=x x=t y y=t Mod y End Sub 在窗体中添加一个命令按钮 comrnand33，对应的事件 过程如下： Pfivate Sub Command33_Click() Dim aAs Single Dim b As Single a=5： b=4 sfun(a， b) MsgBox a& chr(10)+chr(13) &b End Sub 打开窗体运行后，单击命令按钮，消息框中有两行输出，内容分别为 （ A） 1和 1 （ B） 1 25和 1 （ C） 1 25和 4 （ D） 5和 4 23 下列程序的功
13、能是计算 N=2+(2+4)+(2+4+6)+(2+4+6+40) 的值。 Pfivate Sub Command34_Click() t=0 m=0 sum=0 Do t=t+m sum=sum+t m=_ Loop While m 41 MsgBox “sum=“ & sum End Sub 空白处应该填写的语句是 （ A） t+2 （ B） t+1 （ C） m+2 （ D） m+1 24 Sub过程与 Function过程最根本的区别是 （ A） Sub过程的过程名不能返回值，而 Function过程能通过过程名返回值 （ B） Sub过程可以使用 Call语句或直接使用过程名调用，而
14、 Function过程不可以 （ C）两种过程参数的传递方式不同 （ D） Function过程可以有参数， Sub过程不可以 25 在过程定义中有语句： Privaat Sub GetData(ByVal data As Integer) 其中 “ByVal”的含义是 （ A）传值调用 （ B）传址调用 （ C）形式参数 （ D）实际参数 26 窗体中有命令按钮 Command1，事件过程如下： Public Function f(x As Integer)As Integer Dim y As Integer x=20 y=2 f=x*y End Function Private Sub
15、Command1_Click() Dim YAs Integer Static x As Integer x=10 y=5 y=f(x) Debug Print x； y End Sub 运行程序，单击命令按钮，则立即窗口中显示的内容是 （ A） 10 5 （ B） 10 40 （ C） 20 5 （ D） 20 40 27 在调试 VBA程序时，能自动被查出来的错误是 （ A）语法错误 （ B）逻辑错误 （ C）运行错误 （ D）语法错误和逻辑错误 28 在代码调试时，使用 Debug Print语句显示指定变量结果的窗口是 （ A）立即窗口 （ B）监视窗口 （ C）本地窗口 （ D）属性
16、窗口 国家二级 ACCESS机试选择题（模块与 VBA编程基础）模拟试卷 8答案与解析 一、选择题 1 【正确答案】 D 【试题解析】 本题考查 VBA中函数的知识。 VBA中的函数在定义时可以使用As指定函数返回值的类型，这个返回值的类型可以是简单数据类型，也可以是数组。如果在定义时没有指定类型则默认返回值为变体型。 【知识模块】 模块与 VBA编程基础 2 【正确答案】 C 【试题解析】 本题考查逻辑表达式的知识。判断奇偶数是程序设计中常见的判断， x Mod 2=1代表 x是奇数。如果要表达 x、 y都是奇数，则应该用 And连接两个表达式来表示 “与 ”，故此 C选项正确。 【知识模块
17、】 模块与 VBA编程基础 3 【正确答案】 D 【试题解析】 本题考查基本字符串函数的知识。在 vBA中， Str函数用于将数字转换成字符串， 2 17转换成字符串 “2 17”，后面再连接上 5个空格，然后用Len函数来求长度。最 后结果为 10。 【知识模块】 模块与 VBA编程基础 4 【正确答案】 C 【试题解析】 本题考查 VBA中定长字符串的知识。当声明一个变量为 String类型时，如果不加长度说明，则为变长字符串；如果加上长度说明，则为定长字符串。定长字符串变量无论给它赋予何值，长度都为初始声明时指定的长度。由于声明 a的长度为 10，故 Len(a)=10，所以 C选项是正
18、确的 【知识模块】 模块与 VBA编程基础 5 【正确答案】 B 【试题解析】 本题考查系统函数的知识。 DCount函数可用于确定指定 记录集中的记录数； DMax函数可用于确定指定记录集中的最小值和最大值； DSum函数可用于计算指定记录集中值集的总和； DLookup函数可用于从指定记录集获取特定字段的值。 【知识模块】 模块与 VBA编程基础 6 【正确答案】 D 【试题解析】 传统的 BASIC语言使用类型说明标点符号来定义数据类型， VBA则除此之外，还可以使用类型说明字符来定义数据类型。 在使用 VB代码中的字节、整数、长整数、自动编号、单精度和双精度数等的常量和变量与 Acce
19、ss的其他对象进行数据交换时，必须符合数据表、查询 、窗体和报表中相应的字段属性。 【知识模块】 模块与 VBA编程基础 7 【正确答案】 B 【试题解析】 Int(数值表达式 )函数为取整函数，返回数值表达式的整数部分。 【知识模块】 模块与 VBA编程基础 8 【正确答案】 C 【试题解析】 变量名必须以字母开头，大小写等价，不能包括空格或除下划线“_”之外的其他字符，不能使用 VBA的关键字，变量名长度小于 255个字符。 【知识模块】 模块与 VBA编程基础 9 【正确答案】 B 【试题解析】 dim newarray(10)as integer表示定义了 11个整型数构成的数组，数组
20、元素为 newarray(0)至 newarray(10)。 【知识模块】 模块与 VBA编程基础 10 【正确答案】 B 【试题解析】 IIf()函数，该函数可用于选择操作。调用格式为： IIf(条件表达式，表达式 1，表达式 2) 功能：函数根据 “条件表达式 ”的值来决定返回值。如果 “条件表达式 ”的值为“真 ”(True)，函数返回 “表达式 1”的值： “条件表达式 ”的值为 “假 ”(Flase)，函数返回 “表达式 2”的值。 Switch()函数，该函数可用于多条件选择操作。调用格式为： Switch(条件式 1，表达式 1，条件式 2，表达式 2 ，条件式 n，表达式 n)
21、 功能：函数分别根据 “条件式 1”、 “条件式 2”“ 条件式 n”的值来决定返回值。条件式是由左至右进行计算判断的，函数将返回第一个条件式为 True的对应 “表达式 ”的值。 Choose()函数，调用格式为： Choose()数值表达式，表达式 1，表达式 2 ，表达式 n) 功能：函数根据 “数值表达式 ”的值决定返回值。若不考虑变量的小数的定义位数，当 “数值表达式 ”值大于 1、小 于 2时，函数将返回 “表达式 1”的值；值大于2、小于 3，返回 “表达式 2”的值，依此类推。以上 3种函数均为 VBA的函数。 【知识模块】 模块与 VBA编程基础 11 【正确答案】 D 【试
22、题解析】 一个好的程序一般都有注释语句。这对程序的维护有很大的好处。 在 VBA程序中，注释可以通过以下两种方式实现： 使用 Rem语句，格式为： Rem注释语句 用单引号 “”，格式为： 注释语句。 【知识模块】 模块与 VBA编程基础 12 【正确答案】 C 【试题解析】 本题考查 VBA中循环的知 识。在本题中用了 DoLoopWhile 循环，先运行循环体后判断条件，当条件满足时继续循环，条件不满足时退出循环体。在本题中第一次循环结束后 y的值为 5已经不满足条件，故此本循环只执行一次， x的值为 2*4=8。 【知识模块】 模块与 VBA编程基础 13 【正确答案】 D 【试题解析】
23、 本题考查 VBA中循环和取子串函数的知识。在 VBA中有三种取子串函数： Left函数用于在字符串左端开始取 n个字符； Right函数用于在字符串右端开始取 n个字符 (注意子串中字符的顺序与母串中相同 )； Mid函数可以实 现在任何位置取任何长度的子串。在本题中由于循环每次都会为 z赋一个新的值Right(s， i)，所以只有最后一次循环中的 z值才有意义。最后一次循环时 i=2，所以 D选项正确。 【知识模块】 模块与 VBA编程基础 14 【正确答案】 C 【试题解析】 本题考查 Select Case语句的知识。 Case语句的后面可以包含一个值、一组枚举值、一个值的范围以及比较
24、运算符。但是当 Case语句使用 Is关键字的时候就不能再加入逻辑运算符如 And等。 【知识模块】 模块与 VBA编程基础 15 【正确答案 】 C 【试题解析】 本题考查 VBA中循环的知识。对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件。则无论条件如何至少执行一次循环体。在 Until循环中条件为 False时执行循环体，条件为 True时退出循环；在 While循环中条件为 True时执行循环体，条件为 False时退出循环，这一点要注意区分清楚。本题中的 A循环执行 4次， B循环执行 1次， C循环一次也不执行
25、， D循环执行 4次。 【知识模块】 模块与 VBA编程基础 16 【 正确答案】 C 【试题解析】 根据题目要求，当输入正确的成绩后，进入后续的程序处理， Flag初始为。 True，进入 do while循环，循环条件为 Flag。当输入错误的成绩时，提示信息并不改变 Flag标记，即还为 True，继续进行循环；当输入正确成绩时，应将 Flag标记为 False，这样才可以跳出循环，继续后续的程序处理，否则将一直停留在循环这里。 【知识模块】 模块与 VBA编程基础 17 【正确答案】 B 【试题解析】 根据题意，可知首先将输入的数值赋给 X， Y初始值为 1，接着判断 x是 否不为 0
26、(即输入的值是否不为 0)，如果不为 0，则 Y的值为 2，并且将 Y的值赋给文本框 Text1。由于题意中输入的是 12，不为 0，此时 Y的值为 2，所以文本框中输出的结果为 2。 【知识模块】 模块与 VBA编程基础 18 【正确答案】 A 【试题解析】 外循环每次循环都将 x重置为 0，所以只看外循环的最后一次即i=20时，此时内循环 j=i=20开始以步长为 2开始递增，递增一次执行x=x+1=0+1=1后便结束循环，所以最后文本框显示的结果为 1。 【知识模块】 模块与 VBA编程基础 19 【正 确答案】 C 【试题解析】 想要交换 X与 Y的值，需要另一个变量作为中间变量 z，
27、先把 x值赋给 z，再把 Y值赋给 X，最后把 z的值赋给 Y，交换完毕。 【知识模块】 模块与 VBA编程基础 20 【正确答案】 C 【试题解析】 DoUntil Loop 循环结构是当条件为假时，重复执行循环体，直至条件表达式为真，结束循环。当输入 8、 9、 3三个数字条件 (m=0)不成立，所以累加，直到输入 0后结束，即 8+9+3=20。 【知识模块】 模块与 VBA编程基础 21 【正确答案】 B 【试题 解析】 根据题中计算式可以找出规律， m变量为奇数，且相邻两个奇数相差为 2，所以本题选 B)。 【知识模块】 模块与 VBA编程基础 22 【正确答案】 B 【试题解析】
28、由题意可知 sfun函数实现求除数和求余数的功能，所以最终结果是 1 25和 1。 【知识模块】 模块与 VBA编程基础 23 【正确答案】 C 【试题解析】 m每次递增加 2，得到的数值为 2、 4、 6等，在每次循环的开始，则 t的值为 2、 (2+4)、 (2+4+6)等， sunl的值为 2， 2+(2+4)， 2+(2+4)+(2+4+6)等符合要求。 【知识模块】 模块与 VBA编程基础 24 【正确答案】 A 【试题解析】 本题考查函数过程和子过程的知识。函数过程和子过程都是过程，都可以使用 Call语句进行调用，都可以指定参数，并且都可以指定用传址还是传值的方式进行参数传递。它
29、们除了定义的关键字不同外的根本区别是：函数过程最终会通过过程名返回一个函数值，而子过程不会。 【知识模块】 模块与 VBA编程基础 25 【正确答案】 A 【试题解析】 参数有两种传递方式：传址传递和传值传递。如果在过程声明时形参用 ByVal声明，说明此参数为传值调用，此时形参的变化不会返回到实参；若用 ByRef声明，说明此参数为传址调用，此时形参的变化将会返回到实参；没有说明传递类型，则默认为传址传递。 【知识模块】 模块与 VBA编程基础 26 【正确答案】 B 【试题解析】 static为静态变量，要在过程的实例间保留局部变量的值，用此变量，它的持续时间是整个模块执行的时间，但它的有效作用范围是由其定义位置决定的。 【知识模块】 模块与 VBA编程基础 27 【正确答案】 A 【试题解析】 在调试 VBA程序时，通过语法分析能自动检查语法是否错误，而不能检查逻辑错误。 【知识模块】 模块与 VBA编程基础 28 【正确答案】 A 【试题解析】 立即窗口是用来进行快速的表达式计算、简单方法的操作及进行程序测试的工作窗口。在代码窗口编写代码时，要在立即窗口打印变量或表达式的值，可使用 Debug Print语句。 【知识模块】 模块与 VBA编程基础
