[计算机类试卷]国家二级ACCESS机试选择题（模块与VBA编程基础）模拟试卷18及答案与解析.doc

1、国家二级 ACCESS机试选择题（模块与 VBA编程基础）模拟试卷 18及答案与解析 一、选择题 1 可以用 InputBox函数产生 “输入对话框 ”。执行语句： st=InputBox(”请输入字符串 ”， ”字符串对话框 “,“aaaa”) 当用户输入字符串 “bbbb”，按 OK按钮后，变量 st的内容是 （ A） aaaa （ B）请输入字符串 （ C）字符串对话框 （ D） bbbb 2 下列不属于 VBA函数的是 （ A） Choose （ B） If （ C） IIf （ D） Switch 3 下 列关于 VBA事件的叙述中，正确的是 （ A）触发相同的事件可以执行不同的事件

2、过程 （ B）每个对象的事件都是不相同的 （ C）事件都是由用户操作触发的 （ D）事件可以由程序定义 4 用来测试当前读写位置是否达到文件末尾的函数是 （ A） EOF （ B） FileLen （ C） Len （ D） LOF 5 下列表达式中，能够保留变量 X整数部分并进行四舍五入的是 （ A） Fix(x) （ B） Rnd(x) （ C） Round(x) （ D） Int(x) 6 VBA程序中，可以实现代码注释功能的是 （ A）方括号 () （ B）冒号 (： ) （ C）双引号 (”) （ D）单引号 () 7 在窗口中有一个标签 L如 elO和一个命令按钮 Commandl

3、， Commandl的事件代码如下： Private Sub Command1_Click() Labe10 Lefl=Label0 Left+100 End Sub 打开窗口，单击命令按钮，结果是 （ A）标签向左加宽 （ B）标签向右加宽 （ C）标签向左移动 （ D）标签向右移动 8 假定有以下循环结构 Do Until条件 循环体 Loop 则正确的叙述是 （ A）如果 “条件 ?值为 0，则一次循环体也不执行 （ B）如果 “条件 ”值为 0，则至少执行一次循环体 （ C）如果 “条件 ”值不为 0，则至少执行一次循环体 （ D）不论 “条件 ”是否为 “真 ”，至少要执行一次循环体

4、 9 假琵有以下程序段 n=0 for i=1 to 3 for i=一 4 to-1 n=n+1 next j next i 运行完毕后， n的值是 （ A） 0 （ B） 3 （ C） 4 （ D） 12 10 以下程序段运行结束后，变量 X的值为 X=2 ： y=4 Do X=x*y： y=y+1 Loop While y 4 （ A） 2 （ B） 4 （ C） 8 （ D） 20 11 在窗体上添加一个命令按钮 (名为 Commandl)，然后编写如下事件过程： Private Sub Commandl_Click() For i=1 To 4 X=4 For j=1 To 3 x=

5、3 For k=1 To 2 X=x+6 Next k， j， i MsgBox X End Sub 打开窗体后，单击命令按钮，消息框的输出结果是 （ A） 7 （ B） 15 （ C） 157 （ D） 528 12 在窗体中添加一个名称为 Commandl的命令按钮，然后编写如下事件代码： Private Sub Commandl_Click() Dim a(10， 10) For m=2 To 4 For n=4 To 5 a(m， n)=m*n Nextn Next m MsgBox a(2， 5)+a(3， 4)+a(4， 5) End Sub 窗体打开运行后，单击命令按钮，则消息框

6、的输出结果是 （ A） 22 （ B） 32 （ C） 42 （ D） 52 13 在窗体中添加一个名称为 Commandl的命令按钮，然后编写如下事件代码： Private Sub Command1_Click() A=75 IfA 60 Then I=1 IfA 70 Then I=2 IfA 80 Then I=3 IfA 90 Then 1=4 MsgBox I End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是 （ A） 1 （ B） 2 （ C） 3 （ D） 4 14 在窗体中添加一个名称为 Commandl的命令按钮，然后编写如下事件代码： Private Su

7、b Command1_Click() s=”ABBACDDCBA” For I=6 To 2： Step -2 x=Mid(s， I， I)： y=Lefl(s， 1) z=Right(s， I) Z=X&v&Z Next I MsgBox Z End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是 （ A） AABAAB （ B） ABBABA （ C） BABBA （ D） BBABBA 15 在窗体中添加一个名称为 Commandl的命令按钮，然后编写如下事件代码： Private Sub Commandl_Click() a=75 If a 60 Then k=1 Else

8、lf a 70 Then k=2 Elself a 80 Then k=3 EIself a 90 Then k=4 EndIf MsgBox k End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是 （ A） 1 （ B） 2 （ C） 3 （ D） 4 16 设有如下窗体单击事件过程： Private Sub Form_Click() a=1 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 打开窗体运行后，单击窗体，则消息框的输出的结果是 （

9、 A） 3 （ B） 4 （ C） 5 （ D） 6 17 设有如下程序： 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+1 sum=sum+x Next I End Sub 该程序通过 For循环来计算一个表达式的值，这个表达式是 （ A） 1+1 2+2 3+3 4+4 5 （ B） 1+1 2+1 3+1 4+1 5 （ C） 1 2+2 3+3 4+4 5 （ D） 1 2+1 3+1 4+1 5 18 下列 Case语句中错误的是 （ A） Ca

10、se 0 To 10 （ B） Case Is 10 （ C） Case Is 10 And Is 50 （ D） Case 3 5 Is 10 19 下列不是分支结构的语句是 （ A） If.Then.EndlF （ B） While.Wend （ C） If.Then.Else.Endlf （ D） Select.Case.End Select 20 在窗体中使用一个文本框 (名为 n)接受输入的值，有一个命令按钮 run，事件代码如下： Private Sub run Click() result=” For i=1 To Me!n For i=1 To Me!n result=resu

11、lt+“*” Next i result=result+Chr(13)+Chr(10) Next i MesgBox result End Sub 打开窗体后，如果通过文本框输入的的值为 4，单击命令按钮后输出的图型是 （ A） * * * * * * * * * * * * * * * * （ B） * * * * * * * * * * * * * * * * （ C） * * * * * * * * * * * * * * * * * * * * * * * * * * * * （ D） * * * * * * * * * * * * * * * * 21 VBA程序流程控制的方式是 （

12、 A）顺序控制和分支控制 （ B）顺序控制和循环控制 （ C）循环控制和分支控制 （ D）顺序、分支和循环控制 22 下列四种形式的循环设计中，循环次数最少的是 （ A） a=5： b=8 DO A=a+1 Loop While a b （ 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 23 在窗体中有一个命令按钮 run35，对应的事件代码如下： Private Sub run35_Enter() Dim num A

13、s Integer， a As Integer Dim b As Integer,i As 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)&： ”， b=”&Str(b) End Sub 运行以上事件所完成的功能是 （ A）对输入的 10个数据求累加和 （ B）对输入的 10个数据求各自的余数，然后再进行累加 （ C）对输入的 10个数据分别统计有几个是整数，有几个是非整

14、数 （ D）对输入的 10个数据分别统计有几个是奇数，有几个是偶数 24 在 VBA中，错误的循环结构是 （ A） Do While条件式 循环体 Loop （ B） Do Until条件式 循环体 Loop （ C） Do Until 循环体 Loop条件式 （ D） Do 循环体 Loop While条件式 25 在窗体中有一个命令按钮 (名称为 run34)，对应的事件代码如下： Private Sub run34_Click() sum=0 For i=10 To 1 Step-2 sum=sum+i Next i MsgBox sum End Sub 运行以上事件，程序的输出结果是

15、（ A） 10 （ B） 30 （ C） 55 （ D）其他结果 26 在窗体中有一个名称为 run35的命令按钮，单击该按钮从键盘接收学生成绩，如果输入的成绩不在 0到 100分之间，则要求重新输入；如果输入的成绩正确，则进入后续程序处理。 rtm35命令按钮的 Click的事件代码如下： Private Sub run35_Click() Dim flag As Boolcan result=0 ： flag=True Do While flag result=Val(InputBox(”请输入学生成绩 :， ”输入 ”) If result =0 And result =1 00 The

16、n Else MsgBOX ”成绩输入错误，请重新输入 ” End If Loop Rem 成绩输入正确后的程序代码略 End Sub 程序中有一空白处，需要填入一条语句使程序完成其功能。下列选项中错误的语句是 （ A） flag=False （ B） flag=Not flag （ C） flag=True （ D） Exit Do 27 下列四个选项中，不是 VBA的条件函数的是 （ A） Choose （ B） If （ C） IIf （ D） Switch 28 设有如下过程： x=I Do x=x+2 Loop Until 运行程序，要求循环体执行 3次后结束循环，空白处应填入的语句

17、是 （ A） x =7 （ B） x 7 （ C） x =7 （ D） x 7 29 在窗体中添加一个名称为 Commandl的命令按钮，然后编写如下事件代码： Private Sub Commandl Click() MsgBox f(24， 18) End Sub Public Function f(m As Integer， n As Integer)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 窗体打开运行后， 单击命令按钮，则消息框的输出结果是

18、 （ A） 2 （ B） 4 （ C） 6 （ D） 8 30 在窗体中有一个文本框 Textl，编写事件代码如下： Private Sub Form Click() X=val(Inputbox(”输入 x的值 ”) Y=1 IfX ThenY=2 Text1 Vlalue=Y End Sub 打开窗体运行后，在输入框中输入整数 12，文本框 Textl中输出的结果是 （ A） 1 （ B） 2 （ C） 3 （ D） 4 31 在窗体中有一个命令按钮 Commandl和一个文本框 Textl，编写事件代码如下： Private Sub Commandl_Click() For I=1 To

19、 4 x=3 For i=1 To 3 For k=1 To 2 x=x+3 Next k Nextj Next I Textl value=Str(x) End Sub 打开窗体运行后，单击命令按钮，文本框 Textl输出的结果是 （ A） 6 （ B） 12 （ C） 18 （ D） 2l 32 在窗体中有一个命令按钮 Commandl，编写事件代码如下： Private Sub Commandl Click() Dim SAs Integer S=P(1)+P(2)+P(3)+P(4) debug Print S End Sub Public Function afN AS Intege

20、r) Dim Sum As Integer Sum=0 For i=1 To N Sum=Sum+i Next i P=Sum End Function 打开窗体运行后，单击命令按钮，输出结果是 （ A） 15 （ B） 20 （ C） 25 （ D） 35 33 由 “For i=1 To 9 Step-3”决定的循环结构，其循环体将被执行 （ A） 0次 （ B） 1次 （ C） 4次 （ D） 5次 34 在窗体上有一个命令按钮 Commandl和一个文本框 Text1，编写事件代码如下 Private Sub Commandl_Click() Dim i， j， X For i=1 T

21、o 20 sep 2 x=0 Forj=i To 20 step 3 X=x+1 Nextj Next i Text1 Value=Str(x) End Sub 打开窗体运行后，单击命令按钮，文本框中显示的结果是 （ A） 1 （ B） 7 （ C） 17 （ D） 400 35 在窗体上有一个命令按钮 Commandl，编写事件代码如下： Private Sub Commandl_Click() Dim YAs Integer y=0 Do Y=InPutBox”Y” If(y Mod 10)+Int(y 10)=10 Then Debug Print y； Loop Until Y=0 E

22、nd 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 国家二级 ACCESS机试选择题（模块与 VBA编程基础）模拟试卷 18答案与解析 一、选择题 1 【正确答案】 D 【试题解析】 输入框用于在一个对话框中显示提示，等待用户输入正文并按下按钮、返回包含文本框内容的字符串数据信息。它的功能在 VBA中是以函数的形式调用，其使用格式如下： InputB

23、ox(prompt,title,default,xpos,ypos,helpfile,context InputBox有关参数说明如下表所示。 【知识模块】 模块与 VBA编程基础 2 【正确答案】 B 【试题解析】 IIf()函数，该函数可用于选择操作。调用格式为： IIf(条件表达式，表达式 1，表达式 2) 功能：函数根据 “条件表达式 ”的值来决定返同值。如果 “条件表达式 ”的值为“真 ”(True)，函数返回 “表达式 1”的值； “条件表达式 ”的值为 “假 ”(Flase)，函数返回 “表达式 2”的值。 Switch()函数，该函数可用于多条件选择操作。调用格式为：Switc

24、h(条件式 1,表达式 1,条件式 2,表达式 2,条件式 n，表达式 n) 功能：函数分别根据 “条件式 1”、 “条件式 2”“ 条件式 n”的值来决定返回值。条件式是由左至右进行计算判断的，函数将返回第一个条件式为 True的对应 “表达式 ”的值。 Choose()函数，调用格式为： Choose(数值表达式，表达式 1，表达式 2 ，表达式 n) 功能：函数根据 “数值表达式 ”的值决定返回值。若不考虑变量的小数的定义位数，当 “数值表达式 ”值大于 1、小于 2时，函数将返回 “表达式 1”的值；值大于2、小于 3，返回 “表达式 2”的值，依此类推。以上 3种函数均为 VBA的函

25、数。 【知识模块】 模块与 VBA编程基础 3 【正确答案】 A 【试题解析】 事件是由系统定义的，事件的过程是由程序员定义的，因此触发相同的事件可以执行不同的事件过程：不同的对象可能有相同的实现，如很多控件都具有 “获取焦点 ”事件。有些事件并不是用户触发的，如 Resize事件。事件是由系统定义供程序员使用的，并不能由程序员定义。 【知识模块】 模块与 VBA编程基础 4 【正确答案】 A 【试题解析】 在到达文件末尾之前， EOF函数一直返回 False，到达文件末尾时， EOF返回 True： FileLen函数返回一个文件的长度，单位为字节； Len返回文本串的字符数； LOF函数返

26、回某文件的字节数。 【知识模块】 模块与 VBA编程基础 5 【正确答案】 C 【试题解析】 Fix(x)和 Int(x)返回 x的整数部分，对于小数部分完全舍弃。 Rnd(x)返回一个随机数， Round(x)保留 x的整数部分并进行四舍五入。 【知识模块】 模块与 VBA编程基础 6 【正确答案】 D 【试题解析】 一个好的程序一般都有注释语句。这对程序的维护有很大的好处。在 VBA程序中，注释可 以通过以下两种方式实现： 使用 Rem语句，格式为： Rem注释语句 用单引号 “”，格式为： 注释语句 【知识模块】 模块与 VBA编程基础 7 【正确答案】 D 【试题解析】 Left表示的

27、是控件的左边距，所以 left+100表示控件向右移动。 【知识模块】 模块与 VBA编程基础 8 【正确答案】 B 【试题解析】 本题考查 VBA中 D0 UntilLoop 循环的知识。对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件， 则有可能一次也不执行循环体；如果是后判断条件，则无论条件如何至少执行一次循环体。在 Until循环中条件为 False时执行循环体，条件为 True时退出循环；在 While循环中条件为 True时执行循环体，条件为 False时退出循环，这一点要注意区分清楚。本题中是先判断条件，条件值为 0表示条件是 False，则至少执行一次循

28、环体。 【知识模块】 模块与 VBA编程基础 9 【正确答案】 D 【试题解析】 本题考查 VBA中嵌套 For循环的知识。这种问题要注意分析清楚每次循环的变化以及循环的次数。在这个循 环中，内循环执行 4次，外循环执行 3次，所以里面的循环体语句 n=n+1共执行 12次，所以最终 n的值为 12。 【知识模块】 模块与 VBA编程基础 10 【正确答案】 C 【试题解析】 本题考查 VBA中循环的知识。在本题中用了 DoLoop While 循环，先运行循环体后判断条件，当条件满足时继续循环，条件不满足时退出循环体。在本题中第一次循环结束后 Y的值为 5已经不满足条件，故此本循环只执行一次

29、， x的值为 2*4=8。 【知识模块】 模块与 VBA编程基础 11 【正确答案】 B 【试 题解析】 本题考查 VBA中多重循环的知识。见到多重循环的问题不要害怕，认真地分析清楚每一次循环这种问题就迎刃而解了。比如这个例子，我们看到，在每一次外循环开始的时候都把 x的值置为 4，所以我们只分析最后一次循环就可以了；同理中层循环每一次开始前都把 x置为 3，所以这个问题最后实际上就是 x的初值为 3，执行最内层循环直到结束就可以了。根据程序内循环执行两次，最后 x=3+6+6=15。 【知识模块】 模块与 VBA编程基础 12 【正确答案】 C 【试题解析】 本题考查数组和二重循环的知识。在

30、这个问题中 ，我们实际上可以分析出，数组元素的值就是该元素的两个下标之积 (循环范围内 )。所以最后的三个数组元素的和也就是 2*5+3*4+4*5=42。 【知识模块】 模块与 VBA编程基础 13 【正确答案】 B 【试题解析】 本题考查 VBA中选择结构的知识。在本题中用了多个 If分支结构，这些结构是顺序的而不是嵌套的，所以会顺序执行判断是否满足条件。首先75大于 60。所以 i=1，然后再判断 75大于 70。所以 i=2，再接着判断 75既不大于80也不大于 90，所以最后消息框里输出的 i值为 2。 【知识模块】 模块与 VBA编程基础 14 【正确答案】 D 【试题解析】 本题

31、考查 VBA中循环和取子串函数的知识。在 VBA中有三种取子串函数： Left函数用于在字符串左端开始取 n个字符； Right函数用于在字符串右端开始取 n个字符 (注意子串中字符的顺序与母串中相同 )； Mid函数可以实现在任何位置取任何长度的子串。在本题中由于循环每次都会为 z赋一个新的值Right(s， i)，所以只有最后一次循环中的 z值才有意义。最后一次循环时 i=2，所以 D选项正确。 【知识模块】 模块与 VBA编程基础 15 【正确答 案】 A 【试题解析】 本题考查多分支选择的知识。这个问题比较简单，只要知道这是一个多分支选择结构，当执行某分支后就会退出分支执行分支下面的语

32、句就可以做对。本题中第一个分支条件就得到满足，所以执行 k=l后退出分支结构，最终结果 k=1。 【知识模块】 模块与 VBA编程基础 16 【正确答案】 C 【试题解析】 本题考查 VBA程序设计中的多分支选择和循环的知识。在本题的程序中，共循环三次，第一次 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编程基础 17 【正确答案】 C 【试题解析】 本题考查 VBA中循环结构的知识。这类问题

33、需要分析出每一次循环所做的操作。第一次循环时， i=1， n=0， x=0 1，所以累加上去的是 0 1；第二次循环时， i=2， n=1， x=1 2，所以累加上去的是 1 2：第三次循环时， i=3，n=2， x=2 3，所以累加上去的是 2 3；循环 5次后累加的应该是 0 1+1 2+23+3 4+4 5。 【知识模块】 模块与 VBA编程基础 18 【正确答案】 C 【试题解析】 本题考查 Select Case语句的知识。 Case语句的后面可以包含一个值、一组枚举值、一个值的范围以及比较运算符。但是当 Case语句使用 Is关键字的时候就不能再加入逻辑运算符如 And等。 【知识

34、模块】 模块与 VBA编程基础 19 【正确答案】 B 【试题解析】 本题考查控制结构的知识。选项 A是一个单分支选择结构；选项C是一个双分支选择结构；选项 D是一个多分支选择结构：选项 B是一个循环结构。 【知识模块】 模块与 VBA编程基础 20 【正确答案】 A 【试题解析】 本题考查二重循环的知识。在这个二重循环中，外循环的执行次数为 4，内循环的执行次数一也为 4，并且每次内循环退出后都要换行，所以最后结果为一个 4*4的矩阵，矩阵的每个元素都为 “*”。 【知识模块】 模块与 VBA编程基础 21 【正确答案】 D 【试题解析】 本题考查结构化程序设计的知识。 VBA是一种结构化的

35、程序设计方式，结构化的程序设计方式要求程序只能由顺序、分支和循环三种基本控制结构组成。 【知识模 块】 模块与 VBA编程基础 22 【正确答案】 C 【试题解析】 本题考查 VBA中循环的知识。对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件如何至少执行一次循环体。在 Until循环中条件为 False时执行循环体，条件为 True时退出循环；在 While循环中条件为 True时执行循环体，条件为 False时退出循环，这一点要注意区分清楚。本题中的 A循环执行 4次， B循环执行 1次， C循环一次也不执行

36、， D循环执行 4次。 【知识模块】 模块与 VBA编程基础 23 【正确答案】 D 【试题解析】 本题考查程序设计的知识。本题的重点在于判断 Int(num2)=num 2是什么样的条件。对于任意一个整数来说，若其除 2后为整数，也就是 Int(num 2)=num 2成立，说明该数是一个偶数；反之若其除 2后不为整数，此时 Int(num 2)必然不等于 num 2，也就是一个整数不可能等于一个小数，说明该数是一个奇数。所以本题的功能是对输入的数据分别统计奇偶数的个数。 【知识模块】 模块与 VBA编程基础 24 【正确 答案】 C 【试题解析】 “条件式 ”放在 While或 Until

37、后面。 【知识模块】 模块与 VBA编程基础 25 【正确答案】 B 【试题解析】 i=10，每循环一次递减 2。第一次循环结果： i=10，sum=sum+i=0+10=10；第二次循环结果： i=8， sum=sum+i=10+8=18；第三次循环结果： i=6， sum=sum+i=18+6=24；第四次循环结果： j=4， sum：sum+i=24+4=28：第五次循环结果： i=2， sum=sum+i=28+2=30。 【知识模 块】 模块与 VBA编程基础 26 【正确答案】 C 【试题解析】 根据题目要求，当输入正确的成绩后，进入后续的程序处理， Flag初始为 True，进入

38、 do while循环，循环条件为 Flag。当输入错误的成绩时，提示信息并不改变 Flag标记，即还为 True，继续进行循环：当输入正确成绩时，应将Flag标记为 False，这样才可以跳出循环，继续后续的程序处理，否则将一直停留在循环这里。 【知识模块】 模块与 VBA编程基础 27 【正确答案】 B 【试题解析】 本题考查条件函数的知识。 VBA中的条件函数共有 3个： IIF函数根据表达式的真假值返回两个表达式之一； Switch函数对表达式列表求值，并返回一个 Variant类型的值或与列表中第一个为 Tme的表达式相关联的表达式；Choose函数从参数列表中选择值并返回。 【知识

39、模块】 模块与 VBA编程基础 28 【正确答案】 C 【试题解析】 本题考查循环的基础知识。本题目要求循环 3次，当第 3次循环结束时 x的值为 7，而 Until型循环的特点是当条件表达式为真的时候结束循环，故此条件应该是 x =7。 【知识模块】 模块与 VBA编程基础 29 【正确答案】 C 【试题解析】 本题考查 VBA程序设计的知识。当调用函数时，形参 m=24，n=18；然后进入循环，由于 m n，所以执行 m=m-n， m的值变为 6；第 2次循环时由于 m n，所以执行 n=n： m， n的值变为 12；第 3次循环时由于 m n，所以执行 n=n-m， n的值变为 6，此时

40、结束循环返回 6。 【知识模块】 模块与 VBA编程基础 30 【正确答案】 B 【试题解析】 根据题意，可知首先将输入的数值赋给 X， Y初始值为 1，接着判断 X是否不为 0(即输入的值是否不为 0)，如果不为 0，则 Y的值为 2，并且将 Y的值赋给文本框 Text1。由于题意中输入的是 12，不为 0，此时 Y的值为 2，所以文本框中输出的结果为 2。 【知识模块】 模块与 VBA编程基础 31 【正确答案】 D 【试题解析】 各层循环过程及结果如下表所示： 运行结束后， X的最终值为21. 【知识模块】 模块与 VBA编程基础 32 【正确答案】 B 【试题解析】 从函数 P的代码可

41、知，其功能是计算从 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=10，所以 S=1+3+6+10=20。 【知识模块】 模块与 VBA编程基础 33 【正确答案】 A 【试题解析】 循环变量 I从 1到 9按递减顺序，由于 1-3=-2不满足条件，所以一次也不执行。 【知识模块】 模块与 VBA编程基础 34 【正确答案】 A 【试题解析】 外循环每次循环都将 x重置为 0，所以只看外循环的最后一次即i=20时，此时内循环 j*i=20开始以步长为 2开始递增，递增一次执行x=x+1=0+1=1后便结束循环，所以最后文本框显示的结果为 1。 【知识模块】 模块与 VBA编程基础 35 【正确答案】 D 【试题解析】 分析 if语句，当计算表达式 (y rood 10)+int(y 10)等于 10时，立即窗口显示输入的数字。当输入第一个数字 10时， (y mod 10)+int(y 10)=0+1=1不等于 10，不显示；当输入第二个数字 37时， (y mod 10)+int(y 10)=7+3=10，显示数字 37，依次类推，结果为选项 D. 【知识模块】 模块与 VBA编程 基础