模块习题及分析--打印版本.doc

模块复习测试二一、选择题P70-40题循环结构的理解假定有以下循环结构Do Until 条件 循环体Loop则正确的叙述是_。A、如果条件值为0，则一次循环体也不执行B、如果条件值为0，则至少执行一次循环体C、如果条件值不为0，则至少执行一次循环体D、不论条件是否为真，至少要执行一次循环体 DoUntilLoop循环结构中，当条件值为假时，重复执行循环体，直至条件值为真，结束循环。所以，如果条件值为0，则至少执行一次循环体。所以本题答案为B。P72-48题循环结构的理解假定有以下循环结构：Do until 条件 循环体Loop则下列说法正确的是_。A、如果条件是一个为-1的常数，则一次循环体也不执行B、如果条件是一个为-1的常数，则至少执行一次循环体C、如果条件是一个不为-1的常数，则至少执行一次循环体D、不论条件是否为真，至少要执行一次循环体 Do Until循环采用的是先判断条件后执行循环体的做法。所以如果条件是一个为-1（为真）的常数，则循环体就会一次也不执行。 所以本题答案是A。P72-49题. 循环结构循环次数的判断设有如下过程： x=1 Do x=x+2 Loop Until _运行程序，要求循环体执行3次后结束循环，空白处应填入的语句是_。A、x=7B、x=7D、x7DoLoop Until是当条件值为假时，重复执行循环，直至条件值为真或执行到选择Exit Do语句，结束循环。本题中变量x初始值为1，第一次循环结束后，x=1+2=3，第二次循环结束后，x=3+2=5，第三次循环结束后，x=5+2=7，所以，要求循环体执行3次后结束循环，则需要在空白处填入x=7，这样，当x的值等于7时，循环条件为真，则循环结束。 所以本题答案为C。类似题型： 在下面的程序中，要求循环体执行四次，请填空。Private Sub Command1_Click() x=1 Do While _ x=x+2 LoopEnd Sub标准答案为：x8 或 x=7 或 x9 或 x=8 第一次循环x=x+2=1+2=3，第二次循环x=x+2=3+2=5，第三次循环x=x+2=5+2=7，第四次循环x=x+2=7+2=9，题目要求循环执行四次跳出，所以应在判断处添加x8或x=7或x9。P102-16题. 循环结构的理解以下程序段运行结束后，变量x的值为_。x=2y=4Do x=x*y y=y+1Loop While y4A、2B、4C、8D、20思考：如果改成DOLoop Until结构，结果如何？改成DO WhileLoop或者Do Untilloop呢？P70-38题. 循环结构的理解下列四种形式的循环设计中，循环次数最少的是_。A、a = 5 : b = 8 Do a = a + 1 Loop While a bB、a = 5 : b = 8 Do a = a + 1 Loop Until a bC、a = 5 : b = 8 Do Until a b a = a + 1 Loop DoLoop Until和Do UntilLoop都是当条件值为假时，重复执行循环，直至条件值为真或执行到选择Exit Do语句，结束循环。DoLoop While当条件结果为真时，执行循环体，并持续到条件结果为假或执行到选择Exit Do语句，结束循环。本题中选项A执行了3次，选项B执行了1次，选项C一次都没有执行，选项D执行了4次，因此本题中循环次数最少的为C选项。 所以本题答案为C。P70-38题. 循环结构的理解在VBA中，错误的循环结构是_。A、Do While 条件式 循环体 LoopB、Do Until 条件式 循环体 LoopC、Do Until 循环体 Loop 条件式 D、Do 循环体 Loop While 条件式P72-49题. 单层FOR循环程序分析执行下面的程序段后，x的值为_。 x = 5 For I = 1 To 20 Step 2 x = x + I 5 Next IA、21B、22C、23D、24注意单循环结构在分析程序执行时，一定要逐次循环去分析，起初不要怕麻烦！然后慢慢找规律！ 循环第1次，I=1，所以I5=0； 循环第2次，I=3，所以I5=0； 循环第3次，I=5，所以I5=1； 循环第4次，I=7，所以I5=1； 循环第5次，I=9，所以I5=1； 循环第6次，I=11，所以I5=2； 循环第7次，I=13，所以I5=2； 循环第8次，I=15，所以I5=3； 循环第9次，I=17，所以I5=3； 循环第10次，I=19，所以I5=3； 循环结束后，x=5+1+1+1+2+2+3+3+3，所以x=21。 所以本题答案是A。P72-52题. 设有如下程序Private Sub Command1_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 iEnd Sub该程序通过For循环来计算一个表达式的值，这个表达式是_。A、1+1/2+2/3+3/4+4/5B、1+1/2+1/3+1/4+1/5C、1/2+2/3+3/4+4/5D、1/2+1/3+1/4+1/5注意单循环结构在分析程序执行时，一定要逐次循环去分析，起初不要怕麻烦！然后慢慢找规律！当i=1时，sum=0+0/1；当i=2时，sum=0+0/1+1/2；当i=3时，sum=0+0/1+1/2+2/3；当i=4时，sum=0+0/1+1/2+2/3+3/4；当i=5时，sum=0+0/1+1/2+2/3+3/4+4/5，即For循环是用来计算表达式1/2+2/3+3/4+4/5的。 所以本题答案为C。P72-46题. 两层嵌套循环假定有以下程序段n=0for i=1 to 3 for j=-4 to -1 n=n+1 next jnext i运行完毕后，n的值是_。A、0B、3C、4D、12 本题中，外层循环从1到3，要执行3次，而内层循环从-4到-1，执行4次，所以一共执行了4*3=12次循环。而每执行一次循环n就加1，所以最后n的值为12。 所以本题答案为D。P104-28题多层嵌套循环类似题目：P121-26题在窗体上添加有一个命令按钮，（名为Command1），然后编写如下事件过程：Private Sub Command1_Click()For i=1 To 4 x=4 For j=1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next jNext IMsgBox xEnd Sub打开窗体后，单击命令按钮，消息框的输出结果是_。A、7B、15C、157D、538思考：对于多层嵌套的循环结构的程序执行流程，如何找到自己更能明白的方法P78-77题.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() a = 0 For i = 1 To 2 For j = 1 To 4 If j Mod 2 0 Then a = a + 1 End If a = a + 1 Next j Next i MsgBox aEnd Sub程序执行后，单击命令按钮，消息框显示的是_。标准答案为：12 对于内层循环而言，当j为1、3时，a会各加两次1，当j为2、4时，a会各加一次1。所以整个内层循环会实现6次加1。考虑到外层循环要执行两次循环体，所以一共要完成12次加1操作，因此最终的输出结果为12。P74-64题.执行下面的程序，消息框的输出结果是_。Option Base 1Private Sub Command1_Click() Dim a(10),p(3) As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i MsgBox kEnd Sub标准答案为：33 本题中的程序先给数组a赋值，将110分别赋给a(1)a(10)，再通过for循环语句给p(1)p(3)赋值，p(1)=a(1*1)=a(1)=1，p(2)=a(2*2)=a(4)=4，p(3)=a(3*3)=a(9)=9。再通过for循环语句计算k的值，i=1时，k=k+p(1)*2=5+1*2=7；i=2，k=7+p(2)*2=7+4*2=15；i=3，k=15+p(3)*2=15+9*2=33，即消息框的输出结果是33。P72-47题. 消息框在程序中应用3. 以下程序运行后，消息框的输出结果是_。a=sqr(3)b=sqr(2)c=abMsgbox c+2A、-1B、1C、2D、出错 本题中ab返回True，即c=True，而在算术表达式中，True作为-1来处理，故消息框中输出的结果为1。 所以本题答案为B。注意条件语句的理解P111-35题. 在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：Private Sub Command1_Click() A=75 If A60 Then I=1 If A70 Then I=2 If A80 Then I=3 If A90 Then I=4 MsgBox IEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果是_。A、1B、2C、3D、4答案：BP71-41题. 在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：Private Sub Command1_Click( ) a = 75 If a60 Then k = 1 ElseIf a70 Then k = 2 ElseIf a80 Then k = 3 ElseIf a90 Then k = 4 EndIf MsgBox kEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果是_。A、1B、2C、3D、4答案：A循环结构与选择结构的嵌套P73-51题. 设有如下窗体单击事件过程：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 aEnd Sub打开窗体运行后，单击窗体，则消息框的输出的结果是_。A、3B、4C、5D、6 Select Case结构运行时，首先计算表达式的值，它可以是字符串或者数值变量或表达式。然后会依次计算测试每个Case表达式的值，直到值匹配成功，程序会转入相应Case结构内执行语句。本题中，当i=1和3的时候，执行a=a+1，当i=2时，执行a=a+2，所以a=1+1+2+1=5。 所以本题答案为C。P73-53题. 下列Case语句中错误的是_。A、Case 0 To 10B、Case Is10C、Case Is10 And Is10 Case表达式可以是下列4种格式之一：u 单一数值或一行并列的数值，用来与表达式的值相比较。成员间以逗号隔开；u 由关键字To分隔开的两个数值或表达式之间的范围；区间必须由小到大。u 关键字Is接关系运算符；u 关键字Case Else后的表达式，是在前面的Case条件都不满足时执行的。 本题选项C中用的是逻辑运算符And连接两个表达式，所以不对，应该以逗号隔开。 所以本题答案为C。P73-54题.下列不是分支结构的语句是_。A、If Then EndIfB、While WendC、If Then Else EndIfD、Select Case End Select 在VBA中存在三种基本结构，即顺序、分支、循环。对于分支结构有两种形式，一种是采用If语句的单分支结构，另一种是Select Case的多分支结构。在本题中选项A、C、D均是合法的分支结构，而选项B是循环结构，除选项B的循环结构外，其他还有DoLoop及For组成的循环结构。 所以本题答案为B。 P81-91题.假定有以下两个过程：Sub S1(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t = x x = y y = tEnd SubSub S2(x As Integer, y As Integer) Dim t As Integer t = x x = y y = tEnd Sub则以下说法中正确的是_。A、用过程S1可以实现交换两个变量的值的操作，S2不能实现B、用过程S2可以实现交换两个变量的值的操作，S1不能实现C、用过程S1和S2都可以实现交换两个变量的值的操作D、用过程S1和S2都不能实现交换两个变量的值的操作 过程定义时，如果形式参数被说明为传值（ByVal项），则过程调用只是相应位置实参的值单向传送给形参处理，而被调用过程内部对形参的任何操作引起的形参值的变化均不会反馈、影响实参的值。由于这个过程，数据的传递只是单向性，故称为传值调用的单向作用形式。反之，如果形式参数被说明为传址（ByRef项），则过程调用是将相应位置实参的地址传送给形参处理，而被调用过程内部对形参的任何操作引起的形参值的变化又会反向影响实参的值。在这个过程中，数据的传递具有双向性，故称为传址调用的双向作用形式。在过程定义时，如果未做参数说明，则默认为传址调用。本题过程S1采用的是传值的方式，当然无法实现交换两个变量的值的操作。过程S2形式参数未说明，则默认采用的是传址的方式，可以实现两个变量的值的交换操作。所以本题答案是B。P81-92题.在有参函数设计时，要想实现某个参数的双向传递，就应当说明该形参为传址调用形式。其设置选项是_。A、ByValB、ByRefC、OptionalD、ParamArray ByVal是传值调用，是单向作用形式，ByRef是传址调用，是双向调用形式。 所以本题答案是B。P80-89题.若要在子过程Procl调用后返回两个变量的结果，下列过程定义语句中有效的是_。A、Sub Procl(n, m)B、Sub Procl(ByVal n, m)C、Sub Procl(n, ByVal m)D、Sub Procl(ByVal n, ByVal m)过程定义时，如果形式参数被说明为传值（ByVal项），则过程调用只是相应位置实参的值单向传递给形参处理，而被调用过程内部对形参的任何操作引起的形参值的变化均不会反馈、影响实参的值。由于这个过程，数值的传递只有单向性，故称为传值调用的单向作用形式。反之，如果形式参数被说明为地址（ByRef），则过程调用是将相应位置实参的地址传给形参处理，而被调用过程内部对形参的任何操作引起形参值的变化又会反而影响实参的值。在这个过程中，数值的传递具有双向性，故称为传址调用的双向作用形式。ByRef是VBA的缺省选项。 本题中要求在子过程Procl调用后返回两个变量的结果，因此采用的是传址调用，故为Sub Procl(n, m)。 所以本题答案为A。P80-86题.在过程定义中有语句：Private Sub GetDate(ByVal date As Integer)其中ByVal的含义是_。A、传值调用B、传址调用C、形式参数D、实际参数 ByVal表示该参数按值传递，是单向调用形式。如果形式参数被说明为传值（ByVal项），则过程调用只是相应位置实参的值单向传送给形参处理，而被调用过程内部对形参的任何操作引起的形参值的变化均不会反馈、影响实参的值。在这个过程中，数据的传递只有单向性，故称为传值调用的单向作用形式。 所以本题答案为A。P80-87题.要想在过程Proc调用后返回形参x和y的变化结果，下列定义语句中正确的是_。A、Sub Proc(x as Integer,y as Integer)B、Sub Proc(ByVal x as Integer,y as Integer)C、Sub Proc(x as Integer,ByVal y as Integer)D、Sub Proc(ByVal x as Integer,ByVal y as Integer) 本题要在过程Proc调用后返回形参x和y的变化结果，所以本题的参数x和y的说明方式都需要采用传址（ByRef项），所有B、C、D选项不符合要求，由于未做参数说明，则默认为传址调用。 所以本题答案为A。P80-88题. 已定义好有参函数f(m)，其中形参m是整型量。下面调用该函数，传递实参为5，将返回的函数数值赋给变量t。以下正确的是_。A、t=f(m)B、t=Call f(m)C、t=f(5)D、t=Call f(5) 含参数的过程被调用时，主调过程中的调用式必须提供相应的实参（实际参数的简称），并通过实参向形参传递的方式完成过程调用。而Call方法并不能向变量赋值。 所以本题答案是C。P81-95题.在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：Private Sub Command1_Click() Dim x As Integer,y As Integer x=12:y=32 Call p(x,y) MsgBox x*yEnd SubPublic Sub p(n As Integer,ByVal m As Integer) n=n Mod 10 m=m Mod 10End Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为_。标准答案为：64 子过程p有两个参数m和n，参数m，n是整型，而通过ByVal可知，参数m是按值传递的参数。由于在过程定义时未做参数说明的情况下，默认为传址调用，所以参数n是按址传递。（按址传递的过程调用是将相应位置实参的地址传送给形参处理，而被调用过程内部对形参的任何操作引起的形参值的变化又会反向影响实参的值。在这个过程中，数据的传递具有双向性。）在命令按钮单击事件过程中，程序通过两个实参x，y为形参m，n赋值，n=n Mod 10表示12与10取余，结果为2，由于n是传址调用，所以返回实参的结果：x=2，而形式参数m因为被ByVal修饰，所以过程调用只是将实参y的值单向传送给形参m处理，而被调用过程内部对形参m的取余操作引起的形参值的变化均不会反馈、影响实参y的值，也就是说实参y=32，通过语句MsgBox x*y，可以得出：x*y=2*32=64，也就是窗体打开运行后，单击命令按钮，则消息框的输出结果为64。P74-61题.执行下面的程序，消息框里显示的结果是_。Private Sub Form_Click() Dim Str As String,k As Integer Str=ab For k=Len(Str) To 1 Step -1 Str=Str & Chr(Asc(Mid(Str,k,1)+k) Next k MsgBox StrEnd Sub标准答案为：abdb 本题考查的是函数和循环语句ForNext的使用。 函数： 字符串转换字符代码函数Asc()：返回字符串首字符的ASCII值； 字符代码转换字符函数Chr()：返回与字符代码相关的字符； 字符串截取函数Mid(,N2)：从字符串左边第N1个字符起截取N2个字符； 字符串长度检测函数Len(或)：返回字符串所含字符数。 循环语句ForNext能够重复执行程序代码区域特定次数，使用格式如下：For 循环变量=初值 To 终值 Step 步长 循环体 条件语句序列 Exit For 结束条件语句序列Next 循环变量P74-62题.执行下面的程序段后，b的值为_。a=5b=7a=a+bb=a-ba=a-b标准答案为：7 本题考查的是赋值语句的使用。赋值语句是为变量指定一个值或表达式。通常以符号（=）连接。其使用格式为：Let 变量名 = 值或表达式 本题先对a和b分别赋值5和7；再对a重新赋值a+b，则a=5+7=12；然后b又重新赋值a-b，则b=12-7=5；最后a又重新赋值a-b，则a=12-5=7。P74-63题.下面程序的功能是计算折旧年限。假设一台机器的原价值为100万元，如果每年的折旧率为4%，多少年后它的价值不足50万元。请填空。y=0p=100x=0.04Do p=p*(1-x) y=y+1Loop Until p1时则按照递推公式可以得到数列：1，1，2，3，5，8，13，21，34，55，。现要求从键盘输入n值，输出对应项的值。例如当输入n为8时，应该输出34。程序如下，请补充完整。Private Sub run11_Click() f0=1 f1=1 num=Val(InputBox(请输入一个大于2的整数：) For n=2 To _ f2=_ f0=f1 f1=f2 Next n MsgBox f2End Sub标准答案为：num 与 f0+f1 或 f1+f0 程序首先需要接受用户输入的值，根据程序代码可以判断，使用变量num来存放用户输入的值，使用循环实现递推，根据题面要求从键盘输入n值，输出对应项的值，可知循环从2开始，到用户输入的值结束，也就是For n=2 To num。 根据题面给出的公式当n1时，f(n)=f(n-1)+f(n-2)，可知第n项的值总等于它前两项（即第n-2项与第n-1项）之和，在程序For循环中，总用f2表示第n项，f0表示第n-2项，f1表示第n-1项，所以f2=f0+f1。P76-72题.子过程Test显示一个如下所示44的乘法表。1*1=11*2=2 1*3=31*4=42*2=42*3=6 2*4=83*3=93*4=124*4=16请在空白处填入适当的语句使子过程完成指定的功能。Sub Text() Dim i,j As Integer For i=1 To 4 For j=1 To 4 If _ Then Debug.Print i & * & j & = & i*j & Space(2), End If Next j Debug.Print Next iEnd sub标准答案为：i=j 该程序中变量i和j是作为乘数定义的，同时也起到控制循环的作用，本程序中定义了两个For循环，For i=1 To 4为外循环，表示变量i的值从1到4，步长为1（当步长为1时，关键字Step可省略），For j=1 To 4为内循环，表示变量j的值从1到4，步长为1，根据要求，输出结果是一个44的乘法表，所以If后的条件填i=0 或 0= 4End Sub标准答案为：6 第一次循环结束的时候：s=0，i=1 第二次循环结束的时候：s=1，i=2 第三次循环结束的时候：s=3，i=3 第四次循环结束的时候：s=6，i=4 第四次循环结束后整个循环也就结束了，所以s的最终值为6。14. 用户定义的数据类型可以在_关键字间说明。标准答案为：Type.End Type 或 Type和End Type 或 TypeEnd Type 用户定义数据类型是使用Type语句定义的数据类型。用户定义的数据类型可以包含一个或多个任意数据类型的元素。用Dim语句可创建用户定义的数组和其他数据类型。用户定义类型可包含任何类型的数组。18. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() n=5 f=1 s=0 For i=1 To n f=f_ s=s+fNextPrint sEnd Sub该事件过程的功能是计算s=1+1/2!+1/3!+.+1/n!的值。请填空。标准答案为：*(1/i) 或 /i 本程序首先置f为1，s为0；经过5次循环使f每次都乘以1/i，实现了1/n!的求法，每次循环后都加f，把结果再赋给s，循环结束，s的值即为所求。19. 在窗体上画一个命令按钮，然后编写如下代码：Private Sub Command1_Click() Dim M(10) As Integer For k = 1 To 10 M(k) = 12 - k Next k x = 6 Msgbox M(2 + M(x)End Sub程序运行后，单击命令按钮，消息框显示的是_。标准答案为：4 M(6)的值为12-6=6；则有M(2+6)=M(8)的值为12-8=4。20. 运行如下程序段： x = 1 y = 1 z = 1 For j = 1 To 3 For k = 1 To 3 If j = 1 Then x = x + y + z ElseIf j = 2 Then x = 2 * x + 2 * y + 2 * z Else x = 3 * x + 3 * y + 3 * z End If Next k Next jx的值应是_。标准答案为：2346 当j=1时，内层循环执行 x = x + y + z = x + 2三次，所以x=7； 当j=2时，内层循环执行 x = 2 * x + 2 * y + 2 * z=2 * x + 4三次，所以x=84； 当j=3时，内层循环执行 x = 3 * x + 3 * y + 3 * z=3 * x + 6三次，所以x=2346。 则最后的结果是：x=2346。21. 在窗体上画一个命令按钮，然后编写如下程序：Function fun(ByVal num As Long) As Long Dim k As Long k = 1 num = Abs(num) Do While num k = k * (num 10) num = num 10 Loop fun = kEnd FunctionPrivate Sub Command1_Click() Dim n As Long Dim r As Long n = InputBox(请输入一个数) n = CLng(n) r = fun(n) MsgBox rEnd Sub程序运行后，单击命令按钮，在输入对话框中输入234，消息框显示的结果为_。标准答案为：0 程序将输入的内容234转变为长整型传入函数fun中，然后进入循环。 循环第一次结束的时候：k=23 num=23 循环第二次结束的时候：k=46 num=2 循环第三次结束的时候：k=0 num=0 22. 在窗体上添加一个命令按钮（名为Command1），然后编写如下程序：Function m(x As Integer, y As Integer) As Integer m = IIf(x y, x, y)End FunctionPrivate Sub Command1_Click() Dim a As Integer, b As Integer a = 1 b = 2 MsgBox m(a, b)End Sub打开窗体运行后，单击命令按钮，消息框中输出结果为_。标准答案为：2 IIf函数是根据第一个表达式的值来取值，如果第一个表达式为True，则返回第二个参数，如果为False，则返回第三个参数。本题中表达式为12，结果为False，故返回2。23. 以下是一个竞赛评分程序。8位评委，去掉一个最高分和一个最低分，计算平均分（设满分为10分）。请填空补充完整。Private Sub Form_Click() Dim Max As Integer, Min As Integer Dim i As Integer, x As Integer, s As Integer Dim p As Single Max = 0 Min = 10 For i = 1 To 8 x = Val(InputBox(请输入分数：) If _ Then Max = x If _ Then Min = x s = s + x Next i s = _ p = s / 6 MsgBox 最后得分： & pEnd Sub标准答案为：xMax 或 Max=Max 或 Max=x 与 xx 或 x=x 与 s-Max-Min 或 s-Min-Max 本题中先给最大值变量赋值为0，最小值变量赋值为10。然后把输入的分数x与最大值和最小值比较，如果x比最大值大，则把x赋值给Max，故第一空填xMax；如果x比最小值小，则把x赋值给Min，故第二空填xMin。因为算平均分之前要把最高分和最低分去掉，故第三空应该填s-Max-Min。24. 某个窗体已编写以下事件过程。打开窗体运行后，单击窗体，消息框的输出结果为_。Private Sub Form_Click() Dim k As Integer, n As Integer, m As Integer n = 10: m = 1: k = 1 Do While k = n m = m * 2 k = k + 1 Loop MsgBox mEnd Sub标准答案为：1024 Do While语句是先判断条件，如果条件为True，则执行循环体。本题中的条件表达式是k = n，而刚开始k=1，n=10，而循环依次k就加1，故一共要执行10次循环。而m每执行一次就乘2，故一共乘了10次2，最后m的值为1024。25. 设有以下窗体单击事件过程：Private Sub Form_Click() a=1 For i=