1、国家二级 ACCESS机试选择题（模块与 VBA编程基础）模拟试卷 5及答案与解析 一、选择题 1 用来测试当前读写位置是否达到文件末尾的函数是 （ A） EOF （ B） FileLen （ C） Len （ D） LOF 2 下列表达式中，能够保留变量 x整数部分并进行四舍五入的是 （ A） Fix(x) （ B） Rnd(x) （ C） Round(x) （ D） Int(x) 3 VBA程序中，可以实现代码注释功能的是 （ A）方括号 () （ B）冒号 (： ) （ C）双引号 (”) （ D）单引号 () 4 在窗口中有一个标签 Label0和一个命令按钮 Commandl， Co
2、mmandl的事件代码如下： Private Sub Commandl_Click() Labe10 Left=Labe10 Left+1 00 End Sub 打开窗口，单击命令按钮，结果是 （ A）标签向左加宽 （ B）标签向右加宽 （ C）标签向左移动 （ D）标签向右移动 5 假定有以下循环结构 Do Until条件 循环体 Loop 则正确的叙述是 （ A）如 果 “条件 ”值为 0，则一次循环体也不执行 （ B）如果 “条件 ”值为 0，则至少执行一次循环体 （ C）如果 “条件 ”值不为 0，则至少执行一次循环体 （ D）不论 “条件 ”是否为 “真 ”，至少要执行一次循环体 6
3、 假定有以下程序段 n=0 for i=l to 3 forj=-4 to-1 n=n+1 nextj next i 运行完毕后， n的值是 （ A） 0 （ B） 3 （ C） 4 （ D） 12 7 以下程序段运行结束后，变量 X的值为 X=2 y=4 Do X=x*y Y=y+l Loop While y 4 （ A） 2 （ B） 4 （ C） 8 （ D） 20 8 在窗体上添加一个命令按钮 (名为 Commandl)，然后编写如下事件过程： Private Sub Command l Click() For i=1 To 4 X=4 For i=1 To 3 X=3 For k=1
4、 To 2 X=x+6 Next k Next j Next i MsgBox X End Sub 打开窗体后，单击命令按钮，消息框的输出结果是 （ A） 7 （ B） 15 （ C） 157 （ D） 528 9 在窗体中添加一个名称为 Commandl的命令按钮，然后编写如下事件代码： Private Sub Command l 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 a(2， 5)+a(3， 4)+a(4， 5) End Sub 窗体打开运行后，单击命令按钮，则消息框
5、的输出结果是 （ A） 22 （ B） 32 （ C） 42 （ D） 52 10 在窗体中添加一个名称为 Commandl的命令按钮，然后编写如下事件代码： Private Sub Command l Click() A=75 IfA 60 Then I=1 IfA 70 Then I=2 IfA 80 Then 1=3 IfA 90 Then 1=4 MsgBox I End Sub 窗体打开运行后，单击命令按钮则消息框的输出结果是 （ A） 1 （ B） 2 （ C） 3 （ D） 4 11 在窗体中添加一个名称为 Commandl的命令按钮，然后编写如下事件代码： Private Su
6、b Command 1 Click() S=“ABBACDDCBA” For I=6 T0 2 Step-2 x=Mid(s， I， I) y=Lefl(s， I) z=Right(s， I) z=X&Y&Z Next I MsgBox Z End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是 （ A） AABAAB （ B） ABBABA （ C） BABBA （ D） BBABBA 12 在窗体中添加一个名称为 Commandl的命令按钮，然后编写如下事件代码： Private Sub Command l Click() a=75 If a 60 Then k=1 Elsel
7、f a 70 Then k=2 Elself a 80 Then k=3 Elself a 90 Then k=4 Endlf MsgBox k End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是 （ A） 1 （ B） 2 （ C） 3 （ D） 4 13 设有如下窗体单击事件过程： Private Sub Form Click() a=l For i=1 To 3 Select Case i Case 1 3 a=a+1 Case 2， 4 a=a+2 End Select Next i MsgBox a End Sub 打开窗体运行后，单击窗体，则消息框的输出的结果是 （
8、 A） 3 （ B） 4 （ C） 5 （ D） 6 14 设有如下程序： Private Sub Commandl_Click() Dim sum As Double， x As Double Sum=0 n=0 For i=1 To 5 x=n i 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+1 3+l 4+1 5 （ C） 1 2+2 3+3 4+4 5 （ D） 1 2+1 3+1 4+1 5 15 下列 Case语句中错误的是 （ A） C
9、ase 0 To 10 （ B） Case Is 10 （ C） Case Is 10 And Is 50 （ D） Case 3,5 Is 10 16 下列不是分支结构的语句是 （ A） IfThenEndIF （ B） WhileWend （ C） IfThellElseEndlf （ D） SelectCaseEnd Select 17 在窗体中使用一个文本框 (名为 n)接受输入的值，有一个命令按钮 run，事件代码如下： Private Sub run Click() result=“” For i=l To Me!n For j=l To Me!n result=result+“*
10、” Nextj result=result+Chr(13)+Chr(10) Next i MesgBox result End Sub 打开窗体后，如果通过文本框输入的的值为 4，单击命令按钮后输出的图型是18 VBA程序流程控制的方式是 （ A）顺序控制和分支控制 （ B）顺序控制和循环控制 （ C）循环控制和分支控制 （ D）顺序、分支和循环控制 19 下列四种形式的循环设计中，循环次数最少的是 （ A） a=5： b=8 Do A=a+1 Loop While a b （ B） a=5： b=8 Do a=a+l Loop Until a b （ C） a=5： b=8 Do Until
11、 a b b=b+l Loop （ D） a=5： b=8 Do Until a b a=a+1 Loop 20 在窗体中有一个命令按钮 run35，对应的事件代码如下： Private Sub run35 Enter() Dim num As Integer Dim aAs Integer DimbAs Integer Dim i As Integer For i=l To 10 num=InputBox(“请输入数据： ”， “输入 ”， 1) If Int(num 2)=num 2 Then a=a+l Else B-b+1 End If Next i MsgBox(“运行结果： a=”
12、 Str(a)&： “， b=” Str(b) End Sub 运行以上事件所完成的功能是 （ A）对输入的 10个数据求累加和 （ B）对输入的 10个数据求各自的余数，然后再进行累加 （ C）对输入的 10个数据分别统计有几个是整数，有几个是非整数 （ D）对输入的 10个数据分别统计有几个是奇数，有几个是偶数 21 在 VBA中，错误的循环结构是 （ A） Do While条件式 循环体 Loop （ B） Do Until条件式 循环体 Loop （ C） Do Until 循环体 Loop条件式 （ D） Do 循环体 Loop While条件式 22 在窗体中有一个命令按钮 (名称
13、为 run34)，对应的事件代码如下： Pfivte Sub run34_Click() sum=0 For i=10 To 1 Step-2 sum=sum+i Next i MsgBox sum End Sub 运行以上事件，程序的输出结果是 （ A） 10 （ B） 30 （ C） 55 （ D）其他结果 23 在窗体中有一个名称为 run35的命令按钮，单击该按钮从键盘接收学生成绩，如果输入的成绩不在 0到 100分之间，则要求重新输入；如果输入的成绩正确，则进入后续程序处理。 run35命令按钮的 Click的事件代码如下： Pfivte Sub run35_Click() Dim
14、flag As Boolcan result=0 flag=True Do While flag result=Val(InputBox(“请输入学生成绩 :”输入 ”) If result =0 And result =100 Then _ Else MsgBox “成绩输入错误，请重新输入 ” End If Loop Rem 成绩输入正确后的程序代码略 End Sub 程序中有一空白处，需要填入一条语句使程序完成其功能。下列选项中错误的语句是 （ A） flag=False （ B） nag=Not flag （ C） flag=True （ D） Exit Do 24 下列四个选项中，不
15、是 VBA的条件函数的是 （ A） Choose （ B） If （ C） IIf （ D） Switch 25 设有如下过程： x=l Do x=x+2 Loop Until_ 运行程序，要求循环体执行 3次后结束循环，空白处应填入的语句是 （ A） x =7 （ B） x 7 （ C） x =7 （ D） x 7 26 在窗体中添加一个名称为 Commandl的命令按钮，然后编写如下事件代码： Private Sub Commandl_Click() MsgBox f(24， 18) End Sub Public Function f(m As Integer， n As Integer)
16、As Integer Do While m n Do While m n m=m-n Loop Do While m n n=n-m Loop Loop f=m End Function 窗体打开运行后，单击命令按钮，则消息框的输出结果是 （ A） 2 （ B） 4 （ C） 6 （ D） 8 27 在窗体中有一个文本框 Textl，编写事件代码如下： Pfivate Sub Form_Click() X=val(Inputbox(“输入 X的值 ”) Y=1 lf X 0 Then Y=2 Textl Value=Y End Sub 打开窗体运行后，在输入框中输入整数 12，文本框 Text
17、l中输出的结果是 （ A） 1 （ B） 2 （ C） 3 （ D） 4 28 在窗体中有一个命令按钮 Commandl和一个文本框 Textl，编写事件代码如下： Private Sub Commandl_Click() For I=1 To 4 x=3 For j=1 To 3 For k=1 T0 2 x=x+3 Next k Next j Next I Textl value=Str(x) End Sub 打开窗体运行后，单击命令按钮，文本框 Textl输出的结果是 （ A） 6 （ B） 12 （ C） 18 （ D） 2l 29 在窗体中有一个命令按钮 Commandl，编写事件代
18、码如下： Private Sub CommandI_Click() Dim S As Integer S=P(1)+P(2)+P(3)+P(4) debug Print S End Sub Public 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 30 由 “For i=l To 9 Step-3”决定的循环结构，其循环体将被执行 （ A
19、） 0次 （ B） 1次 （ C） 4次 （ D） 5次 31 在窗体上有一个命令按钮 Commandl和一个文本框 Textl，编写事件代码如下 Private Sub Commandl_Click() 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 32 在窗体上有一个命令按钮 Commandl，编写事件代码如下： Priva
20、te Sub Commandl_Click() Dim Y As Integer y=0 Do Y=InPutBox“Y”) If(y Mod 10)+Int(y 10)=10 Then Debug 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 33 若变量 i的初值为 8，则下列循环语句中循环
21、体的执行次数为 Do While i =17 i=i+2 Loop （ A） 3次 （ B） 4次 （ C） 5次 （ D） 6次 34 InputBox函数的返回值类型是 （ A）数值 （ B）字符串 （ C）变体 （ D）视输入的数据而定 35 下列能够交换变量 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 36 窗体中有命令按钮 commanddl和文本框 Textl，事件过程如下： Function result(ByVal x As Integer)As B
22、oolean Ifx Mod 2=0 Then result=True Else result=False End If End Function Private Sub CommandI_Click() x=Val(InputBox(“请输入一个整数 ”) If_Then Textl=str(x、 )&“是偶数 ” Else Textl=str(x)&“是奇数 ” End If End Sub 运行程序，单击命令按钮，输入 19，在 Textl中会显示 “19是奇数 ”。那么在程序的空白处应填写 （ A） result(x)=“偶数 ” （ B） result(x) （ C） result(
23、x)=“奇数 ” （ D） NOT result(x) 37 窗体有命令按钮 Commandl和文本框 Textl，对应的事件代码如下： Private Sub Command lClick() For i=1 To 4 x=3 Forj=1 To 3 For k=l To 2 x=x+3 Next k Next i Next i Textl Value=Str(x) End Sub 运行以上事件过程，文本框中的输出是 （ A） 6 （ B） 12 （ C） 1 8 （ D） 21 38 窗体中有命令按钮 run34，对应的事件代码如下： Private Sub run34_nter() Di
24、m num As Integer， a As Integer， b As Integer， i As Integer For i=1 To 10 num=InputBox(“请输入数据： ”， “输入 ”) If Int(num 2)=num 2 Then a=a+l Else b=b+l End If Next i MsgBox(“运行结果： a=“&Str(a)&”， b=“&Str(b) End Sub 运行以上事件过程，所完成的功能是 （ A）对输入的 10个数据求累加和 （ B）对输入的 10个数据求各自的余数，然后再进行累加 （ C）对输入的 10个数据分别统计奇 数和偶数的个数
25、（ D）对输入的 10个数据分别统计整数和非整数的个数 39 运行下列程序，输入数据 8、 9、 3、 0后，窗体中显示结果是 Private Sub Form_click() Dim sum As Integer， m As Integer sum=0 Do m=InputBox(“输入 m”) sum=sum+m Loop Until m=0 MsgBox sum End Sub （ A） 0 （ B） 17 （ C） 20 （ D） 2l 40 运行下列程序段，结果是 For m=10 to 1 step 0 k=k+3 Next m （ A）形成死循环 （ B）循环体不执行即结束循环
26、（ C）出现语法错误 （ D）循环体执行一次后结束循环 国家二级 ACCESS机试选择题（模块与 VBA编程基础）模拟试卷 5答案与解析 一、选择题 1 【正确答案】 A 【试题解析】 在到达文件末尾之前， EOF函数一直返回 False，到达文件末尾时， EOF返回 True； FileLen函数返回一个文件的长度，单位为字 节； Len返回文本串的字符数； LOF函数返回某文件的字节数。 【知识模块】 模块与 VBA编程基础 2 【正确答案】 C 【试题解析】 Fix(x)和 Int(x)返回 x的整数部分，对于小数部分完全舍弃。 Rnd(x)返回一个随机数， Round(x)保留 x的整
27、数部分并进行四舍五入。 【知识模块】 模块与 VBA编程基础 3 【正确答案】 D 【试题解析】 一个好的程序一般都有注释语句。这对程序的维护有很大的好处。 在 VBA程序中，注释可以通过以下两种方式实现： 使用 Rem语句，格式为： Rem注释语句 用单引号 “”，格式为： 注释语句 【知识模块】 模块与 VBA编程基础 4 【正确答案】 D 【试题解析】 Left表示的是控件的左边距，所以 left+100表示控件向右移动。 【知识模块】 模块与 VBA编程基础 5 【正确答案】 B 【试题解析】 本题考查 V BA中 Do UntilLoop 循环的知识。对于这种循环结构，首先看条件判断
28、在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条 件，则无论条件如何至少执行一次循环体。在 Until循环中条件为 False时执行循环体，条件为 True时退出循环；在 While循环中条件为 True时执行循环体，条件为 False时退出循环，这一点要注意区分清楚。本题中是先判断条件，条件值为 0表示条件是 False，则至少执行一次循环体。 【知识模块】 模块与 VBA编程基础 6 【正确答案】 D 【试题解析】 本题考查 VBA中嵌套 For循环的知识。这种问题要注意分析清楚每次循环的变化以及循环的次数。在这个循环中，内循环执行 4次，外循环执行 3
29、次，所以 里面的循环体语句 n=n+1共执行 12次，所以最终 n的值为 12。 【知识模块】 模块与 VBA编程基础 7 【正确答案】 C 【试题解析】 本题考查 VBA中循环的知识。在本题中用了 DoLoop While 循环，先运行循环体后判断条件，当条件满足时继续循环，条件不满足时退出循环体。在本题中第一次循环结束后 y的值为 5已经不满足条件，故此本循环只执行一次， x的值为 2*4=8。 【知识模块】 模块与 VBA编程基础 8 【正确答案】 B 【试题解析】 本题考查 VBA中多重循环的知识。见到 多重循环的问题不要害怕，认真地分析清楚每一次循环这种问题就迎刃而解了。比如这个例子
30、，我们看到，在每一次外循环开始的时候都把 x的值置为 4，所以我们只分析最后一次循环就可以了；同理中层循环每一次开始前都把 x置为 3，所以这个问题最后实际上就是 x的初值为 3，执行最内层循环直到结束就可以了。根据程序内循环执行两次，最后 x=3+6+6=1 5。 【知识模块】 模块与 VBA编程基础 9 【正确答案】 C 【试题解析】 本题考查数组和二重循环的知识。在这个问题中，我们实际上可以分析出，数组元素的值就是该元素 的两个下标之积 (循环范围内 )。所以最后的三个数组元素的和也就是 2*5+3*4+4*5=42。 【知识模块】 模块与 VBA编程基础 10 【正确答案】 B 【试题
31、解析】 本题考查 VBA中选择结构的知识。在本题中用了多个 If分支结构，这些结构是顺序的而不是嵌套的，所以会顺序执行判断是否满足条件。首先75大于 60。所以 i=1，然后再判断 75大于 70。所以 i=2，再接着判断 75既不大于80也不大于 90，所以最后消息框里输出的 i值为 2。 【知识模块】 模块与 VBA编程基础 11 【正确答案】 D 【试题解析】 本题考查 VBA中循环和取子串函数的知识。在 VBA中有三种取子串函数： Left函数用于在字符串左端开始取 n个字符； Right函数用于在字符串右端开始取 n个字符 (注意子串中字符的顺序与母串中相同 )； Mid函数可以实现
32、在任何位置取任何长度的子串。在本题中由于循环每次都会为 z赋一个新的值Right(s， i)，所以只有最后一次循环中的 z值才有意义。最后一次循环时 i=2，所以 D选项正确。 【知识模块】 模块与 VBA编程基础 12 【正确答案】 A 【试题解析】 本题考查多分支选 择的知识。这个问题比较简单，只要知道这是一个多分支选择结构，当执行某分支后就会退出分支执行分支下面的语句就可以做对。本题中第一一个分支条件就得到满足，所以执行 k=1后退出分支结构，最终结果 k=1。 【知识模块】 模块与 VBA编程基础 13 【正确答案】 C 【试题解析】 本题考查 VBA程序设计中的多分支选择和循环的知识
33、。在本题的程序中，共循环三次，第一次 i的值为 1，故此执行 Case语句中的 a=a+1；第二次 i的值为 2，故此执行 Case语句中的 a=a+2；第一次 i的值为 3，故此执行 Case语句 中的 a=a+1。所以最后 a的值为 1+1+2+1=5。 【知识模块】 模块与 VBA编程基础 14 【正确答案】 C 【试题解析】 本题考查 VBA中循环结构的知识。这类问题需要分析出每一次循环所做的操作。第一次循环时， i=1， n=0， x=0 1，所以累加上去的是 0 1；第二次循环时， i=2， n=1， x=1 2，所以累加上去的是 1 2；第三次循环时， i=3，n=2， x=2
34、3，所以累加上去的是 2 3；循环 5次后累加的应该是 0 1+1 2+23+3 4+4 5。 【知识模块】 模块与 VBA编 程基础 15 【正确答案】 C 【试题解析】 本题考查 Select Case语句的知识。 Case语句的后面可以包含一个值、一组枚举值、一个值的范围以及比较运算符。但是当 Case语句使用 Is关键字的时候就不能再加入逻辑运算符如 And等。 【知识模块】 模块与 VBA编程基础 16 【正确答案】 B 【试题解析】 本题考查控制结构的知识。选项 A是一个单分支选择结构；选项C是一个双分支选择结构；选项 D是一个多分支选择结构；选项 B是一个循环结构。 【知识模块】
35、 模块与 VBA编程基础 17 【正确答案】 A 【试题解析】 本题考查二重循环的知识。在这个二重循环中，外循环的执行次数为 4，内循环的执行次数也为 4，并且每次内循环退出后都要换行，所以最后结果为一个 4*4的矩阵，矩阵的每个元素都为 “*”。 【知识模块】 模块与 VBA编程基础 18 【正确答案】 D 【试题解析】 本题考查结构化程序设计的知识。 VBA是一种结构化的程序设计方式，结构化的程序设计方式要求程序只能由顺序、分支和循环三种基本控制结构组成。 【知识模块】 模块与 VBA编程基础 19 【正确答 案】 C 【试题解析】 本题考查 VBA中循环的知识。对于这种循环结构，首先看条
36、件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件如何至少执行一次循环体。在 IJntil循环中条件为 False时执行循环体，条件为 True时退出循环；在 While循环中条件为 True时执行循环体，条件为 False时退出循环，这一点要注意区分清楚。本题中的 A循环执行 4次， B循环执行 1次， C循环一次也不执行， D循环执行 4次。 【知识模块】 模块与 VBA编程基础 20 【正确答案】 D 【试题解析】 本题考查程序设计的知识。本题的重点在于判断 Int(num2)=num 2是什么样的条件。对于任意一个整数来说，若其除
37、2后为整数，也就是 Int(num 2)=num 2成立，说明该数是一个偶数；反之若其除 2后不为整数，此时 Int(num 2)必然不等于 num 2，也就是一个整数不可能等于一个小数，说明该数是一个奇数。所以本题的功能是对输入的数据分别统计奇偶数的个数。 【知识模块】 模块与 VBA编程基础 21 【正确答案】 C 【试题解析】 “条件式 ”放 在 While或 Until后面。 【知识模块】 模块与 VBA编程基础 22 【正确答案】 B 【试题解析】 i=10，每循环一次递减 2。 第一次循环结果： i=10， sum=sum+i=0+10=10 第二次循环结果： i=8， sum=s
38、um+i=10+8=18 第三次循环结果： i=6， sum=sum+i=18+6=24 第四次循环结果： i=4， sum=sum+i=24+4=28 第五次循环结果： i=2， sum=sum+i=28+2=30 【知识模块】 模块与 VBA编程基础 23 【正确答案】 C 【试题解析】 根据题目要求，当输入正确的成绩后，进入后续的程序处理， Flag初始为 True，进入 do while循环，循环条件为 Flag。当输入错误的成绩时，提示信息并不改变 Flag标记，即还为 True，继续进行循环；当输入正确成绩时，应将Flag标记为 False，这样才可以跳出循环，继续后续的程序处理，
39、否则将一直停留在循环这里。 【知识模块】 模块与 VBA编程基础 24 【正确答案】 B 【试题解析】 本题考查条件函数的知识。 VBA中的条件函数共有 3个： IIF函数根据表达式的真假值返回两个表达式之一； Switch函数对表达式列表求值，并返回一个 Variant类型的值或与列表中第一个为 True的表达式相关联的表达式；Choose函数从参数列表中选择值并返回。 【知识模块】 模块与 VBA编程基础 25 【正确答案】 C 【试题解析】 本题考查循环的基础知识。本题目要求循环 3次，当第 3次循环结束时 x的值为 7，而 Until型循环的特点是当条件表达式为真的时候结束循环，故此条
40、件应该是 x =7。 【知识模块】 模块与 VBA编 程基础 26 【正确答案】 C 【试题解析】 本题考查 VBA程序设计的知识。当调用函数时，形参 m=24，n=18；然后进入循环，由于 m n，所以执行 m=m-n， m的值变为 6；第 2次循环时由于 m n，所以执行 n=nm， n的值变为 12；第 3次循环时由于 m n，所以执行 n=nm， n的值变为 6，此时结束循环返回 6。 【知识模块】 模块与 VBA编程基础 27 【正确答案】 B 【试题解析】 根据题意，可知首先将输入的数值赋给 X， Y初始值为 1，接着判断 X是否不为 0(即输入的值是否不为 0)， 如果不为 0，
41、则 Y的值为 2，并且将 Y的值赋给文本框 Textl。由于题意中输入的是 12，不为 0，此时 Y的值为 2，所以文本框中输出的结果为 2。 【知识模块】 模块与 VBA编程基础 28 【正确答案】 D 【试题解析】 各层循环过程及结果如下表所示：运行结束后，X的最终值为 2l。 【知识模块】 模块与 VBA编程基础 29 【正确答案】 B 【试题解析】 从函数 P的代码可知，其功能是计算从 1到 N的和，在命令按钮的单击事件代码中，可知 S为 P(1)， P(2)， P(3)， P(4)的和，显然 P(1)=1，P(2)=1+2=3， P(3)=1+2+3=6， P(4)=1+2+3+4=
42、10，所以 S=l+3+6+10=20。 【知识模块】 模块与 VBA编程基础 30 【正确答案】 A 【试题解析】 循环变量 I从 1到 9按递减顺序，由于 1一 3=-2不满足条件，所以一次也不执行。 【知识模块】 模块与 VBA编程基础 31 【正确答案】 A 【试题解析】 外循环每次循环都将 x重置为 0，所以只看外循环的最后一次即i=20时，此时内循环 i=i=20开始以步长为 2开始递增，递增一次执行X=X+1=O+l=l后便结束循环，所以最后文本框显示的结果为 1。 【知识模块】 模块与 VBA编程基础 32 【正确答案】 D 【试题解析】 立即窗口显示输入的数字。当输入第一个数
43、字 10时， (y mod 10)+int(y 10)=0+1=1不等于 10，不显示；当输入第二个数字 37时， (y mod 10)+int(y 10)=7+3=10，显示数字 37，依次类推，结果为选项 D)。 【知识模块】 模块与 VBA编程基础 33 【正确答案】 C 【试题解析】 Do WhileLoop 循 环结构是当条件为假时，重复执行循环体，直至条件表达式为真，结束循环。【知识模块】 模块与 VBA编程基础 34 【正确答案】 B 【试题解析】 InputBox输入框：在对话框中显示提示，等待使用者输入文字或按一下按钮，再返回包含文本框内容的字符串类型值。 【知识模块】 模块
44、与 VBA编程基础 35 【正确答案】 C 【试题解析】 想要交换 X与 Y的值，需要另一个变量作为中间变量 Z，先把 X值赋给 Z，再把 Y值赋给 X，最后把 z的值赋给 Y，交换完毕。 【知识模块】 模块与 VBA编程基础 36 【正确答案】 B 【试题解析】 result函数返回的是布尔值： True或 False， x Mod 2=0表示如果一个数除以 2为 O代表是偶数，那么返回 True值，所以条件判断时只要调用result(x)即可。 【知识模块】 模块与 VBA编程基础 37 【正确答案】 D 【试题解析】 此处嵌套三层循环，最外层循环总是把 x值初始化为 3，所以只看内两层循
45、环的次数及累加，内两层一共循环 3， -2=6次，每次 x的值累加 3，即共累加 6木 3： 18，再加上初始值 x=3+1 8=21。 【知识模块】 模块与 VBA编程基础 38 【正确答案】 C 【试题解析】 因 num变量为整型，所以每次输入的数据是整数， int函数是取整函数，如果 num为整数，则 int(num 2)与 num 2相等，否则不等，所以此事件代码完成的功能是统计输入奇数与偶数的个数。 【知识模块】 模块与 VBA编程基础 39 【正确答案】 C 【试题解析】 DoUntil Loop 循环结构是当条件为假时，重复执行循环体，直至条件表达式为真，结束循环。当输入 8、 9、 3三个数字条件 (m=0)不成立， 所以累加，直到输入 0后结束，即 8+9+3=20。 【知识模块】 模块与 VBA编程基础 40 【正确答案】 B 【试题解析】 FOR是循环语句，当 step =0时， to前数字要小于后面数字，否则将不执行。本题中 to前数字是 10大于后面数字 1则不执行此循环体，直接跳过。 【知识模块】 模块与 VBA编程基础
