[计算机类试卷]国家二级VB机试（选择题）模拟试卷8及答案与解析.doc

1、国家二级 VB机试（选择题）模拟试卷 8及答案与解析 一、选择题 1 现有语句： y=IIf(x 0， x Mod 3， 0) 设 x=10，则 y的值是 （ A） 0 （ B） 1 （ C） 3 （ D）语句有错 2 设 x是整型变量，与函数 IIf(x 0， -x， x)有相同结果的代数式是 （ A） |x| （ B） -|x| （ C） x （ D） -x 3 计算下面分段函数的正确语句是 （ A） y=IIf(x 0， x+1， IIf(x 0， x-1， 0) （ B） y=IIf(x=0， 0， IIf(x 0， x-1， x+1) （ C） y=IIf(x 0， x+1， IIf

2、(x 0， 0， x-1) （ D） y=IIf(x=0， 0， x-1， x+1) 4 现有如下语句： x=IIf(a 50， Int(a 3)， a Mod 2)当 a=52时， x的值是 （ A） 0 （ B） 1 （ C） 17 （ D） 18 5 在下面语句或函数中，不能描述选择结构的是 （ A） If语句 （ B） IIf函数 （ C） Select Case语句 （ D） While语句 6 设窗体上有 Textl、 Text2两个文本框，并编写了下面的程序代码： Private Sub Textl_KeyPress(KeyAscii As Integer) If“A“ =Chr

3、(KeyAscii)And Chr(KeyAscii) =”Z”Then KeyAscii=KeyAscii+(Asc(“a“)-Asc(”A”) End If n=0 If KeyAscii=13 Then For k=1 To Len(Textl) ch$=Mid(Textl， k， 1) If”a” =ch And ch =”z”Then n=n+1 Next k Text2=n End If End Sub 程序运行时，在 Textl文本框中输入 “Visual Basic 6 0”后按回车键，则在 Text2文本框显示的是 （ A） 1 1 （ B） 16 （ C） Visual B

4、asic 6 0 （ D） visual basic 6 0 7 编写如下程序： Private Sub Command l_Click() Dim a As Integer， b As Integer a=3： b=2 If a*b 1 0 Then b=b+1 Else b=b-1 End If Print b-a 0 End Sub 程序运行后，单击命令按钮 Commandl，输出结果为 （ A） True （ B） False （ C） 1 （ D） -1 8 编写如下程序： Private Sub Command 1_Click() Dim score As Integer scor

5、e=86 If score 85 Then r=1 Elself score 60 Then r=2 Else r=0 End If Print r End Sub 程序运行后，单击命令按钮 Commandl，输出结果为 （ A） 0 （ B） 1 （ C） 2 （ D） 86 9 设有如下事件过程： Private Sub Form_Click() Sum=0 For k=1 To 3 If k =l Then x=1 Elselfk =2 Then x=2 Elselfk =3 Then x=3 Else x=4 End If Sum=Sum+x Next k Print Sum End

6、Sub 程序运行后，单击窗体，输出结果是 （ A） 9 （ B） 6 （ C） 3 （ D） 10 10 设订下面的语句： Print IIf(x 0， 1， IIf(x 0， -1， 0)与此语句输出结果不同的程序段是 （ A） If x 0 Then x=1 Elselfx 0 Then x=-1 End If Print x （ B） Ifx 0 Then Print 1 Elselfx 0 Then Print-1 Else Print 0 End If （ C） Select Case X Case Is 0 Print 1 Case IS 0 Print-1 Case Else P

7、rint 0 End Select （ D） If x 0 Then If x 0 Then Print 1 Elself x 0 Then Print-1 Else Print 0 End If End If 11 在窗体上画一命令按钮和一文本框，其名称分别为 Commandl和 Textl，然后编写如下程序： Function Fun(x As Integer， y As Integer)As Integer Fun=IIf(x y， x， y)End Function Private Sub Form_Load() Command 1 Default=True End Sub Priva

8、te Sub Command l_Click() Dim a As Integer,b As Integer a=20： b=12 Text 1 Text=Str(Fun(a， b) End Sub 程序运行后，按回车键，文本框中显示的内容为 （ A） 12 （ B） 20 （ C） 24 （ D） 40 12 三角形的构成条件是：任意 2边之和大于第 3边。设变量 a、 b、 c是 3条直线的长度，要求判断这 3条直线能否构成一 个三角形。下面有 3个程序段可以正确判断，另一个不能正确判断的是 （ A） If a+b c And a+c b And b+C a Then Print”可以构成

9、一个三角形 ” Else Print”不能构成三角形 ” End If （ B） If a+b c Or a+c b Or b+c a Then Print”可以构成一个三角形 ” Else Print”不能构成三角形 ” End If （ C） If a+b =c Or a+c =b Or b+c =a Then Print”不能构成三角形 ” Else Print”可以构成一个三角形 ” End If （ D） If a+b =c Or a+c =b Then Print”不能构成三角形 ”Elselfb+c =a Then Print”不能 构成三角形 ” Else Print”可以构成

10、一个三角形 ” End If 13 设 x为一整型变量，且语句的开始为： Select Case x，则不符合语法规则的Case子句是 （ A） Case Is 20 （ B） Case l To 10 （ C） Case 0 Is And IS 20 （ D） Case 2， 3， 4 14 假定有如下情况语句： Select Case X能表示 |X| 5的 Case子句是 （ A） Case Not(-5 To 5) （ B） Case 5 To-5 （ C） Case Is -5 Is 5 （ D） Case Abs(X) 5 15 现有如下一段程序： Private Sub Comm

11、and 1_Click() x=UCase(InputBox(”输入： ”) Select Case X Case”A”To”C” Print”考核通过 !” Case ”D” Print”考核不通过 !” Case Else Print”输入数据不合法 !” End Select End Sub 执行程序，在输入框中输入字母 “B”，则以下叙述中正确的是 （ A）程序运行错 （ B）在窗体上显示 “考核通过 !” （ C）在窗体上显示 “考核不通过 !” （ D）在窗体上显示 “输入数据不合法 !” 16 窗体上有 1个名称为 Commandl的命令按钮，事件过程如下： Private Su

12、b Command l_Click() Dim hum As Integer， x As Integer num=Val(InputBox(”请输入一个正整数 ”) Select Case num Case Is 100 x=x*hum Case Is 90 x=num Case Else x=x*num End Select Print x； End Sub 运行程序，并在三次单击命令按钮时，分别输入正整数 100、 90和 60，则窗体上显示的内容为 （ A） 0 0 0 （ B） 0 0 60 （ C） 0 90 0 （ D） 100 0 60 17 窗体上有一个名称为 Textl的文本

13、框，一个名称为 Commandl的命令按钮。命令按钮的单击事件过程如下： Private Sub Command l_Click() Dim x 1 As Integer,x2 As Integer,x3 As Integer s=Trim(Textl Text) strLen=Len(s) For i=1 To strLen c=Mid(s， i， 1) Select Case c Case”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”；

14、 x1， ”x2”； x2， ”x3”； x3， ”x4”； x4 End Sub 以下关于上述程序的叙述中，正确的是 （ A） S是去掉文本框中字符串末尾的空格 （ B） Select Case c有误， Case后应该是一个表达式 （ C）各 Case分支条件有误，不能用 To表示字符的 取值区间 （ D） x4是字符串中非字母、非数字字符的个数 18 编写如下程序： Private Sub Command l_Click() Dim m As Integer， n As Integer m=2： n=1 Select Case m Case 1 Select Case n Case 1

15、Print”AAA” Case 2 Print”BBB” Case 2 Print”CCC” End Select End Sub 程序运行后，单击命令按钮 Commandl，输出结果为 （ A） AAA （ B） BBB （ C） CCC （ D） 1 19 某人为计算 n!(0 n =1 2)编写了下面的函数过程： Private Function fun(n As Integer)As Long Dim P As Long p=1 For k=n-1 To 2 Step-1 p=p*k Next k fun=p End Function 在调试时发现该醺数过程产生的结果是错误的，程序需要

16、修改。下面的修改方案中有 3种是正确的，错误的方案是 （ A）把 P=1改为 P=n （ B）把 For k=n-1 To 2 Step-1改为 For k=1 To n-1 （ C）把 For k=n-1 To 2 Step-1改为 For k=1 To n （ D）把 For k=n-1 To 2 Step-1改为 For k=2 To n 20 阅读程序： Private Sub Form_Click() a=0 For i=1 To 1 5 a=a+j Mod 3 Next j Print a End Sub 程序运行后，单击窗体，输出结果是 （ A） 105 （ B） 1 （ C）

17、120 （ D） 1 5 21 在窗体上画一个命令按钮，其名称为 Commandl，然后编写如下代码： Option Base 1 Private Sub Command 1_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 程序运行后，单击命令按钮，其输出结果是 （ A） 4321 （ B） 1234 （ C） 34 （ D） 12 22 在窗体上画一个命令按钮，名称为 Commandl，然后编写如下代码： Option Base 0 Priv

18、ate Sub Command l_Click() Dim A l(4)As Integer,A2(4)As Integer For k=0 To 2 Al(k+1)=InputBox(”请输入一个整数 ”) A2(3-k)=Al(k+1) Next k Print A2(k) End Sub 程序运行后，单击命令按钮，在输入对话框中依次输入 2、 4、 6，则输出结果为 （ A） 0 （ B） 1 （ C） 2 （ D） 3 23 设有以下程序： Private Sub Form_Click() x=50 For i=1 To 4 y=InputBox(”请输入一个整数 ”) y=Val(y

19、) Ify Mod 5=0 Then a=a+Y x=y Else a=a+x End If Next i Print a End Sub 程序运行后，单击窗体，在输入对话框中依次输入 15、 24、 35、 46，输出结果为 （ A） 100 （ B） 50 （ C） 120 （ D） 70 24 有下面程序代码： Private Sub Command l_Click() a=3 s=0 For k=1 To 5 s=s+a Mod k a=a+k Next k Print s End Sub 程序运行后，单击命令按钮 Commandl，输出结果是 （ A） 1 5 （ B） 13 （ C

20、） 4 （ D） 1 25 有下面程序代码： Private Sub Command l_Click() Dim sign As Integer sign=1 a=1： b=2 For k=1 To 5 c=a+sign*b a=b： b=c Print c； sign=-sign Next k End Sub 程序运行后，单击命令按钮 Commandl，输出结果是 （ A） 3-1 2-3-1 （ B） 3 5 8 13 21 （ C） -1 1-2-1-1 （ D） 3 4 5 6 7 26 编写如下程序： Private Sub Command l_Click() Dim a(10)As

21、 String s=”123456” n=Len(s) For k=1 To n a(k)=Mid(s， k， 1) Next k For i=1 To n 2 t=a(i) a(i)=a(n-i+1) a(n-i+1)=t Next i For k=1 To n Print a(k)； Next k End Sub 程序运行后，单击命令按钮 Commandl，输出结果为 （ A） 654321 （ B） 123456 （ C） 654123 （ D） 123654 27 窗体上有 1个名称为 Commandl的命令按钮； 1个名称为 Listl、没有列表项的列表框。编写 如下程序： Priv

22、ate Sub Command l_Click() Dim x As String， s As String， temp As String Dim i As Integer x=InputBox(”输入字符串 ”， ”输入 ”) If x ”Then For i=Len(x)To 1 Step-1 s=Mid(x， i， 1) If s “Then temp=s+temp Else List 1 Addltem temp s=“ temp=“ End If Next List 1 Addltem temp Else MsgBox”输入内容为空 !” End If End Sub 程序运行后，

23、单击命令按钮 Commandl，并输入 “Happy new year”，则在 List1中显示的内容为 （ A） year new Happy （ B） Happy new year （ C） raey wen yppaH （ D） yppaH wen raey 28 设窗体上有一个文本框 Textl和一个命令按钮 Commandl，并有以下事件过程：Private Sub Commandl_Click()Dim s As String， ch As String s=“For k=1 To Len(Textl)ch=Mid(Textl， k， 1)s=ch+s Next k Textl T

24、ext=s End Sub程序执行时，在文本框中输入 “Basic”，然后单击命令按钮，则 Textl中显示的是 （ A） Basic （ B） cisaB （ C） BASIC （ D） CISAB 29 某人编写了如下程序，用来求 10个整数 (整数从键盘输入 )中的最大值： Private Sub Command l_Click() Dim a(1 0)As Integer,max As Integer For k=1 To 10 a(k)=InputBox(”输入一个整数 ”) Next k max=0 For k=1 To 10 Ifa(k) max Then max=a(k) En

25、d If Next k Print max End Sub 运行程序时发现，当输入 10个正数时，可以得到正确结果，但输入 10个负数时结果是错误的，程序需要修改。下面的修改中可以得到正确运行结果的是 （ A）把 Ifa(k) max Then改为 If a(k) max Then （ B）把 max=a(k)改为 a(k)=max （ C）把第 2个 循环语句 For k=1 To 10改为 For k=2 To 10 （ D）把 max=0改为 max=a(10) 30 在窗体上画一个名称为 Textl的文本框和一个名称为 Commandl的命令按钮，然后编写如下事件过程： Private

26、 Sub Command l_Click() Dim i As Integer， n As Integer For i=0 To 50 i=i+3 n=n+1 If i 10 Then Exit For Next Textl Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是 （ A） 2 （ B） 3 （ C） 4 （ D） 5 31 在窗体上画一个名为 Commandl的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command l_C lick() Dim a a=Array(1， 2， 3， 4)： j=1 Fo

27、r i=4 To 1 Step-1 s=s+a(i)*j： j=j*10 Next i Print s End Sub 运行上面的程序，其输出结果是 （ A） 1234 （ B） 12 （ C） 34 （ D） 4321 32 在窗体上画一个名称为 Textl的文本框和一个名称为 Commandl的命令按钮，然后编写如下事件过程： Private Sub Command l_Click() Dim i As Integer， n As Integer For i=0 To 50 i=i+3： n=n+l If i 10 Then Exit For Next Textl Text=Str(n)

28、End Sub 程序运行后，单击命令按钮，在文本框中显示的值是 （ A） 2 （ B） 3 （ C） 4 （ D） 5 33 在窗体上画一个名称为 Commandl的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command 1 Click() d=0： c=10： x=Array(10， 12， 2 1， 32， 24) For i=1 To 5 Ifx(i) c Then d=d+x(i)： c=x(i) Else d=d-c End If Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为 （ A） 8

29、9 （ B） 99 （ C） 23 （ D） 77 34 在窗体上画 1个名称为 Commandl的命令按钮，并编写如下事件过程： Private Sub Command l_Click() x=1： s=0 For i=1 To 5 x=x i： s： =s+x Next Print s End Sub 该事件：过程的功能是计算 （ A） s=1+2+3+4+5q （ B） s=1+1 2+1 3+1 4+1 5 （ C） s=1+1 2 !+1 3 !+1 4 !+1 5 ! （ D） s=1+1 (1*2)+1 (2*3)+1 (3*4)+1 (4*5) 35 有如下程序： Priate

30、 Sub Form_Click() Dim i As Integer,n As Integer For i=l To 20 i=i+4： n=n+i If i 10 Then Exit For Next Print n End Sub 程序运行后，单击窗体，则输出结果是 （ A） 14 （ B） 15 （ C） 29 （ D） 30 36 有以下通用过程： Function fun(N As Integer) s=0 For k=1 To N s=s+k*(k+1) Next k fun=s End Function 该过程的功能是 （ A）计算 N! （ B）计算 1+2+3+N （ C）计

31、算 1 2 2 3 3 N N （ D）计算 1 2+23+3 4+N(N +1) 37 编写如下程序： Option Base 1 Private Sub Command l_Click() Dim a a=Array(1， 2， 3， 4)： s=0： g=1 For i=4 To 1 Step-1 s=s+a(i)*j： j=j*10 Next i Print s End Sub 程序运行后，单击命令按钮 Commandl，输出结果为 （ A） 110 （ B） 123 （ C） 1234 （ D） 4321 国家二级 VB机试（选择题）模拟试卷 8答案与解析 一、选择题 1 【正确答案

32、】 B 【试题解析】 本题考查的考点是有关 IIf函数的。 lIf函数可用于执行简单的条件判断操作，它是 “IfThenElse” 结构的简写版本。 格式： Result=IIf(条件， True部分， False部分 ) 其中 “Result”是函数的返回值， “条件 ”是一个逻辑表达式。当 “条件 ”为真时， IIf函数返 回 “True部分 ”的值，而当 “条件 ”为假时返回 “False部分 ”的值。 “True部分 ”或 “False部分 ”可以是表达式、变量或其他函数。本题中由于 x=10是大于 0的，所以返回值为 x Mod 3的值即 1。 2 【正确答案】 B 【试题解析】 I

33、If函数可以用来执行简单的条件判断操作，它是 “IfThenElse”结构的简写版本，其格式为： result=IIf(条件， True部分， False部分 )。其中“result”是函数的返回值， “条件 ”是一个逻辑表达式。当 “条件 ”为真时， IIf函数返回 “True部分 ”，否则返回 “False部分 ”。 “True部分 ”或 “False部分 ”可以是表达式、变量或其他函数。本题中 IIf函数的作用是如果 x 0则返回 x，否则返回x，等价于 -|x|。 3 【正确答案】 A 【试题解析】 IIf函数可用来执行简单的条件判断操作，它是 “IfThenElse” 结构的简写版本

34、。格式为： result=IIf(条件， True部分 , False部分 )。当条件为真时， IIf函数返回 True部分，而当条件为假时，返回 False部分。本题中分 段函数共有三段，因此需要使用嵌套的 lIf函数。 4 【正确答案】 C 【试题解析】 IIf函数可用来执行简单的条件判断操作，它是 “IfThenElse” 结构的简写版本。格式为： result=IIf(条件， True部分， False部分 )。当条件为真时， IIf函数返回 True部分，而当条件为假时，返回False部分。本题中 a的值是 52，所以条件为真，将返回 52 3的值即 17。 5 【正确答案】 D 【

35、试题解析】 选择结构可以使用 IIf函数、 If语句来实现两个分支的选择结构，使用 Select Case语句实现多分支选择结构， While语句用来描述循环结构。 6 【正确答案】 A 【试题解析】 本题中的第一个 IfThen 结构的作用是将所有输入的大写字符转换为小写字符；第二个 If结构的条件是按下回车键，里面嵌套了一个 For循环，在循环中依次取出文本框中的每一个字符进行判断，若其为小写字符则 n自加 1，循环结束后 n的值就是文本框中字母的个数。 7 【正确答案】 B 【试题解析】 本题的程序中由于 a*b 10条件成立，因 此执行 Then分支， b自加 1变成 3，最后输出 b

36、-a 0的值即 False。 8 【正确答案】 B 【试题解析】 块结构条件语句的格式为： If条件 1 Then 语句块 1 Elself 条件 2 Then 语句块 2 Else 语句块 n EndIf 如果 “条件 1”为 True，则执行 “语句块 1”并跳出结构；否则如果 “条件 2”为True，则执行 “语句块 2”并跳出结构 否则执行 “语句块 n”并结束整个结构。 9 【正确 答案】 B 【试题解析】 本题总共循环三次，在每次循环中由于循环变量 k的值不同，将分别进入 If语句的不同分支。在块结构的 If语句中，一旦满足某个 If或者 ElseIf后面的条件，将不再判断其他条件

37、是否满足。所以本题输出的是 1+2+3的值。 10 【正确答案】 D 【试题解析】 IIf函数可用来执行简单的条件判断操作，它是 “IfthenElse” 结构的简写版本。格式为： Result=IIf(条件 , True部分 , False部分 )。当条件为真时， IIf函数返回 True部分，而当条件为假时，返回 False部分。本题中 IIf函数的功能是判断 x是不是正数，如果是返回 1，否则继续判断 a是不是负数，如果是返回 -1，否则返回 0，即返回 x的符号。分析 4个选项只有 D选项不应该使用 ElseIf语句而应该使用 Else语句。 11 【正确答案】 A 【试题解析】 命令

38、按钮的 Default属性用于设置窗体的缺省命令按钮，程序运行时，按下 Enter键将执行该命令按钮的单击事件过程。 IIf函数可用来执行简单的条件判断操作，它是 “IfthenElse” 结构的简写版本 。格式为： Result=IIf(条件， true部分 , False部分 )。当条件为真时， IIf函数返回 True部分，而当条件为假时，返回 False部分。本题在函数 Fun中判断 x是否比 y小，如果小则返回 x作为返回值，否则返回 y作为返回值，即返回两个参数中的最小值。 12 【正确答案】 B 【试题解析】 任意两边之和大于第三边，必须要求任意两个变量的和全部大于另一个变量，也

39、就是三个表达式必须同时成立，只有一个或两个成立是不行的，故此 B选项不能正确判断。 13 【正确答案 】 C 【试题解析】 Case语句中含有多个参量，这些参量的含义分别为： 测试表达式：可以是任何表达式，通常采用变量或常量； 语句块 1，语句块 2， ：每个语句块由一行或多行合法的 Visual Basic语句组成； 表达式列表 1，表达式列表 2， ：称为域值。可采用下列 3种形式之一： 表达式 1，表达式 2 。 表达式 1 To表达式 2。 Is关系运算表达式，其中可使用的运算符有 =(等于 )、 (不等于 )、 (小于 )、 (大于 )、 =(小于或等于 )、 =(大于或等于 )。

40、14 【正 确答案】 C 【试题解析】 多分支控制结构又称为 Select Case语句或 Case语句，可以同时对条件的多个取值来判断。其格式为： Select Case测试表达式 Case表达式列表 1 语句块 1 Case Else 语句块 n End Select Case语句以 Select Case开头，以 End Select结束。 其中，表达式列表 1，表达式列表 2， 称为域值。可采用 3种形式： 表达式1，表达式 2 ； 表达式 1 To表达式 2； Is关系运算表达式。其中，可使用的运算符有等于 (=)、不等于 ( )、小于 ( )、大于 ( )、小于或等于 ( =)、大

41、于或等于 ( =)。 15 【正确答案】 B 【试题解析】 多分支控制结构又称为 Select Case语句或 Case语句，可以同时对条件的多个取值来判断。其格式为：同 14题。 16 【正确答案】 B 【试题解析】 多分支控制结构又称为 Select Case语句或 Case语句，可以同时对条件的多个取值来判断。其格式为：同 14题。 本题中第一次输入 100执行 Case Else分支，由于 x是默认初值 0所以输出 0；第二次输入 90也执行 Case Else分支，由于 x是默认初值 0所以输出 0；第三次输入 60执行第二个分支输出 60。 17 【正确答案】 D 【试题解析】 T

42、rim函数的作用是去掉文本框中字符串两端的空格：多分支控制结构又称为 Select Case语句或 Case语句，可以同时对条件的多个取值来判断，Case后面的表达式可采用 3种形式： 表达式 1，表达式 2 ； 表达式 1 To表达式 2； Is关系运算表达式。 最终 xl是字符串中数字的个数； x2是字符串中大写字母的个数； x3是字符串中小写字母的个数； x4是字符串中非字母、非数字字符的个数。 18 【正确答案】 C 【试题解析】 多分支控制结构又称为 Select Case语句或 Case语句，可以同时对条件的多个取值来判断。本题是一个嵌套的 Select Case语句，首先判断 m

43、的值，本题由于 m的值为 2，所以不会执行 Case 1分支，直接执行 Case 2分支输出“CCC” 19 【正确答案】 B 【试题解析】 本题考查的考点是有关循环次数的。 本题题干中程序的错误在于，p的值是从 1一直乘到 n-1的值，也就是 n-1的阶乘。选项 A)可以在这个基础上再乘 n就得到 n的阶乘；选项 C)和 D)都能够保证从 1乘到 n，只有选项 B)是错误的。 20 【正确答案】 D 【试题解析】 本题考查的考点是有关循环的。本题中循环的特点是：每执行 3次循环，依次向 a中加上 0+1+2也就是 3；循环共执行了 15次，所以 a中的值应该为 15。 21 【正确答案】 B

44、 【试题解析】 本题考查的考点是有关循环的。在本题的循环中，首先取得数组的最后一个元素并乘 1后放 入 s；然后取得第 3个元素并乘 10后加到 s里面，然后取得第 2个元素并乘 100后加到 s里面，最后取得第 1个元素并乘 1000后加到 s里面，所以 s的最终值为 1234。 22 【正确答案】 C 【试题解析】 本题的关键之处在于抓住每次具体给哪个数组元素进行了赋值，第一次循环中输入的 2被赋给了 A1(1)和 A2(3)，第二次循环中输入的 4被赋给了A1(2)和 A2(2)，第三次循环中输入的 6被赋给了 A1(3)和 A2(1)，跳出循环时 k的值为 3，所以最后输出 2。 23

45、 【正确答案】 A 【试题解析 】 本题考查的考点是有关循环的。本题需要写出每一次循环的变量变化情况。第一次循环时输入 15， If判断为真，所以 a=15， x=15；第二次循环时输入 24， If判断为假，所以 a=15+15=30， x仍然为 15；第三次循环时输入 35， If判断为真，所以 a=30+35=65， x=35；第四次循环时输入 46， If判断为假，所以a=65+35=100， x=35。 24 【正确答案】 C 【试题解析】 在 For循环中 k的值从 1变化到 5，在每次循环中为累加和变量 s累加上 a Mod k的值然后令 a自加 k，故此整 个循环过程中 s=0

46、+0+0+1+3=4。 25 【正确答案】 A 【试题解析】 在每次循环中 sign的值在 1和 -1之间来回变化，第一次循环时sign的值为 1；在循环中 c的值为 a+sign*b，然后将 b赋值给 a， c赋值给 b；因此第一次循环结束后 c的值为 3， a的值为 2， b的值为 3；第二次循环结束后 c的值为 -1， a的值为 3， b的值为 -1；第三次循环结束后 c的值为 2， a的值为 -1， b的值为 2：第四次循环结束后 c的值为 -3， a的值为 2， b的值为 -3；第五次循环结束后 c的值为 -1， a的值为 -3， b的值为 -1。 26 【正确答案】 A 【试题解析

47、】 本题中有三个 For循环，但是这三个循环之间没有嵌套关系，而是顺序的关系。在第一个循环中依次取出字符串 s中的每一个字符存入数组 a；第二个循环中将数组的第一个元素和最后一个元素互换，第二个元素和倒数第二个元素互换 以此类推完成数组的逆序；第三个循环输出数组元素。 27 【正确答案】 A 【试题解析】 本题的循环中倒序从字符串 s中依次取出每一个字符，只要该字符不是空格就将其连接到 temp的前面，见到空格就把连接好的 temp加入到列表框中，即 先加入 year，然后是 new，最后是 Happy。 28 【正确答案】 B 【试题解析】 本题考查的考点是有关循环和取子串函数的。本题比较简

48、单，循环次数就是字符串的长度，每次都在第 k位取一个字母，最后倒序连接起来。注意每次都把 ch连接到 s的前面。 29 【正确答案】 D 【试题解析】 本题考查的考点是有关循环和数组的。本题为了实现求取最大值，首先应该假设数组中的某一个数就是最大值，再依次与数组元素比较，一旦某个元素比当前的最大值大，就把它作为新的最大值。 max初值设为 0是不可以的，它没有考虑到数组元素都小于 0的情况。 30 【正确答案】 B 【试题解析】 本题考查的考点是有关循环的。实际上本题就要关注循环何时结束，第一次循环中， i的值变成 3， n的值变为 1，然后 i+1变成 4；由于满足循环条件，所以第二次循环中， i的值变成 7， n的值变为 2，然后 i+1变成 8；由于还是满足循环条件，所以第三次循环中， i的值变成 11， n的值变为 3，然后判断由于 i已经大于 10，所以退出循环，最后 n的值为 3。 31 【正确答案】 A 【试题解