1、国家二级 VB机试（控制结构）模拟试卷 20及答案与解析 一、选择题 1 窗体上有一个名称为 Textl的文本框，一个名称为 Commandl的命令按钮。要求编写一个程序，统计文本框中 0-9各数字字符的个数。某人编写如下程序： Private Sub Commandl_Click() Dim count(10)As Integer第 1个 For循环 For i=0 To 9 count(i)=0 Next S=Trim(Textl Text) strLen=Len(s)第 2个 For循环 For i=1 To strLen c=Mid(s， i， 1) Ifc=”0”And C 循环体
2、Loop （ B） While 循环体 Wend （ C） Do 循环体 Loop Until （ D） Do Until 循环体 Loop 4 设 a、 b都是自然数，为求 a除以 b的余数，某人编写了以下函数： Function fun(a As Integer,b As Integer) While ab a=a-b Wend fun=a End Function 在调试时发现函数是错误的。为使函数能产生正确的返回值，应做的修改是 （ A）把 a=a b改为 a=b a （ B）把 a=a b改为 a=a b （ C）把 While ab改为 While ab改为 While a=b 5
3、 设有如下事件过程： Pfivme Sub Form_Click() x=0 While x10 Then Exit Do Else x=X+3 End If Loop Until x0 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 12 下面程序计算并输出的是 Private Sub Commandl_Click() a=10： s=0 Do
4、s=s+a*a*a： a=a-1 Loop Until ay 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 14 窗体上有 1个名称为 Commandl的命令按钮，事件过程及函数过程如下： Private Sub Commandl_Click() Dim m As String m=InputBox(”请输入字符串 ”) Print pick_str(m) End Sub Private Func
5、tion pick_str(s As String)As String temp=”： i=1： sLen=Len(s) Do While i1 （ D） i=10 Do i=i 2 Loop Until i=1 17 以下能够正常结束循环操作的程序段是 （ A） i=5 Do i=i+1 Loop Until i0 i=i-2 Loop （ D） i=0 Do While i2 N=N+1： J=J+N*(N+11) Loop PrintN： J End Sub 运行程序，单击窗体，输出结果是 （ A） 3 21 （ B） 3 7 （ C） 0 1 （ D） 3 13 20 有如下程序： F
6、unction fun(ByVal hum As Integer)As Integer Dim k As Integer k=1 num=Abs(num) Do While num k=k*(num Mod 10)： num=num 10 Loop fun=k End Function Private Sub Form Click() Dim n As Integer， r As Integer n=InputBox(”请输入一个数 ： ”)： n=Int(n)： r=fun(n)： Print r End Sub 程序运行后，单击窗体，在输入对话框中输入 246，输出结果为 （ A） 120
7、 （ B） 48 （ C） 24 （ D） 60 21 下面程序的功能是输出 100以内所有素数： Private Sub Commandl_Click() For n=2 To 100 isprime=True： k=2 Do While k0 k=k+1： arr(k)=d Mod r： d=d r Loop End Sub 程序运行后，单击命令按钮 Commandl，输出结果为 （ A） 1 1 0 0 （ B） 0 0 1 1 （ C） 0 1 0 1 （ D） 1 0 1 0 23 编写如下程序： Private Sub Commandl_Click() Dim n As Long，
8、 s As String n=InputBox(”输入一个数 ”) Do While nk 2 End Sub 程序运行后，单击命令按钮 Commandl，并输入数值 20，则输 出结果为 （ A） 2 2 5 （ B） 2 3 4 （ C） 2 3 4 5 （ D） 2 5 27 编写如下程序： Private Sub Commandl_Click() Dim a(3， 3)As Integer， b(3， 3)As Integer For i=1 To 3 For i=1 To 3 a(i， j)=i+j： b(i， j)=a(i， j)+i*(j-1) Next j Next i For
9、 i=1 To 3 For i=1 To 3 Print b(i， j)； Nextj Print Next i End Sub 程序运行后，单击命令按钮 Commandl，输出结果为 （ A） 2 3 4 3 4 5 4 5 6 （ B） 2 4 6 3 6 9 4 8 12 （ C） 3 5 7 5 8 11 7 11 15 （ D） 4 6 8 7 10 13 10 14 18 28 己知在 4行 3列的全局数组 score(4， 3)中存放了 4个学生 3门课程的考试成绩(均为整数 )。现需要计算每个学生的 总分，某人编写程序如下： Option Base 1 Private Sub
10、Command1_Click() Dim sumAs Integer suln=0 For i=1 To 4 Fori=1 To 3 sum=sum+score(i， j) Nextj Print”第 ”&i&”个学生的总分是： ”： sum Next i End Sub 运行此程序时发现，除第 1个人的总分计算正确外，其他人的总分都是错误的，程 序需要修改。以下修改方案中正确的是 （ A）把外层循环语句 For i=1 To 4改为 For i=1 To 3内层循环语句 For j=1 To 3改为 For j=1 To 4 （ B）把 sum=0移到 For i=1 To 4和 Forj=
11、1 To 3之间 （ C）把 sum=sum+score(i， j)改为 sum=sum+score(j， i) （ D）把 sum=sum+score(i， j)改为 sum=score(i， j) 29 在窗体上画一个命令按钮和一个标签，其名称分别为 Commandl和 Labell，然后编写如下事件过程： Private Sub Commandl_Click() Counter=0 For i=1 To 4 For j=6 To 1 Step-2 Counter=Counter+1 Nextj Next i Labell Caption=Str(Counter) End Sub 程序运行
12、后，单击命令按钮，标签中显示的内容是 （ A） 11 （ B） 12 （ C） 16 （ D） 20 30 在窗 体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim I Num Randomize Do For I=1 To 1000 Num=Int(Rnd*100)： Print Num； Select Case Num Case 12 Exit For Case 58 Exit Do Case 65， 68， 92 End End Select Next I Loop End Sub 上述事件过程执行后，下列描述中正确的是 （ A）
13、 Do循环执行的次数为 1000次 （ B）在 For循环中产生的随机数小于或等于 100 （ C）当所产生的随机数为 12时结束所有循环 （ D）当所产生的随机数为 65、 68或 92时窗体关闭、程序结束 31 运行如下程序 Private Sub Commandl_Click() Dim a(5， 5)As Integer For i=1 To 5 Forj=1 To 4 a(i， j)=i*2+j If a(i， j) 7=a(i， j) 7 Then n=n+1 End If Nextj Next Print n End Sub 则 n的值是 （ A） 2 （ B） 3 （ C） 4
14、 （ D） 5 32 命令按钮 Commandl的单击事件过程如下： Private Sub Commandl_Click() Dim a(10， 10)As Integer x=0 For i=1 To 3 For j=1 To 3 a(i， j)=i*2 Modj IfxSqr(i)Then Print i Next i End Sub 该程序的功能是 （ A）判断 n是否为素数 （ B）输出 n以内所有的奇数 （ C）输出 n以内所有的偶数 （ D）输出 n以内所有的素数 39 命令按钮 Commandl的事件过程如下： Private Sub Commandl_Click() Dim
15、arr(5， 5)As Integer Dim i As Integer,J As Integer For i=1 To 4 Forj=2 To 4 arr(i， j)=i+j Nextj Next i Print arr(1， 3)+arr(3， 4) End Sub 执行上述过程，输出结果是 （ A） 6 （ B） 7 （ C） 11 （ D） 12 40 有如下程序： Private Sub Commandl_Click() Dim i As Integer,j As Integer， sum As Integer n=1 Do j=1 Do sum=sum+j： j=j+1 Print
16、j； Loop Until i3 n=n+2 Loop Until n10 Print sum End Sub 运行上述程序，外层 Do循环执行的次数为 （ A） 4 （ B） 5 （ C） 7 （ D） 10 国家二级 VB机试（控制结构）模拟 试卷 20答案与解析 一、选择题 1 【正确答案】 D 【试题解析】 本题中要求分别统计数字 0 9的个数，使用了一个数组 count来存放各个数字的个数。在第一个 For循环中，将数组的各个元素设置为 0，在第二个循环中，依次取出字符串中的每一个字符，判断是不是在 0 9之间，如果在范围内，则应该令对应的数组元素加 1。如果写成 count(i)=
17、count(i)+l，只能顺序的令每一个数组元素都加 1，只有改写成 count(x)=count(x)+1，让 x作为下标，才能保证让 x对应的数组元素加 1。 【知识 模块】 控制结构 2 【正确答案】 C 【试题解析】 组合框的 Text属性将会返回或者设置编辑区中的文本，本题中显示的是 1 10的累加和 55。 【知识模块】 控制结构 3 【正确答案】 C 【试题解析】 本题考查循环， Do Loop Unt订循环至少会执行一次，该循环是先执行然后判断循环条件。 【知识模块】 控制结构 4 【正确答案】 D 【试题解析】 本题函数过程的原代码仅适合 a不能被 b整除的两数，而当 a能被
18、b整除时则不适用，如 a=4， b=2， a除以 b的余数为 0， 而原代码返回的函数值为2。因此需将语句 While ab改为 While a=b。 【知识模块】 控制结构 5 【正确答案】 D 【试题解析】 本题是简单 while循环，在循环中改变循环变量 x的值，要注意退出循环时 x必然是不会满足循环条件的。本题中循环中 x依次变化为 1、 4、 25。 【知识模块】 控制结构 6 【正确答案】 D 【试题解析】 本题考查循环。如果输入的 n是偶数，那么在循环体中执行n=n+1，偶数 +1是奇数，循环结束条件 Loop Untiln=1000不会满足，形成 死循环；如果输入的 n是奇数，
19、那么循环体内执行 n=n+2，奇数 +2依然是奇数，循环结束条件永远不会满足，也形成死循环。 【知识模块】 控制结构 7 【正确答案】 D 【试题解析】 本题考查的考点是有关 Do型循环的。对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件如何至少执行一次循环体。在 Until循环中条件为 False时执行循环体，条件为 True时退出循环；在 while循环中条件为True时执行循环体，条件为 False时退出循环，这一点要注意区分清楚。 【知识模块】 控制结构 8 【正确答案】 D 【试题解析】 Visual
20、Basic支持的循环结构包括： For.Next循环、 For Each.Next循环、 Do.Loop循环和 While循环。 【知识模块】 控制结构 9 【正确答案】 B 【试题解析】 本题考查的考点是有关 Do型循环的。对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件是什么 ，至少执行一次循环体。在 Until循环中条件为 False时执行循环体，条件为 True时退出循环；在 While循环中条件为 True时执行循环体，条件为 False时退出循环，这一点要注意区分清楚。本题只需要实际计算一下两次循环中
21、 x和 n值的变化即可容易的得出结果。 【知识模块】 控制结构 10 【正确答案】 B 【试题解析】 Do型循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件是什么，至少执行一次循环体。在 Until循环中 条件为 False时执行循环体，条件为 True时退出循环；在 While循环中条件为 Tme时执行循环体，条件为 False时退出循环。本题中使用的是后判断型循环，第一次循环时 y的值为 1，不满足y10，执行 Else分支， x变成 4，此时由于满足 x1而无限循环； D选项由于 i的值从 10开始递减，但是因为每
22、次递减 2，所以 i永远为偶数，不会满足 i=1而无限循环。 【知识模块】 控制结构 17 【正确答案】 C 【试题解析】 Do循环语句的功能是：当指定的 “循环条件 “为真或直到指定的 “循环条件 ”变为真之前重复执行循环体。 Do While|UntilLoop 循环是在条件 满足的情况下才执行一次循环体，而 DoLoop while|Until 循环不管是否满足条件都先执行一次循环体，然后再判断条件是否成立以决定后续操作。本题的 A选项由于 i的值从 5开始递增，永远不会满足 i0而无限循环； B选项由于 i的值从 5开始递增，永远满足 i=1而无限循环： D选项由于 i的值从 0开始递
23、减，永远满足 i1而无限循环。 【知识模块】 控制结构 18 【正确答案】 D 【试题解析】 本题中 Do循环的循环变量 i的初值为 1，继续循环的条件是 i6，在每次循环中 i的值加 1，因此循环会执行 5次； 在第一次循环中累加 1 2，第二次循环中累加 2 3，第三次循环中累加 3 4 即最后计算的是 1 2+2 3+34+4 5+5 6的值。 【知识模块】 控制结构 19 【正确答案】 A 【试题解析】 Do循环语句的功能是：当指定的 “循环条件 ”为真或直到指定的 “循环条件 ”变为真之前重复执行循环体。 Do whil eluntilLoop 循环是在条件满足的情况下才执行一次循环
24、体，而 DoLoop While|UntiI 循环不管是否满足条件都先执行一次循环体，然后再判断条件是否成立以决定后续操作。本 题的循环共执行 3次，跳出循环时 N的值为 3， J的值为 21。 【知识模块】 控制结构 20 【正确答案】 B 【试题解析】 在函数 fun中会对传过来的参数 num进行判断，如果不为 0则进行循环，将各位数字乘到一起然后作为函数的返回值。 【知识模块】 控制结构 21 【正确答案】 A 【试题解析】 求素数的基本思路是，用 2到 n 2依次去除要判断的数 n，如果能整除就将 isprime置为 False代表不是素数；如果 isprime已经为 False，那么
25、循环没有继续执行的必要了，所以应填入 isprime=True，由于是布尔型变量，可以简写为 isprime。 【知识模块】 控制结构 22 【正确答案】 A 【试题解析】 本题实际上是在子过程 sub1中对 arr数组进行的赋值工作，形参 d的值为 12， r的值为 2， k的初值为 0；在循环中计算 d除以 2的余数放到数组的第一个元素，整除 2后再除以 2的余数放到第二个元素 以此类推，最后数组arr中存放的是 (0、 0、 1、 1)，在 Command1_Click()过程中调用完子过程对数组进行赋值以后，逆序输出了数组的值。 【知识模块】 控制结 构 23 【正确答案】 B 【试题
26、解析】 本题中是在一个 Do循环中对一个数字进行分解，首先输出该数字整除 10之后再除以 10得到的余数 (即十位上数字 )，然后输出该数除以 10得到的余数 (即个位数字 )，然后将该数去掉十位和个位上的数字以后继续循环，最终依次输出 5、 6、 3、 4、 1、 2。 【知识模块】 控制结构 24 【正确答案】 A 【试题解析】 本题考查的考点是有关二重循环的。 ForNext 循环语句可提供一个重复执行的语句序列，遵循 “先检查，后执行 ”的规则，执行过程中，循环次数=Int(终值 -初值 )步长 +1。二重循环的内循环语句执行次数等于内外循环次数之积。 【知识模块】 控制结构 25 【
27、正确答案】 B 【试题解析】 本题通过一个嵌套的 For循环为二维数组 a的各元素赋值，该二维数组对应矩阵的主对角线上的元素 (即满足条件 m=n)和副对角线上的元素 (即满足条件 m+n=4)其值为 m+n，即主对角线上的元素从左上至右下依次为 2、 4、 6，副对角线上的元素均为 4，而其它元素均为 0。 【知识模块】 控制结构 26 【正确答案】 A 【试题解析】 Do型循环结构，首先 看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件是什么，至少执行一次循环体。在 Until循环中条件为 False时执行循环体，条件为 True
28、时退出循环；在 While循环中条件为 True时执行循环体，条件为 False时退出循环。本题是一个嵌套的 Do循环，外层循环是后判断条件的 Until型循环，内层循环是先判断条件的 While型循环。根据输入的值 20可判断出三次输出的结果为 2、 2、 5。 【知识模块】 控制结构 27 【正确答案】 B 【试 题解析】 本题中有两个二维数组 a和 b，然后用一个二重循环为两个数组赋值，根据每次循环中 i和 i的值不难得出 B为正确答案。 【知识模块】 控制结构 28 【正确答案】 B 【试题解析】 本题考查的考点是有关循环求和和二维数组的。本题要对二维数组的每行进行累加求和，每计算新的
29、一行就应该将累加和变量 sum清零，否则上一行的累加计算结果将会在下一行继续累加，造成结果不正确。 【知识模块】 控制结构 29 【正确答案】 B 【试题解析】 本题考查的考点是有关循环的。通过观察可以得知，在每 次内循环中 Counter的值会增加 1，所以最终结果就是内循环执行的总次数。由于内循环和外循环都是 For循环，所以循环次数一定，外循环共执行 4次，每次外循环中内循环都执行 3次，故内循环执行的总次数为 4*3=12次。 【知识模块】 控制结构 30 【正确答案】 D 【试题解析】 本题考查的考点是有关随机数和退出语句的。在本题中，首先在循环中生成一个随机数，由于 Rnd函数可以
30、生成 0 1开区间的数，所以Int(Rnd*100)能够生成 0 99之间的整数，随后对此数进行判断，当随机数为 12时退出内循环 ；当随机数为 58时退出外循环；当随机数为 65、 68或 92时将会结束整个窗体的运行。本题中的循环次数受随机数控制，所以次数不定。 【知识模块】 控制结构 31 【正确答案】 B 【试题解析】 在二重循环中为二维数组赋初值，每个元素的值均为行号 *2加上列号；在 If语句中进行判断，如果数组元素能被 7整除则令计数器 n加 1，所以整个程序的功能就是统计二维数组中能被 7整除的数的个数。 【知识模块】 控制结构 32 【正确答案】 B 【试题解析】 本题中使用二重循环为二维数组赋初值，每个元 素的值为行号 2然后除以列号的余数；接下来找出数组的最大值。由于列号最大只能为 3，所以余数的最大值为 2。 【知识模块】 控制结构 33 【正确答案】 B 【试题解析】 在窗体模块中使用 Dim声明模块接变量，也可以声明模块级数组；在循环 1中 i从 1到 3， j从 1到 4，无论是访问 b(i， i)还是 a(i， j)均在数组的
