1、国家二级 VB机试（控制结构）模拟试卷 14及答案与解析 一、选择题 1 编写如下程序： Private Sub Commandl_Click() Dim a(10)As 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 （
2、 C） 654123 （ D） 123654 2 窗体上有 1个名称为 Commandl的命令按钮； 1个名称为 List1、没有列表项的列表框。编写如下程序： Private Sub Commandl_Click() Dim x As String， s As String， temp As String Dim iAs Integer x=InputBox(“输入字符串 “， “输入 “) Ifx “Then For i=Len(x)To 1 Step-1 s=Mid(x， i， 1) If S “Then temp=s+temp Else List1 AddItem temp s=“：
3、temp=“ End If Next List1 AddItem temp Else MsgBox“输入内容为空 !“ End If End Sub 程序运行后，单击命令按钮 Commandl，并输 入 “Happy new year”，则在 Lis1中显示的内容为 （ A） year new Happy （ B） Happy new year （ C） raey wen yppaH （ D） yopaH wen raey 3 设窗体上有一个文本框 Text1和一个命令按钮 Command1，并有以下事件过程：Private Sub Command1_Click()Dim s As Strin
4、g， ch As String S=“For k=1 To Len(Text1)ch=Mid(Text1， k， 1)s=ch+s Next k Text1 Text=s End Sub程序执行时，在文本框中输入 “Basic”，然后单击命令按钮，则 Text1中显示的是 （ A） Basic （ B） cisaB （ C） BASIC （ D） CISAB 4 某人编写了如下程序，用来求 10个整数 (整数从键盘输入 )中的最大值： Private Sub Commandl_Click() Dim a(10)As Integer,max As Integer For k=1 To 10 a(
5、k)=InputBox(“输入一个整数 “) Nextk max=0 For k=1 To 10 Ifa(k) max Then max=a(k) End If Next k Print max End Sub 运行程序时发现，当输入 10个正数时，可以得到正确结果，但输入 10个负数时结果是错误的，程序需要修改。下面的修改中可以得到正确运行结果的是 （ A）把 Ifa(k) max Then改为 Ifa(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改为
6、 max=a(10) 5 在窗体上画一个名称为 Textl的文本框和一个名称为 Commandl的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim iAs Integer,nAs Integer For i=0 To 50 i=i+3： n=n+1 If i 10 Then Exit For Next Text1 TeXt=Str(n) End Sub 程序运行后，单击命 令按钮，在文本框中显示的值是 （ A） 2 （ B） 3 （ C） 4 （ D） 5 6 在窗体上画一个名为 Command1的命令按钮，然后编写如下代码： Option B
7、ase 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 运行上面的程序，其输出结果是 （ A） 1234 （ B） 12 （ C） 34 （ D） 4321 7 在窗体上画一个名称为 Textl的文本框和一个名称为 Commandl的命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Dim iAs Integer,nAs Integer For i=0 T
8、o 50 i=i+3： n=n+1 Ifi 10 Then Exit For Next Text1 Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是 （ A） 2 （ B） 3 （ C） 4 （ D） 5 8 在窗体上画一个名称为 Commandl的命令按钮，然后编写如下程序： Option Base 1 Private Sub Commandl_Ciek() 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 c End I
9、f Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为 （ A） 89 （ B） 99 （ C） 23 （ D） 77 9 在窗体上画 1个名称为 Commandl的命令按钮，并编写如下事件过程： Private Sub Commandl_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
10、+1 (1*2)+1 (2*3)+1 (3*4)+1 (4*5) 10 有如下程序： Private Sub Form_Click() Dim i As Integer,n As Integer For i=1 To 20 i=i+4： n=n+i Ifi 10 Then Exit For Next Print n End Sub 程序运行后，单击窗体，则输出结果是 （ A） 14 （ B） 15 （ C） 29 （ D） 30 11 有以下通用过程： Function fun(N As Integer) s=0 For k=1 To N s=s+k*(k+1) Next k fun=s En
11、d Function 该过程的功能是 （ A）计算 N! （ B）计算 1+2+3+N （ C）计算 12233NN （ D）计算 12+23+34+N(N+1) 12 编写如下程序： Option Base 1 Prirate Sub Commandl_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 程序运行后，单击命令按钮 Commandl，输出结果为 （ A） 110 （ B） 123 （ C） 1234 （ D） 4321
12、13 在窗体上画一个名称为 Commandl的命令按钮，编写如下事件过程： Private Sub Commandl_Click() n=0 For i=0 To 10 X=2*i一 1 IfX Mod 3=0 Then n=n+1 Next i Print n End Sub 运行程序，单击命令按钮，则窗体上显示的是 （ A） 1 （ B） 3 （ C） 5 （ D） 7 14 窗体上有一个名称为 Textl的文本框，一个名称为 Commandl的命令按钮。要求编写一个程序，统计文本框中 0-9各数字字符的个数。某人编写如下程序： Prirate Sub Commandl_Click() D
13、im count(10)As Integer第 1个 For循环 For i=0 To 9 count(i)=0 Next s=Trim(Text1， Text) strLen=Len(s)第 2个 For循环 For i=1 To strLen c=Mid(s， i， 1) If c =“0“And c =“9“Then x=Val(c)： count(i)=count(i)+1 End If Next第 3个 For循环 For i=0 To 9 Print Str(i)， count(i) Next End Sub 运行程序后，发现不能实现题目的要求，程序应该进行的修改是 （ A）将第
14、2个 For循环的初值改为 0 （ B）将第 2个 For语句改为 For i=0 To 9 （ C）去掉 x=Val(c)语句 （ D）将 count(i)=count(i)+1改为 count(x)=count(x)+1 15 在窗体上画一个组合框，其名称为 Combol，然后编写如下事件过程： Private Sub Form_Load() Combol Text=”1” For i=1 To 10 Sum=Sum+i Next i Combol Text=Sum End Sub 程序运行后，输出结果为 （ A）在组合框的编辑区中显示 1 （ B）在组合框的编辑区中显示不定值 （ C）在
15、组合框的编辑区中显示 55 （ D）出错信息 16 下面循环语句中在任何情况下都至少执行一次循环体的是 （ A） Do While条件 循环体 Loop （ B） While条件 循环体 Wend （ C） Do 循环体 LoopUntil条件 （ D） Do Until条件 循环体 Loop 17 设 a、 b都是自然数，为求 a除以 b的余数，某人编写了以下函数： Function fun(a As Integer,b As Integer) While ab a=a b Wend fun=a End Function 在调试时发现函数是错误的。为使函数能产生正确的返回值，应做的修改是 （
16、 A）把 a=a b改为 a=b a （ B）把 a=a b改为 a=a b （ C）把 While a b改为 While a b （ D）把 While a b改为 While a =b 18 设有如下事件过程： Private Sub Form_Click() x=0 While x 10 x=x+1： x=x*x Wend Print x End Sub 运行程序，单击窗体，输出结 果是 （ A） 16 （ B） 19 （ C） 20 （ D） 25 19 下面程序在调试时出现了死循环 Private Sub Commandl_Click() n=InputBox(“请输入一个整数 ”
17、) Do Ifn Mod 2=0 Then n=n+1 Else n=n+2 End If Loop Until n=1000 End Sub （ A）只有输入的 n是偶数时才会出现死循环，否则不会 （ B）只有输入的 n是奇数时才会出现死循环，否则不会 （ C）只有输入的 n是大于 1000的整数时才会出现死循环，否则不会 （ D）输入任何整数都会出现死循环 20 假定有以下循环结构 Do Until条件表达式循环体 Loop则以下正确的描述是 （ A）如果 “条件表达式 ”的值是 0，则一次循环体也不执行 （ B）如果 “条件表达式 ”的值不为 0，则至少执行一次循环体 （ C）不论 “条
18、件表达式 ”的值是否为 “真 ”，至少要执行一次循环体 （ D）如果 “条件表达式 ”的值恒为 0，则无限次执行循环体 21 以下 Visual Basic不支持的循环结构是 （ A） ForNext （ B） For EachNext （ C） DoLoop （ D） DoEnd Do 22 在窗体上画两个文本框 (名称分别为 Text1和 Text2)和一个命令按钮 (名称为Commandl)，然后编写如下事件过程： Private Sub Commandl_Click() x=0 Do While x 50 x=(x+2)*(x+3)： n=n+1 Loop Textt Text=Str
19、*(n)： Text2 Text=Str(x) End Sub 程序运行后，单击命令按钮，在两个文本框中显 示的值分别为 （ A） 1和 0 （ B） 2和 72 （ C） 3和 50 （ D） 4和 168 23 编写如下程序： Private Sub Commandl_Click() Dim x As Integer,y As Integer x=1： y=1 Do y=x*y Ify 10 Then Exit Do Else x=x+3 End If Loop Until x =10 Print x； y End Sub 程序运行后，单击命令按钮 Commandl，输出结果为 （ A）
20、1 1 （ B） 4 1 （ C） 4 2 （ D） 7 28 24 编写如下程序： Private Sub Commandl_Click() Dim nAs Long， SAs String n=InputBox(“输入一个数 “) Do While n 0 S=S&n Mod 10： s=s&n 10 Mod 10 n=n 100 Loop Print s End Sub 程序运行后，单击命令按钮 Commandl，并输入数值 123456，则输出结果为 （ A） 654321 （ B） 563412 （ C） 642531 （ D） 615243 25 下面程序计算并输出的是 Priva
21、te Sub Commandl_Click() a=10： s=0 Do s=s+a*a*a： a=a 1 Loop Until a =0 Print s End Sub （ A） 13+23+33+103 的值 （ B） 10!+3!+2!+1! 的值 （ C） (1+2+3+10)3 的值 （ D） 10个 103的和 26 窗体上有 1个名称为 Commandl的命令按钮，事件过程如下 ： Private Sub Commandl_Click() Dim x， y， z x=InputBox(“请输入第 1个整数 “)： y=InputBox(“请输入第 2个整数 “) Do Until
22、 x=y Ifx y Then x=x y Else y=y x End if Loop Print x End Sub 运行程序，单击命令按钮，并输入 2个整数 169和 39，则在窗体上显示的内容为 （ A） 11 （ B） 13 （ C） 23 （ D） 39 27 窗体上有 1个名称为 Commandl的命令按钮，事件过程及函数过程如下： Private Sub Commandl _Click() Dim m As String m=InputBox(“请输入字符串 “) Print pick_str(m) End Sub Private Function pick_str(s As
23、String)As String temp=“： i=1： sLen=Len(s) Do While i =sLen 2 temp=temp+Mid(s， i， 1)+Mid(s， sLen-i+1， 1) i=i+1 Loop pick_str=temp End Function 运行程序，单击命令按钮，并在输入对话框中输入 “basic”，则在窗体上显示的内容为 （ A） bcai （ B） cbia （ C） bcais （ D） cbias 国家二级 VB机试（控制结构）模拟试卷 14答案与解析 一、选择题 1 【正确答案】 A 【试题解析】 本题中有三个 For循环，但是这三个循环之
24、间没有嵌套关系，而是顺序的关系。在第一个循环中依次取出字符串 s中的每一个字符存入数组 a；第二个循环中将数 组的第一个元素和最后一个元素互换，第二个元素和倒数第二个元素互换 以此类推完成数组的逆序；第三个循环输出数组元素。 【知识模块】 控制结构 2 【正确答案】 A 【试题解析】 本题的循环中倒序从字符串 s中依次取出每一个字符，只要该字符不是空格就将其连接到 temp的前面，见到空格就把连接好的 temp加入到列表框中，即先加入 year，然后是 new，最后是 Happy。 【知识模块】 控制结构 3 【正确答案】 B 【试题解析】 本题考查的考点是有关循环和取子串函数的。本题比较简单
25、 ，循环次数就是字符串的长度，每次都在第 k位取一个字母，最后倒序连接起来。注意每次都把 ch连接到 s的前面。 【知识模块】 控制结构 4 【正确答案】 D 【试题解析】 本题考查的考点是有关循环和数组的。本题为了实现求取最大值，首先应该假设数组中的某一个数就是最大值，再依次与数组元素比较，一旦某个元素比当前的最大值大，就把它作为新的最大值。 max初值设为 0是不可以的，它没有考虑到数组元素都小于 0的情况。 【知识模块】 控制结构 5 【正确答案】 B 【试题解析】 本题考查的考点是 有关循环的。实际上本题就要关注循环何时结束，第一次循环中， i的值变成 3， n的值变为 1，然后 i+
26、1变成 4；由于满足循环条件，所以第二次循环中， i的值变成 7， n的值变为 2，然后 i+1变成 8；由于还是满足循环条件，所以第三次循环中， i的值变成 11， n的值变为 3，然后判断由于 i已经大于 10，所以退出循环，最后 n的值为 3。 【知识模块】 控制结构 6 【正确答案】 A 【试题解析】 本题考查的考点是有关循环的。本题也很简单，首先取得数组的最后一个元素加到累加变量中，然后取倒数第二个元素，乘 10后加到累 加变量中，然后取倒数第三个元素，乘 100后加到累加变量中，以此类推，最后结果为1234。 【知识模块】 控制结构 7 【正确答案】 B 【试题解析】 语句 Exi
27、t For的作用是退出当前 For循环。本题中。 For循环语句的循环变量 i不仅在执行到 Next语句时后自动加 1，而且在每次执行循环体中的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语句 的条件表达式 i 10为真，将退出循环，故文本框中显示的值为 3。 【知识模块】 控制结构 8 【正确答案】 C 【试题解析】 本题的循环中依次用数组的每个元素和 c进行比较，如果比 c大就将数组元素累加，并令数组元素成为
28、新的 c值；否则令累加和 d减去 c。在 5次循环中 d的累加过程为 10+12+21+32 32=23。 【知识模块】 控制结构 9 【正确答案】 C 【试题解析】 在本题的循环中每次累加的变量是 x，而 x在每次的循环中都会除以 i，即第一次除以 1，第二次再除以 2，第三次再除以 3 以此类推 C选项是正确答案。 【知识模块】 控制结构 10 【正确答案】 D 【试题解析】 本题的 For循环中改变了循环变量 i的值，而且在循环中还有 Exit语句退出循环，故此需要逐次循环进行分析。第一次循环中 i的初值为 1，然后变为 5，将其累加到 n中然后因其不满足 If条件，所以 i的值加上步长
29、 1(特别重要很容易忘记 )继续循环：第二次循环开始 i的值为 6，加上 4以后变为 10，将其累加到 n中然后因其不满足 If条件，所以 i的值加上步长 1继续循环；第三次循环开始 i的值为 11，加上 4以后变为 15，将其累 加到 n中然后因其满足 If条件退出循环，所以累加三次的值为 5+10+15=30。 【知识模块】 控制结构 11 【正确答案】 D 【试题解析】 在函数中每次向累加和变量 s中累加 k*(k+1)的值，循环变量 k从1循环到 N，即为求 12+23+34+N(N+1) 的值。 【知识模块】 控制结构 12 【正确答案】 C 【试题解析】 本题的循环首先取出数组的最
30、后一位累加，然后取出倒数第二位乘以 10以后累加；然后取出倒数第三位乘以 100后累加 以此类推，最终结果为1234。 【知识模块】 控制结构 13 【正确答案】 B 【试题解析】 本题的 For循环共执行 11次，在每次循环中计算出一个 X的值，然后判断能否被 3整除，如能整除则令计数器 n自加 1。 【知识模块】 控制结构 14 【正确答案】 D 【试题解析】 本题中要求分别统计数字 0 9的个数，使用了一个数组 count来存放各个数字的个数。在第一个 For循环中，将数组的各个元素设置为 0，在第二个循环中，依次取出字符串中的每一个字符，判断是不是在 0 9之间，如果在范围内，则应该令
31、对应的数组元素加 1。如 果写成 count(i)=count(i)+1，只能顺序的令每一个数组元素都加 1，只有改写成 count(x)=count(x)+1，让 x作为下标，才能保证让 x对应的数组元素加 1。 【知识模块】 控制结构 15 【正确答案】 C 【试题解析】 组合框的 Text属性将会返回或者设置编辑区中的文本，本题中显示的是 1 10的累加和 55。 【知识模块】 控制结构 16 【正确答案】 C 【试题解析】 本题考查循环， Do Loop Until循环至少会执行一次，该循环是先执行然后判断循环条 件。 【知识模块】 控制结构 17 【正确答案】 D 【试题解析】 本题
32、函数过程的原代码仅适合 a不能被 b整除的两数，而当 a能被b整除时则不适用，如 a=4， b=2， a除以 b的余数为 0，而原代码返回的函数值为2。因此需将语句 While a b改为 While a =b。 【知识模块】 控制结构 18 【正确答案】 D 【试题解析】 本题是简单 While循环，在循环中改变循环变量 x的值，要注意退出循环时 x必然是不会满足循环条件的。本题中循环中 x依次变化为 1、 4、 25。 【知识模 块】 控制结构 19 【正确答案】 D 【试题解析】 本题考查循环。如果输入的 n是偶数，那么在循环体中执行n=n+1，偶数 +1是奇数，循环结束条件 Loop
33、Until n=1000不会满足，形成死循环；如果输入的 n是奇数，那么循环体内执行 n=n+2，奇数 +2依然是奇数，循环结束条件永远不会满足，也形成死循环。 【知识模块】 控制结构 20 【正确答案】 D 【试题解析】 本题考查的考点是有关 Do型循环的。对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有 可能一次也不执行循环体；如果是后判断条件，则无论条件如何至少执行一次循环体。在 Until循环中条件为 False时执行循环体，条件为 True时退出循环；在 While循环中条件为True时执行循环体，条件为 False时退出循环，这一点要注意区分清楚。 【
34、知识模块】 控制结构 21 【正确答案】 D 【试题解析】 Visual Basic支持的循环结构包括： ForNext 循环、 For EachNext 循环、 DoLoop 循环和 While循环。 【知识模块】 控制结构 22 【正确答案 】 B 【试题解析】 本题考查的考点是有关 Do型循环的。对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件是什么，至少执行一次循环体。在 until循环中条件为 False时执行循环体，条件为 True时退出循环：在 while循环中条件为 True时执行循环体，条件为
35、False时退出循环，这一点要注意区分清楚。本题只需要实际计算一下两次循环中 x和 n值的变化即可容易的得出结果。 【知识模块】 控制结构 23 【正确答案】 B 【试题解析】 Do型循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件是什么，至少执行一次循环体。在 Until循环中条件为 False时执行循环体，条件为 True时退出循环：在 While循环中条件为 True时执行循环体，条件为 False时退出循环。本题中使用的是后判断型循环，第一次循环时 y的值为 1，不满足 y10，执行 Else分支， x变成 4，
36、此时由于满足 x =10所以结束循环。 【知识模块】 控制结构 24 【正确答案 】 A 【试题解析】 本题在循环中先将 n除以 10的余数 (即个位数字 )连接到 s上，然后将整除 10后除以 10的余数 (即十位上数字 )连接到 s上，然后 n整除 100的值赋值给 n(即去掉最后两位 )，然后继续进行循环，所以最终将会输出数字的逆序。 【知识模块】 控制结构 25 【正确答案】 A 【试题解析】 对于 Do型循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能 次也不执行循环体；如果是后判断条件，则无论条件是什么，至少执行一次循环体。在 Until循环中条件为 Fa
37、lse时执行循环体，条件为 True时退出循环；在 while循环中条件为 True时执行循环体，条件为FaIse时退出循环。本题是一个比较简单的 Do循环，计算从 1到 10的立方和。 【知识模块】 控制结构 26 【正确答案】 B 【试题解析】 本题的循环中将两个输入的数 x和 y互相相减，直到 x=y为止，实际上就是辗转相减法求最大公约数的过程。 【知识模块】 控制结构 27 【正确答案】 A 【试题解析】 本题的函数中使用了 Do循环，循环条件是 i =sLen 2；由十字符串的长度为 5，所以循 环会执行两次；在每次循环中使用 Mid函数依次取得字符串的第一个字符、最后一个字符、第二个字符、倒数第二个字符。 【知识模块】 控制结构
