1、国家二级 ACCESS机试选择题（模块）模拟试卷 9及答案与解析 一、选择题 1 下列程序段运行结束后，变量 x的值是 ( )。 x=2 y=2 Do x=x * y y =y+1 Loop While y 4 （ A） 4 （ B） 12 （ C） 48 （ D） 192 2 如果变量 A是 Boolean型，则下列赋值语句中，正确的是 ( )。 （ A） A=“No“ （ B） A= No （ C） A=#TURE# （ D） A=2 10 3 下列选项中，与 VBA语句： Dim New， sumT等价的是 ( )。 （ A） Dim New As Integer， sum As Sin
2、gle （ B） Dim New As Integer， sum As Double （ C） Dim New As Double， sum As Single （ D） Dim New As Double， sum As Integer 4 下列程序段运行结束后，变量 c的值是 ( )。 a = 24 b = 328 select case b10 case 0 c =a*10+b case 1 t0 9 c = a * 100 +b case 10 t0 99 c = a * 1000 +b end select （ A） 537 （ B） 2427 （ C） 24328 （ D） 240
3、328 5 窗体上有命令按钮 commaM1，对应的 Click事件过程如下： Private Sub Command1_Click( ) Dim x As Integer x = InputBox(“请输入 x的值 “) Select Case x Case 1 ， 2 ， 4， 10 Debug Print “A“ Case 5 T0 9 Debug Print “B“ Case Is =3 Debug Print “C“ Case Else Debug Print “D“ End Select End Sub 窗体打开运行，单击命令按钮， 在弹出的输入框中输入 3，则立即窗口上显示的内容
4、是 ( )。 （ A） C （ B） A （ C） B （ D） D 6 下列 If语句的功能是统计性别为男、职称为副教授以上且年龄小于 40岁的人数，错误的语句是 ( )。 （ A） If sex=“男 “And age 40 InStr( duty， “教授 “) O Then n=n+1 （ B） If sex=“男 “And age 40 InStr( duty=“教授 “or duty=”副教授 ”) O Then n=n+1 （ C） If sex=“男 “And age 40 Right(duty， 2)=“教授 “Then n=n+1 （ D） If sex=“男 “And a
5、ge 40 And(duty=“教授 “Or duty=“副教授 “)Then n=n+1 7 由 “For i=1 T0 16 Step 3”决定的循环结构被执行 ( )。 （ A） 4次 （ B） 5次 （ C） 6次 （ D） 7次 8 要求循环执行 2次后结束循环，【】处应填入的语句是 ( )。 X=i Do x=x+2 Loop Until 【】 （ A） x =5 （ B） x 5 （ C） x =5 （ D） x 5 9 运行下列程序，结果是 ( )。 Private Sub Command32_Click( ) f0 =1： f1 =1： k =1 Do While k =5
6、f = f0+f1 f0 = f1 fl =f k =k+1 Loop MsgBox “f=“ y End Sub Public Sub Proc( n As Integer， ByVal m As Integer) n =n Mod 10 m =m Mod 10 End Sub 打开窗体运行后，单击命令按钮，立即窗口上输出的结果是 ( )。 （ A） 2 32 （ B） 12 3 （ C） 2 2 （ D） 12 32 18 假定有以下两个过程： Sub sl(ByVal x As Integer， ByVal y As Integer) Dim t As Integer t=x x=y y
7、=t End Sub Sub S2(x As Integer， y As Integer) Dim t As Integer t= x： x=y： y=t End Sub 下列说法正确的是 ( )。 （ A）用过程 S1可以实现交换两个变量的值的操作， S2不能实现 （ B）用过程 S2可以实现交换两个变量的值的操作， S1不能实现 （ C）用过程 S1和 S2都可以实现交换两个变量的值的操作 （ D）用过程 S1和 S2都不可以实现交换两个变量的值的操作 19 窗体中有命令按钮 Command1和文本框 Text1，事件过程如下： Function result( ByVal x As In
8、teger) As Boolean If x Mod 2=0 Then result=True Else result=False End If End Function Private Sub Command1_Click() x= Val(InputBox(“请输入一个整数 “) If【】 Then Text1=Str(x)k =2时， f = 3， f0 =2， f1=3， k =2 +1 =3;k =3时， f = 5 ， f0=3， f1=5， k =3 +1 =4;k =4时， f=8， f0=5， f1=8， k =4 +1 =5;k=5时， f=13， f0=8， f1=13，
9、k=6，不再满足循环条件跳出循环，此时 f=13。故选择 D选项。 【知识模块】 模块 10 【正确答案】 A 【试题解析】 Do Until循环采用的是先判断条件后执行循环体的做法，如果条件为 True，则循环体一次都不执行。否则进入循环体执行。本题中的循环停止条件是 y =25，而 y=0，满足条件表达式，则不进入循环体， x、 y的值不变，仍为1、 0。故选择 A选项。 【知识模块】 模块 11 【正确答案】 B 【试题解析】 Do循环是查找 m的因子，循环的条件是因子 k小于 m，因子 k初始值为 2，循环结束的条件是 k增加到 m 1结束，即 k m。故选择 B选项。 【知识模块 】
10、 模块 12 【正确答案】 A 【试题解析】 本题考查的是 for循环执行过程，通过 for循环输出等腰梯形。第一个循环用于控制输出的行数，第二个 for循环用于控制每行输出的字符数。从图中可看出，第 1行， 4个空格， 5个 *字符；第 2行， 3个空格， 7个 *字符；第 3行， 2个空格， 9个 *字符；第 4行， 1个空格， 1 1个 *字符；第 5行， 0个空格，13个 *字符；可看出行号与输出空格关系，假定有输入的为整数 m，第 k行，应输出 mk个空格；同理，第 k行，应输出 k+2 *m 2个 *号字符。故选择 A选项。 【知 识模块】 模块 13 【正确答案】 B 【试题解析
11、】 本题考查了 For循环控制结构的应用，本题中循环共执行了 5次，每次各变量赋值情况如下表所示： i x n sum 1 0/1 1 0 2 1/2 2 1/2 3 2/3 3 1/2 +2/3 4 3/4 4 1/2 +2/3 +3/4 5 4/5 5 1/2 +2/3 +3/4 +4/5 循环结束后， sum最后的值为 1/2+2/3+3/4+4/5，故选择 B选项。 【知识模块】 模块 14 【正确答案】 A 【试题解析】 本题考查循 环结构的使用， DoLoop Until 和 Do UntilLoop 都是当条件为假时，重复执行循环体，直到条件为真或遇到 Exit Do才结束循环；
12、DoLoop While 循环当条件为真时，执行循环体，当条件为假时，结束循环，选项 A条件为真，循环一次也不执行；选项 B循环执行 3次；选项 C循环执行 1次；选项 D循环执行 4次。故选择 A选项。 【知识模块】 模块 15 【正确答案】 B 【试题解析】 IIf函数、 Switch函数和 Choose函数是 VBA提供的 3个条件函数，而 If是程序流程控件的条件语 句，不是函数。故选择 B选项。 【知识模块】 模块 16 【正确答案】 B 【试题解析】 在 VBA中过程不可以嵌套定义，即不可以在一个过程中定义另一个过程，但是过程可以嵌套调用。故选择 B选项。 【知识模块】 模块 17
13、 【正确答案】 A 【试题解析】 参数有两种传递方式：传址传递 ByRef和传值传递 ByVal。如果没有说明传递类型，则默认为传址传递。在函数 Proc(n As Integer， ByVal m As Integer)参数中，形参 n默认为传址传递，形参的变化将会返回到 实参，即形参 n mod 10(12 mod 10)得到的结果 2将返回给实参 x，即 x=2；而 y为传值类型，不因形参的变化而变化，所以输出的 x和 y应为 2和 32。故选择 A选项。 【知识模块】 模块 18 【正确答案】 B 【试题解析】 VBA中定义过程时如果省略传值方式则默认为按地址传递，过程S2中省略了参数
14、传递方式说明，因此，参数将按传址调用，而过程 Sl由于声明为按值传递 (ByVal)，所以会按传值调用参数。而在过程调用时，如果按传值调用，实参只是把值传给了形参，在过程内部对形参值进行改变不会影 响实参变量，安址调用却不同，这种方式是把实参的地址传给了形参，在过程中对形参值进行改变也会影响实参的值。因此，过程 S2能够交换两个变量的值，而 S1不能实现。故选择 B选项。 【知识模块】 模块 19 【正确答案】 B 【试题解析】 本题程序是判断奇偶性的程序，函数 Result用来判断 x是否是偶数，如果 x是偶数，那么 Result的返回值为真，否则返回值为假，单击命令按钮时执行的过程是输入整
15、数 x，然后调用 Result函数，如果值为真，文本框会显示输入的值是偶数，否则显示输入的值为奇数。调用 Result函数且 Result函数值为真时的表达式为： Result(x)。故选择 B选项。 【知识模块】 模块 20 【正确答案】 D 【试题解析】 result函数返回的是布尔值： true或 false，根据主调过程Command1_Click中条件判断语句： If Not result(x) ThenText1=Str(x)&“是奇数 “ElseText1=Str(x)&“是偶数 “Endlf可知，当 “result(x)”返回值是 true时，显示 “是偶数 ”；当 “resu
16、lt(x)”返回值是 false时 ，显示 “是奇数 ”，所以程序中的【】处，应该是判断变量 “x”的奇偶性，如果是偶数，则返回 “true”，否则返回“false”，故本题应该填入语句 “x Mod 2=0”。故选择 D选项。 【知识模块】 模块 21 【正确答案】 A 【试题解析】 本题考查的是 for循环的初始条件。题目要求输出 m和 n的所有奇数之和，因此初始条件应该是一个奇数，即大于或等于 m的最小奇数。本题 m mod 2=1，说明 m为奇数，则表达式返回 m值，即 k=m，否则 m mod 2=0； m为偶数，则 m+1为奇数，返回 m+1。故选择 A选项。 【知识模块】 模块
