1、国家二级 VB机试（控制结构）模拟试卷 16及答案解析(总分：80.00，做题时间：90 分钟)一、选择题(总题数：40，分数：80.00)1.现有语句：y=IIf(x0，x Mod 3，0)设 x=10，则 y的值是（分数：2.00）A.0B.1C.3D.语句有错2.设 x是整型变量，与函数 Ilffx0，-X，x)有相同结果的代数式是（分数：2.00）A.|x|B.一|x|C.xD.-x3.计算下面分段函数的正确语句是 （分数：2.00）A.y=IIf(x0，x+1，IIf(x0，x 一 1，x+1)C.Y=IIf(x0，x+1，IIf(x50，Int(a3)，a Mod 2)当 a=52
2、时，x 的值是（分数：2.00）A.0B.1C.17D.185.在下面语句或函数中，不能描述选择结构的是（分数：2.00）A.If语句B.IIf函数C.Select Case语句D.While语句6.设窗体上有 Text1、Text2 两个文本框，并编写了下面的程序代码： Private Sub Text1_KeyPress(KeyAscii As Integer) If”A”85 Then r=1 Else If score60 Then r=2 Else r=0 End If Print r End Sub 程序运行后，单击命令按钮Command1，输出结果为（分数：2.00）A.0B.1
3、C.2D.869.设有如下事件过程： Private Sub Form_Click() Sum=0 For k=1 To 3 Ifk0，1，Ilf(x0 Then x=1 Elself xB.Ifx0 Then Print 1 ElselfxC.Select Case x Case Is0 Print 1 Case IsD.Ifx0 Then Print 1 Elselfx11.在窗体上画一命令按钮和一文本框，其名称分别为 Command1和 Text1，然后编写如下程序：Function Fun(x As Integer， Y As Integer)As Integer Fun=IIf(xA
4、.1 2B.20C.24D.4012.三角形的构成条件是：任意 2边之和大于第 3边。设变量 a、b、c 是 3条直线的长度，要求判断这 3条直线能否构成一个三角形。下面有 3个程序段可以正确判断，另一个不能正确判断的是（分数：2.00）A.If a+bc And a+cb And b+ca Then Print”可以构成一个三角形” Else Print”不能构成三角形”End IfB.If a+bc Or a+cb Or b+ca Then Print”可以构成一个三角形” Else Print”不能构成三角形” End IfC.Ifa+b20B.Case 1 To 10C.Case 05
5、 的 Case子句是（分数：2.00）A.Case Not(-5 To 5)B.Case 5 To 一 5C.Case Is5D.Case Abs(X)515.现有如下一段程序： Private Sub Command1_Click() x=UCase(InputBox(”输入：”) Select Case x Case”A”Tb”C” Print”考核通过!” Case”D” Print”考核不通过!” Case Else Print”输入数据不合法!” End Select End Sub 执行程序，在输入框中输入字母“B”，则以下叙述中正确的是（分数：2.00）A.程序运行错B.在窗体上
6、显示“考核通过!”C.在窗体上显示“考核不通过!”D.在窗体上显示“输入数据不合法!”16.窗体上有 1个名称为 Command1的命令按钮，事件过程如下： Private Sub Commandl_Click() Dim sum As Integer,X As Integer num=Val(InputBox(”请输入一个正整数”) Select Case num Case Is100 x=x+sum Case IsA.0 0 0B.0 0 60C.0 90 0D.100 0 6017.窗体上有一个名称为 Text1的文本框，一个名称为 Command1的命令按钮。命令按钮的单击事件过程如下
7、：Private Sub Command1_Click() Dim x1 As Integer,x2 As Integer,x3 As Integer S=Trim(Text1Text) strLen=Len(s) For i=1 To strLen c=Mid(s，i，1) Select Case C Casc”0”To”9” x1=x1+1 Case”A”To”Z” x2=x2+1 Case”a”To”z” x3=3+1 Case Else x4=x4+1 End Select Next Print”x1”；x1，”x2”；x2，”x3”；x3，”x4”；x4End Sub 以下关于上述程
8、序的叙述中，正确的是（分数：2.00）A.s是去掉文本框中字符串末尾的空格B.Select Case c有误，Case 后应该是一个表达式C.各 Case分支条件有误，不能用 To表示字符的取值区间D.x4是字符串中非字母、非数字字符的个数18.编写如下程序： Private Sub Commandl_Click() Dim mAs Integer,nAs Integer m=2：n=1 Select Case m Case 1 Select Case n Case1 Print”AAA” Case 2 Prinnt”BBB” Case 2 Print”CCC” End SelectEnd S
9、ub 程序运行后，单击命令按钮 Command1，输出结果为（分数：2.00）A.AAAB.BBBC.CCCD.119.某人设计了如下程序用于计算并输出 7!(7的阶乘) Private Sub Commandl_Click() t=0 For k=7 To 2 Step-1 t=t*k Next Prite t End Sub 执行程序时，发现结果是错误的。下面的修改方案中能够得到正确的是（分数：2.00）A.把 t=0改为 t=1B.把 For k=7 to 2 Step-1改为 For k=7 to 1 Step-1C.把 For k=7 to 2 Step-1改为 For k=1 to
10、 7D.把 Next改为 Next k20.为计算 an的值，某人编写了函数 power如下： Private Function power(a As Integer,n As Integer)As Long Dim P As Long P=a For k=1 To n P=p*a Next k Power=p End Function 在调试时发现是错误的，例如 Print power(5，4)的输出应该是 625.但实际输出是 3125。 程序需要修改。下面的修改方案中有 3个是正确的，错误的一个是（分数：2.00）A.把 For k=1 To n改为 For k=2 To nB.把 P=
11、p*a改为 P=paC.把 For k=1 To n改为 For k=1 To n1D.把 P=a改为 P=121.某人为计算 n!(0Then For i=Len(x)To 1 Step 一 1 s=Mid(x，i，1) If smax Then max=a(k) End If Next k Print max End SUb 运行程序时发现，当输入 10个正数时，可以得到正确结果，但输入 10个负数时结果是错误的，程序需要修改。下面的修改中可以得到正确运行结果的是（分数：2.00）A.把 If a(k)max Then改为 Ifa(k)B.把 max=a(k)改为 a(k)=maxC.把第
12、 2个循环语句 For k=1 To 10改为 For k=2 To 10D.把 max=0改为 max=a(10)32.在窗体上画一个名称为 Text1的文本框和一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim i As Integer,n As Integer For i=0 To 50 i=i+3：n=n+1 Ifi10 Then Exit For Next Text1Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（分数：2.00）A.2B.3C.4D.533.在窗体上
13、画一个名为 Command1的命令按钮，然后编写如下代码： Option Base 1 Private Sub Commandl_Click() Dim a a=Array(1，2，3，4)：j=1 For i=4 To 1 Step-1 s=s+a(i)*j：j=j*10 Next i Print s End Sub 运行上面的程序，其输出结果是（分数：2.00）A.1234B.12C.34D.432134.在窗体上画一个名称为 Text1的文本框和一个名称为 Commandl的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim iAs Inte
14、ger,nAs Integer For i=0 To 50 i=i+3：n=n+1 Ifi10 Then Exit For Next TeXt1Text=Str(n)End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（分数：2.00）A.2B.3C.4D.535.在窗体上画一个名称为 Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Commandl_Click() d=0：c=10：x=Array(10，12，21，32，24) For i=1 To 5 Ifx(i)c Then d=d+x(i)：c=x(i) Else d=d-
15、c End If Next i Print dEnd Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为（分数：2.00）A.89B.99C.23D.7736.在窗体上画 1个名称为 Command1的命令按钮，并编写如下事件过程： Private Sub Commandl_Click() X=1：s=0 For i=1 To 5 x=xi：s=s+x Next Print sEnd Sub 该事件过程的功能是计算（分数：2.00）A.s=1+2+3+4+5qB.s=1+12+13+14+15C.s=1+12!+13!+14!+15!D.s=1+1(1*2)+1(2*3)+1(3*4
16、)+1(4*5)37.有如下程序： Private Sub Form_Click() Dim iAs Integer,nAs Integer For i=1 To 20 i=i+4：n=n+i Ifi10 Then Exit For Next Print n End Sub 程序运行后，单击窗体，则输出结果是（分数：2.00）A.14B.15C.29D.3038.有以下通用过程： Function fun(N As Integer) S=0 For k=1 T0 N s=s+k*(k+1) Next k fun=S End Function 该过程的功能是（分数：2.00）A.计算 N!B.计
17、算 1+2+3+NC.计算 12233NND.计算 12+23+34+N(N+1)39.编写如下程序： Option Base 1 Prirate Sub Command1_Click() Dim a a=Array(1，2，3，4)：s=0：j=1 For i=4 To 1 Step-1 s=s+a(i)*j：j=j*10 Next i Print s End Sub 程序运行后，单击命令按钮 Command1，输出结果为（分数：2.00）A.110B.123C.1234D.432140.在窗体上画一个名称为 Command1的命令按钮，编写如下事件过程： Private Sub Comma
18、ndl_Click() n=0 For i=0 To 10 X=2*i-1 Tf X Mod 3=0 Then n=n+1 Next 1 Print n End Sub 运行程序，单击命令按钮，则窗体上显示的是（分数：2.00）A.1B.3C.5D.7国家二级 VB机试（控制结构）模拟试卷 16答案解析(总分：80.00，做题时间：90 分钟)一、选择题(总题数：40，分数：80.00)1.现有语句：y=IIf(x0，x Mod 3，0)设 x=10，则 y的值是（分数：2.00）A.0B.1 C.3D.语句有错解析：解析：本题考查的考点是有关 IIf函数的。IIf 函数可用于执行简单的条件判
19、断操作，它是“IfThenElse”结构的简写版本。 格式：ReSUlt=IIf(条件，True 部分，False 部分) 其中“Result”是函数的返回值，“条件”是一个逻辑表达式。当“条件”为真时，IIf 函数返回“True部分”的值，而当“条件”为假时返回“False 部分”的值。“True 部分”或“False 部分”可以是表达式、变量或其他函数。本题中由于 x=10是大于 0的，所以返回值为 x Mod 3的值即 1。2.设 x是整型变量，与函数 Ilffx0，-X，x)有相同结果的代数式是（分数：2.00）A.|x|B.一|x| C.xD.-x解析：解析：IIf 函数可以用来执行
20、简单的条件判断操作，它是“IfThenElse”结构的简写版本，其格式为：result=IIf(条件，True 部分，False 部分)。其中“result”是函数的返回值，“条件”是一个逻辑表达式。当“条件”为真时，IIf 函数返回“True 部分”，否则返回“False 部分”。“True 部分”或“False 部分”可以是表达式、变量或其他函数。本题中 IIf函数的作用是如果 x0则返回一 x，否则返回 x，等价于一|x|。3.计算下面分段函数的正确语句是 （分数：2.00）A.y=IIf(x0，x+1，IIf(x0，x 一 1，x+1)C.Y=IIf(x0，x+1，IIf(x50，In
21、t(a3)，a Mod 2)当 a=52时，x 的值是（分数：2.00）A.0B.1C.17 D.18解析：解析：IIf 函数可用来执行简单的条件判断操作，它是“IfThenElse”结构的简写版本。格式为：result=lIf(条件，True 部分，False 部分)。当条件为真时，IIf 函数返回True部分，而当条件为假时，返回False 部分。本题中 a的值是 52，所以条件为真，将返回 523的值即 17。5.在下面语句或函数中，不能描述选择结构的是（分数：2.00）A.If语句B.IIf函数C.Select Case语句D.While语句 解析：解析：选择结构可以使用 lIf函数、
22、If 语句来实现两个分支的选择结构，使用 Select Case语句实现多分支选择结构，while 语句用来描述循环结构。6.设窗体上有 Text1、Text2 两个文本框，并编写了下面的程序代码： Private Sub Text1_KeyPress(KeyAscii As Integer) If”A”85 Then r=1 Else If score60 Then r=2 Else r=0 End If Print r End Sub 程序运行后，单击命令按钮Command1，输出结果为（分数：2.00）A.0B.1 C.2D.86解析：解析：块结构条件语句的格式为： If条件 1 The
23、n ： 语句块 1 Elself条件 2 Then ：语句块 2 Else ： 语句块 n End If 如果“条件 1”为 True，则执行“语句块 1”并跳出结构；否则如果“条件 2”为 True，则执行“语句块 2”并跳出结构否则执行“语句块 n”并结束整个结构。9.设有如下事件过程： Private Sub Form_Click() Sum=0 For k=1 To 3 Ifk0，1，Ilf(x0 Then x=1 Elself xB.Ifx0 Then Print 1 ElselfxC.Select Case x Case Is0 Print 1 Case IsD.Ifx0 Then
24、 Print 1 Elselfx解析：解析：IIf 函数可用来执行简单的条件判断操作，它是“IfthenElse”结构的简写版本。格式为：Result=IIf(条件，True 部分，False 部分)。当条件为真时，IIf 函数返回True部分，而当条件为假时，返回False 部分。本题中 IIf函数的功能是判断 x是不是正数，如果是返回 1，否则继续判断 a是不是负数，如果是返回一 1，否则返回 0，即返回 x的符号。分析 4个选项只有 D选项不应该使用 ElseIf语句而应该使用 Else语句。11.在窗体上画一命令按钮和一文本框，其名称分别为 Command1和 Text1，然后编写如下
25、程序：Function Fun(x As Integer， Y As Integer)As Integer Fun=IIf(xA.1 2 B.20C.24D.40解析：解析：命令按钮的 Default属性用于设置窗体的缺省命令按钮，程序运行时，按下Enter键将执行该命令按钮的单击事件过程。IIf 函数可用来执行简单的条件判断操作，它是“IfthenElse”结构的简写版本。格式为：Result=IIf(条件，True 部分，False 部分)。当条件为真时，IIf函数返回True 部分，而当条件为假时，返回False 部分。本题在函数 Fun中判断 x是否比 v小，如果小则返回 x作为返回值
26、，否则返回 v作为返回值，即返回两个参数中的最小值。12.三角形的构成条件是：任意 2边之和大于第 3边。设变量 a、b、c 是 3条直线的长度，要求判断这 3条直线能否构成一个三角形。下面有 3个程序段可以正确判断，另一个不能正确判断的是（分数：2.00）A.If a+bc And a+cb And b+ca Then Print”可以构成一个三角形” Else Print”不能构成三角形”End IfB.If a+bc Or a+cb Or b+ca Then Print”可以构成一个三角形” Else Print”不能构成三角形” End If C.Ifa+b20B.Case 1 To
27、10C.Case 0(不等于)、(大于)、=(大于或等于)。14.假定有如下情况语句：Select Case X 能表示|X|5 的 Case子句是（分数：2.00）A.Case Not(-5 To 5)B.Case 5 To 一 5C.Case Is5 D.Case Abs(X)5解析：解析：多分支控制结构又称为 Select Case语句或 Case语句，可以同时对条件的多个取值来判断。其格式为： Select Case 测试表达式 Case表达式列表 1： 语句块 1 Case Else： 语句块 n End-Select Case语句以 Select Case开头，以 End Sele
28、ct结束。其中，表达式列表 1，表达式列表 2，称为域值。可采用 3种形式：表达式 1，表达式 2； 表达式 1 To表达式 2；Is关系运算表达式。其中，可使用的运算符有等于(=)、不等于()、小于()、大于()、小于或等于(=)、大于或等于(=)。15.现有如下一段程序： Private Sub Command1_Click() x=UCase(InputBox(”输入：”) Select Case x Case”A”Tb”C” Print”考核通过!” Case”D” Print”考核不通过!” Case Else Print”输入数据不合法!” End Select End Sub 执
29、行程序，在输入框中输入字母“B”，则以下叙述中正确的是（分数：2.00）A.程序运行错B.在窗体上显示“考核通过!” C.在窗体上显示“考核不通过!”D.在窗体上显示“输入数据不合法!”解析：解析：多分支控制结构又称为 Select Case语句或 Case语句，可以同时对条件的多个取值来判断。16.窗体上有 1个名称为 Command1的命令按钮，事件过程如下： Private Sub Commandl_Click() Dim sum As Integer,X As Integer num=Val(InputBox(”请输入一个正整数”) Select Case num Case Is100
30、 x=x+sum Case IsA.0 0 0B.0 0 60 C.0 90 0D.100 0 60解析：解析：多分支控制结构又称为 Select Case语句或 Case语句，可以同时对条件的多个取值来判断。本题中第一次输入 100执行 Case Else分支，由于 x是默认初值 0所以输出 0；第二次输入 90也执行Case Else分支，由于 x是默认初值 0所以输出 0；第三次输入 60执行第二个分支输出 60。17.窗体上有一个名称为 Text1的文本框，一个名称为 Command1的命令按钮。命令按钮的单击事件过程如下：Private Sub Command1_Click() Di
31、m x1 As Integer,x2 As Integer,x3 As Integer S=Trim(Text1Text) strLen=Len(s) For i=1 To strLen c=Mid(s，i，1) Select Case C Casc”0”To”9” x1=x1+1 Case”A”To”Z” x2=x2+1 Case”a”To”z” x3=3+1 Case Else x4=x4+1 End Select Next Print”x1”；x1，”x2”；x2，”x3”；x3，”x4”；x4End Sub 以下关于上述程序的叙述中，正确的是（分数：2.00）A.s是去掉文本框中字符串
32、末尾的空格B.Select Case c有误，Case 后应该是一个表达式C.各 Case分支条件有误，不能用 To表示字符的取值区间D.x4是字符串中非字母、非数字字符的个数 解析：解析：Trim 函数的作用是去掉文本框中字符串两端的空格；多分支控制结构又称为 Select Case语句或 Case语句，可以同时对条件的多个取值来判断，Case 后面的表达式可采用 3种形式：表达式1，表达式 2； 表达式 1 To表达式 2；Is 关系运算表达式。最终 x1是字符串中数字的个数；x2是字符串中大写字母的个数；x3 是字符串中小写字母的个数；x4 是字符串中非字母、非数字字符的个数。18.编写
33、如下程序： Private Sub Commandl_Click() Dim mAs Integer,nAs Integer m=2：n=1 Select Case m Case 1 Select Case n Case1 Print”AAA” Case 2 Prinnt”BBB” Case 2 Print”CCC” End SelectEnd Sub 程序运行后，单击命令按钮 Command1，输出结果为（分数：2.00）A.AAAB.BBBC.CCC D.1解析：解析：多分支控制结构又称为 Select Case语句或 Case语句，可以同时对条件的多个取值来判断。本题是一个嵌套的 Sel
34、ect Case语句，首先判断 m的值，本题由于 m的值为 2，所以不会执行 Case 1分支，直接执行 Case 2分支输出“CCC”19.某人设计了如下程序用于计算并输出 7!(7的阶乘) Private Sub Commandl_Click() t=0 For k=7 To 2 Step-1 t=t*k Next Prite t End Sub 执行程序时，发现结果是错误的。下面的修改方案中能够得到正确的是（分数：2.00）A.把 t=0改为 t=1 B.把 For k=7 to 2 Step-1改为 For k=7 to 1 Step-1C.把 For k=7 to 2 Step-1改
35、为 For k=1 to 7D.把 Next改为 Next k解析：解析：本题考查循环控制结构。在 Command1的 Click事件过程中，变量 t的初值为 0，在 For循环里面，t 变量保存累乘积。由于 t初值为 0，因此累乘积永远都是 0，因此 t的初值应该设置为 1。20.为计算 an的值，某人编写了函数 power如下： Private Function power(a As Integer,n As Integer)As Long Dim P As Long P=a For k=1 To n P=p*a Next k Power=p End Function 在调试时发现是错误的
36、，例如 Print power(5，4)的输出应该是 625.但实际输出是 3125。 程序需要修改。下面的修改方案中有 3个是正确的，错误的一个是（分数：2.00）A.把 For k=1 To n改为 For k=2 To nB.把 P=p*a改为 P=pa C.把 For k=1 To n改为 For k=1 To n1D.把 P=a改为 P=1解析：解析：本题考查循环控制结构。选项 A)循环少执行一次，由于 p初始化为 a相当于执行了第一次，因此循环必须少执行一次才能计算正确的 an；选项 B)中 pa已经是幂运算了，不需要循环来计算；选项C)循环少执行一次，正确：选项 D)中 D初始化
37、为 1，循环执行 n次正确。21.某人为计算 n!(0Then For i=Len(x)To 1 Step 一 1 s=Mid(x，i，1) If smax Then max=a(k) End If Next k Print max End SUb 运行程序时发现，当输入 10个正数时，可以得到正确结果，但输入 10个负数时结果是错误的，程序需要修改。下面的修改中可以得到正确运行结果的是（分数：2.00）A.把 If a(k)max Then改为 Ifa(k)B.把 max=a(k)改为 a(k)=maxC.把第 2个循环语句 For k=1 To 10改为 For k=2 To 10D.把
38、max=0改为 max=a(10) 解析：解析：本题考查的考点是有关循环和数组的。本题为了实现求取最大值，首先应该假设数组中的某一个数就是最大值，再依次与数组元素比较，一旦某个元素比当前的最大值大，就把它作为新的最大值。max初值设为 0是不可以的，它没有考虑到数组元素都小于 0的情况。32.在窗体上画一个名称为 Text1的文本框和一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim i As Integer,n As Integer For i=0 To 50 i=i+3：n=n+1 Ifi10 Then Exit
39、 For Next Text1Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（分数：2.00）A.2B.3 C.4D.5解析：解析：本题考查的考点是有关循环的。实际上本题就要关注循环何时结束，第一次循环中，i 的值变成 3，n 的值变为 1，然后 i+1变成 4；由于满足循环条件，所以第二次循环中，i 的值变成 7，n 的值变为 2，然后 i+1变成 8；由于还是满足循环条件，所以第三次循环中，i 的值变成 11，n 的值变为 3，然后判断由于 i已经大于 10，所以退出循环，最后 n的值为 3。33.在窗体上画一个名为 Command1的命令按钮，然后
40、编写如下代码： Option Base 1 Private Sub Commandl_Click() Dim a a=Array(1，2，3，4)：j=1 For i=4 To 1 Step-1 s=s+a(i)*j：j=j*10 Next i Print s End Sub 运行上面的程序，其输出结果是（分数：2.00）A.1234 B.12C.34D.4321解析：解析：本题考查的考点是有关循环的。本题也很简单，首先取得数组的最后一个元素加到累加变量中，然后取倒数第二个元素，乘 10后加到累加变量中，然后取倒数第三个元素，乘 100后加到累加变量中，以此类推，最后结果为 1234。34.在
41、窗体上画一个名称为 Text1的文本框和一个名称为 Commandl的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim iAs Integer,nAs Integer For i=0 To 50 i=i+3：n=n+1 Ifi10 Then Exit For Next TeXt1Text=Str(n)End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（分数：2.00）A.2B.3 C.4D.5解析：解析：语句 Exit For的作用是退出当前 For循环。本题中 For循环语句的循环变量 i不仅在执行到 Next语句时后自动加 1，而
42、且在每次执行循环体中的 i=i+3语句时，还会加 3。当第 1次进入循环体时i=0、n=0；当第 2次进入循环体时 i=4、n=1；当第 3次进入循环体时 i=8、n=2，此时当执行 i=i+3和n=n+1语句后，i=11、n=3，If 语句的条件表达式 i10为真，将退出循环，故文本框中显示的值为 3。35.在窗体上画一个名称为 Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Commandl_Click() d=0：c=10：x=Array(10，12，21，32，24) For i=1 To 5 Ifx(i)c Then d=d+x(i
43、)：c=x(i) Else d=d-c End If Next i Print dEnd Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为（分数：2.00）A.89B.99C.23 D.77解析：解析：本题的循环中依次用数组的每个元素和 c进行比较，如果比 c大就将数组元素累加，并令数组元素成为新的 c值；否则令累加和 d减去 c。在 5次循环中 d的累加过程为-10+12+21+32-32=23。36.在窗体上画 1个名称为 Command1的命令按钮，并编写如下事件过程： Private Sub Commandl_Click() X=1：s=0 For i=1 To 5 x=x
44、i：s=s+x Next Print sEnd Sub 该事件过程的功能是计算（分数：2.00）A.s=1+2+3+4+5qB.s=1+12+13+14+15C.s=1+12!+13!+14!+15! D.s=1+1(1*2)+1(2*3)+1(3*4)+1(4*5)解析：解析：在本题的循环中每次累加的变量是 x，而 x在每次的循环中都会除以 i，即第一次除以 1，第二次再除以 2，第三次再除以 3以此类推 C选项是正确答案。37.有如下程序： Private Sub Form_Click() Dim iAs Integer,nAs Integer For i=1 To 20 i=i+4：n=
45、n+i Ifi10 Then Exit For Next Print n End Sub 程序运行后，单击窗体，则输出结果是（分数：2.00）A.14B.15C.29D.30 解析：解析：本题的 For循环中改变了循环变量 i的值，而且在循环中还有 Exit语句退出循环，故此需要逐次循环进行分析。第一次循环中 i的初值为 1，然后变为 5，将其累加到 n中然后因其不满足 If条件，所以 i的值加上步长 l(特别重要很容易忘记)继续循环：第二次循环开始 i的值为 6，加上 4以后变为10，将其累加到 n中然后因其不满足 If条件，所以 i的值加上步长 1继续循环；第三次循环开始 i的值为 11，
46、加上 4以后变为 15，将其累加到 n中然后因其满足 If条件退出循环，所以累加三次的值为5+10+15=30。38.有以下通用过程： Function fun(N As Integer) S=0 For k=1 T0 N s=s+k*(k+1) Next k fun=S End Function 该过程的功能是（分数：2.00）A.计算 N!B.计算 1+2+3+NC.计算 12233NND.计算 12+23+34+N(N+1) 解析：解析：在函数中每次向累加和变量 s中累加 k*(k+1)的值，循环变量 k从 1循环到 N，即为求12+23+34+N(N+1)的值。39.编写如下程序： O
47、ption Base 1 Prirate Sub Command1_Click() Dim a a=Array(1，2，3，4)：s=0：j=1 For i=4 To 1 Step-1 s=s+a(i)*j：j=j*10 Next i Print s End Sub 程序运行后，单击命令按钮 Command1，输出结果为（分数：2.00）A.110B.123C.1234 D.4321解析：解析：本题的循环首先取出数组的最后一位累加，然后取出倒数第二位乘以 10以后累加；然后取出倒数第三位乘以 100后累加以此类推，最终结果为 1234。40.在窗体上画一个名称为 Command1的命令按钮，编写如下事件过程： Private Sub Commandl_Click() n=0 For i=0 To 10 X=2*i-1 Tf X Mod 3=0 Then n=n+1 Next 1 Print n End Sub 运行程序，单击命令按钮，则窗体上显示的是（分数：2.00）A.1B.3 C.5D.7解析：解析：本题的 For循环共执行 11次，在每次循环中计算出一个 X的值，然后判断能否被 3整除，如能整除则令计数器 n自加 1。
