项目七 循环结构《Visual Basic程序设计》（电工版第六版）章节过关卷

《Visual Basic程序设计（第6版)》电子工业出版社 项目七 循环结构 考试时间：90分钟 满分：100分 姓名 班级 学号 1、 单项选择题（本题共20小题，每题3分，共60分） 1.下列关于For …next 语句的说法正确的是( ) A.循环变量、初值、终值和步长都必须为数值型 B.step后的步长只为正数 C.初值必须小于终值 D.初值必须大于终值 【答案】A 【解析】B 中For…Next循环的核心要素（循环变量、初值、终值、步长）必须是数值类型（如 Integer、Long、Single、Double 等），不能是字符串、布尔值等非数值类型。 2.关于Exit for的使用说明正确的是（ ）。 A.Exit for 语句可以退出任何类型的循环 B.一个循环中只能有一个这样的语句 C. Exit for 表示返回For语句去执行 D.一个For循环中可以有多条Exit for语句 【答案】D 【解析】Exit For是专属 For…Next 循环的退出语句，一个For…Next循环中可以根据需要设置多个Exit For语句，用于在不同条件下强制退出循环。Exit For的作用是直接跳出当前的 For…Next 循环体，不再执行Next之后的循环，也不会返回For语句重新执行。 3.有如下程序，该段程序将（ ）。 For I=1 to 10 step 0 K=k+2 Next I A.形成无限循环 B.循环体执行一次后结束循环 C.语法错误 D.循环体不执行即结束循环 【答案】A 【解析】步长（Step）不能为 0，否则会触发语法 / 运行时错误。 4.假定有以下循环结构 Do until 条件 循环体 loop 则正确的描述是( ) A.如果“条件”是一个为0的常数，则一次循环体也不执行 B.如果“条件”是一个为0的常数，则至少执行一次循环体 C.如果“条件”是一个不为0的常数，则至少执行一次循环体 D.不论“条件”是否为“真”，至少执行一次循环体 【答案】B 【解析】条件为 0（假）时，至少执行一次循环体。 5.以下程序段执行后整型变量n 的值为（ ）。 N=0 For I=1 to 20 step 5 n=n+1 Next I A. 50 B. 4 C. 15 D. 5 【答案】B 【解析】n的初始值为 0，每次循环执行n = n + 1，因此n的最终值 = 循环执行的次数。 6、如下有一段不完整的程序段，如果要求该程序执行3次循环，则在程序中的括号里要填入（ ）。 X = 1 Do x = x + 3 Print x Loop Until ( ) A.x>=8 B. x<=8 C. x>=7 D. x<=7 【答案】A 【解析】先执行一次循环体，再判断Until后的条件，第 1 次后 x=4：4>=8 → False → 继续循环；第 2 次后 x=7：7>=8 → False → 继续循环；第 3 次后 x=10：10>=8 → True → 终止循环。 7、关于For……Next循环的初值、终值与步长，下列说法正确的是（ ）。 A.只能是具体的数值 B.只能是表达式 C.可以是数值表达式 D.可以是任何类型的表达式 【答案】C 【解析】VB 中For…Next的初值、终值、步长的核心要求是：最终结果必须是数值型。 8、要使循环体至少执行一次，应使用（ ）循环。 A. For……next B. While……wend C. Do……Loop while|until D.do[while|until]……loop 【答案】C 【解析】Do…Loop While/Until的核心逻辑是先执行循环体，再判断条件。 9、有如下程序 For I = 1 To 3 For j = 5 To 1 Step -1 Print I + j Next j Next I 其循环执行的次数为：（ ）。 A.12 B. 13 C.14 D. 15 【答案】D 【解析】嵌套For循环总次数 = 外层循环次数 × 内层循环次数；递减循环（步长为负）的次数计算仍用公式：Int((终值-初始值)/步长) + 1；本题外层 3 次、内层 5 次，总次数 15 次。 10、有如下程序段，执行完该程序后，变量x的值为（ ）。 K=0 Do Until k >= 3 x = x + 2 k = k + 1 Loop A. 2 B. 4 C. 6 D. 8 【答案】C 【解析】Do Until与Do While的区别：Do Until是 “条件为 True 时终止”，Do While是 “条件为 True 时执行”，本质都是 “先判断后执行”。 11、以下是计算10的阶乘的程序，请补充该程序。 Dim t%,k% K=0:t=1 Do While ( ) K=k+1 T=t*k Loop Print t A.K<10 B. K>10 C.k=10 D. K>=10 【答案】A 【解析】k是循环控制变量（初始值k=0），每次循环k递增 1，t乘以当前的k。 12、下面程序的执行结果是( )。 Private Sub Command1_Click() Dim a As Integer Dim k As Integer Dim x As Integer a = 0 k = 1 Do While k < 4 x = k ^ k ^ a k = k + 1 Print x; Loop End Sub A.1 4 27 B.1 1 1 C.1 4 9 D.0 0 0 【答案】B 【解析】本题主要考查算术运算符中的幂运算，在程序中x的值为k的k次方的a次方，k的值每次循环都加1，但a的值不变总为0，除0以外的任何数的0次方都是1，因此，在k的值变为4之前会输出三个1。 13、假定有如下事件过程： Private sub form_click( ) Dim x as integer X=1 N=0 Do while x<28 X=x*3 N=n+1 Loop Print n,x End sub 程序运行后，单击窗体，输出结果是（ ）。 A.4 81 B.3 36 C.2 48 D.6 23 【答案】A 【解析】Do While x<28是先判断条件，再执行循环体：只要x小于 28，就执行x=x*3和n=n+1，直到x≥28时退出循环，最后输出n（循环次数）和最终的x。 14、下列程序的执行结果为( )。 Dim S As Integer,n As Integer S=0:n=1 Do While n<=100 S=S+n n=n+1 Loop Print S A.5050 B.2500 C.3000 D.4000 【答案】A 【解析】1 到 100 的累加和公式：100×(1+100)/2=5050；Do While n<=100会让循环执行 100 次，恰好累加 1 到 100；变量S的最终值为 5050。 15、如下程序段的输出结果为（ ） x=1 y=4 do until y>4 x=x*y y=y+1 loop print x A.1 B.4 C.8 D.20 【答案】B 【解析】先判断条件 y>4 是否成立；Until（直到）→ 条件为假（False） 时执行循环体，条件为真（True） 时退出循环。 16、编写如下程序代码： Private Sub Command1_Click() Dim t As Integer Dim n As Integer, x As Integer t = 0 For n = 1 To 12 x = 2 * n - 1 If x / 3 = x \ 3 Then t = t + 1 Next Print t End Sub 程序运行后，单击命令按钮Command1，输出结果为（ ）。 A. 5 B. 3 C. 2 D. 4 【答案】D 【解析】x / 3 = x \ 3 等价于判断 x 是否能被 3 整除（x 是 3 的整数倍）；n 从 1 到 12 时，满足条件的 x 有 3、9、15、21，共 4 个，因此 t=4。 17、有下面事件过程： Private Sub Command1_Click() a = 5 b = 8 For k = 1 To 30 c = b - a a = b b = c Next k Print c End Sub 上面事件过程执行后产生的输出是（ ）。 A. 3 B. 8 C. -5 D. -8 【答案】B 【解析】程序开始时，变量a赋值为5，变量b赋值为8；For循环一共执行30次，30是6的倍数，所以第30次循环和第6次循环，各变量获得的值是相等的，故第30次循环中变量c的值为8. 18、下列程序段的执行结果为（ ） s=0:t=0:u=0 For x=1 To 3 For y=1 To x For z=y To 3 s=s+1 Next z t=t+1 Next y u=u+1 Next x Print s;t;u A. 3 6 14 B. 14 6 3 C. 14 3 6 D. 16 4 3 【答案】B 【解析】最内层循环总执行次数：3+3+2+3+2+1=14，中间层循环总执行次数：1+2+3=6，最外层循环总执行次数：1+1+1=3，Print s;t;u的输出结果为：14 6 3。 19、在窗体上画两个文本框（其name属性分别为text1和text2）和一个命令按钮（其name属性为command1），然后编写如下事件过程： private sub command1_click( ) x=0 do while x<50 x=(x+2)*(x+3) n=n+1 loop text1.text=str(n) text2.text=str(x) end sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ ） A.1和0 B.2和72 C.3和50 D.4和168 【答案】B 【解析】Do While x<50是先判断条件，再执行循环体：初始x=0、n未显式赋值（默认值为 0），只要x<50就执行x=(x+2)*(x+3)和n=n+1，直到x≥50时退出循环，最后将n（循环次数）显示在 Text1，x（最终值）显示在 Text2。 20、在窗体上画一个命令按钮（其Name属性为Command1）,然后编写如下代码： Private Sub Command1_Click() Dim a(4,4) As Integer For i=1 To 4 For j=1 To 4 a(i,j)=(i-1)*3+j Next j Next i For i=3 To 4 For j=3 To 4 Print a(j,i); Next j Print Next i End Sub 程序运行后，单击命令按钮，其输出结果为( ) 。 A. 6 9 7 10 B. 7 10 8 11 C. 8 11 9 12 D. 9 12 10 13 【答案】D 【解析】i=3 → (3-1)*3 = 6,j=3: 6+3=9,j=4: 6+4=10; i=4 → (4-1)*3 = 9,j=3: 9+3=12,j=4: 9+4=13。 2、 填空题（本题共10小题，每题2分，共20分） 1.VB 中For循环的基本格式为：For <循环变量> = <初始值> To <终值> [Step <步长>]，Next [<循环变量>]。若省略Step，则默认步长为_______。 【答案】1 【解析】Step指定循环变量的增量，省略时默认步长为 1。 2、在For……Next循环中，循环次数由循环控制变量的初值、终值与步长三个因素决定，其计算公式为 ________________。 【答案】循环次数=Int(终值-初值)/步长+1 【解析】步长的方向与 “终值 - 初始值” 的方向一致，否则循环次数为 0。 3、执行For i = 5 To 1 Step -1循环，循环执行次数为______次。 【答案】5 【解析】步长为 - 1（递减），i 依次取 5、4、3、2、1，共 5 次；若步长为 1（For i=5 To 1），则循环执行 0 次。 4、While…Wend 循环中，若条件始终为 True，会导致______（填 “死循环”/“语法错误”）。 【答案】死循环 【解析】循环条件永远为True，导致循环体无限执行，程序无法正常退出。 5、在VB中，要终止当前循环并直接跳出循环体，使用的语句是______。 【答案】Exit Do/Exit For 【解析】Exit Do/Exit For用于退出当前循环。 6、While...Wend循环属于_______型循环（填 “先判断后执行” 或 “先执行后判断”），因此循环体可能一次都不执行。 【答案】先判断后执行 【解析】While...Wend先判断条件，再执行循环体；若初始条件为False，循环体一次都不执行。 7、已知循环次数时，优先使用_______循环；未知循环次数时，优先使用While...Wend或Do循环。 【答案】For 【解析】For循环语法简洁，适合 “遍历 1 到 100”“遍历数组所有元素” 等次数明确的场景；While...Wend适合 “直到用户输入 0 为止” 等次数未知的场景。 8、若For循环的初始值大于终值，需将步长设置为_______，否则循环体一次都不执行。 【答案】负数 【解析】当初始值 > 终值时，只有设置负步长（步长 <0），循环变量才会从初始值 “递减” 到终值，循环体才能执行。 9、执行以下循环后，s 的值为______。 s = 0 i = 1 Do Until i > 4 s = s + i i = i + 1 Loop 【答案】10 【解析】Do Until 是 “条件为 False 时执行循环”，i 从 1 到 4 累加：1+2+3+4=10。 10、执行以下循环后，x 的值为______。 x = 0 For i = 1 To 3 If i Mod 2 = 0 Then Exit For End If x = x + 1 Next 【答案】1 【解析】i=1：Mod 2=1≠0 → x=1；i=2：Mod 2=0 → 执行 Exit For，循环终止。 3、 程序填空题（本题共2小题，每题10分，共20分） 1、下列VB程序实现的功能是：求100—999之间的所有水仙花数，并将所有水仙花数在文本框中显示。所谓水仙花数：即153=1^3+5^3+3^3条件成立。 Private Sub Command1_Click() Dim i As Integer ,a As Integer ,b As Integer ,c As Integer For i = 100 To 999 a=i\100 ____（1）________ c=i Mod 10 If ____（2）________ Then Text1.Text=Text1.Text & i & Space(2) End If Next i End Sub 【答案】 （1） b=i\10 Mod 10 （2）i=a^3+b^3+c^3 【解析】\是 VB 中的整数除法运算符，Mod是取余运算符；^是 VB 中的乘方运算符，a^3表示a的立方。 2、下列VB程序实现的功能是：以下程序用于判断一个正整数（≥3）是否为素数。 Private Sub Form_Click() n = InputBox("请输入一个正整数（≥3）") k = Int(Sqr(n)) i = 2 swit = 0 Do While i <= k And ____（1）________ If ____（2）________ Then swit = 1 Else ____（3）________ End If Loop If swit = 0 Then Print n; "是一个素数" Else Print n; "不是素数" End If End Sub 【答案】 （1）swit=0 （2）n Mod i = 0 （3）i = i + 1 【解析】Mod是 VB 取余运算符，n Mod i = 0表示 n 除以 i 的余数为 0，说明 n 能被 i 整除，n 不是素数。 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $ 《Visual Basic程序设计（第6版)》电子工业出版社 项目七 循环结构 考试时间：90分钟 满分：100分 姓名 班级 学号 1、 单项选择题（本题共20小题，每题3分，共60分） 1.下列关于For …next 语句的说法正确的是( ) A.循环变量、初值、终值和步长都必须为数值型 B.step后的步长只为正数 C.初值必须小于终值 D.初值必须大于终值 2.关于Exit for的使用说明正确的是（ ）。 A.Exit for 语句可以退出任何类型的循环 B.一个循环中只能有一个这样的语句 C. Exit for 表示返回For语句去执行 D.一个For循环中可以有多条Exit for语句 3.有如下程序，该段程序将（ ）。 For I=1 to 10 step 0 K=k+2 Next I A.形成无限循环 B.循环体执行一次后结束循环 C.语法错误 D.循环体不执行即结束循环 4.假定有以下循环结构 Do until 条件 循环体 loop 则正确的描述是( ) A.如果“条件”是一个为0的常数，则一次循环体也不执行 B.如果“条件”是一个为0的常数，则至少执行一次循环体 C.如果“条件”是一个不为0的常数，则至少执行一次循环体 D.不论“条件”是否为“真”，至少执行一次循环体 5.以下程序段执行后整型变量n 的值为（ ）。 N=0 For I=1 to 20 step 5 n=n+1 Next I A. 50 B. 4 C. 15 D. 5 6、如下有一段不完整的程序段，如果要求该程序执行3次循环，则在程序中的括号里要填入（ ）。 X = 1 Do x = x + 3 Print x Loop Until ( ) A.x>=8 B. x<=8 C. x>=7 D. x<=7 7、关于For……Next循环的初值、终值与步长，下列说法正确的是（ ）。 A.只能是具体的数值 B.只能是表达式 C.可以是数值表达式 D.可以是任何类型的表达式 8、要使循环体至少执行一次，应使用（ ）循环。 A. For……next B. While……wend C. Do……Loop while|until D.do[while|until]……loop 9、有如下程序 For I = 1 To 3 For j = 5 To 1 Step -1 Print I + j Next j Next I 其循环执行的次数为：（ ）。 A.12 B. 13 C.14 D. 15 10、有如下程序段，执行完该程序后，变量x的值为（ ）。 K=0 Do Until k >= 3 x = x + 2 k = k + 1 Loop A. 2 B. 4 C. 6 D. 8 11、以下是计算10的阶乘的程序，请补充该程序。 Dim t%,k% K=0:t=1 Do While ( ) K=k+1 T=t*k Loop Print t A.K<10 B. K>10 C.k=10 D. K>=10 12、下面程序的执行结果是( )。 Private Sub Command1_Click() Dim a As Integer Dim k As Integer Dim x As Integer a = 0 k = 1 Do While k < 4 x = k ^ k ^ a k = k + 1 Print x; Loop End Sub A.1 4 27 B.1 1 1 C.1 4 9 D.0 0 0 13、假定有如下事件过程： Private sub form_click( ) Dim x as integer X=1 N=0 Do while x<28 X=x*3 N=n+1 Loop Print n,x End sub 程序运行后，单击窗体，输出结果是（ ）。 A.4 81 B.3 36 C.2 48 D.6 23 14、下列程序的执行结果为( )。 Dim S As Integer,n As Integer S=0:n=1 Do While n<=100 S=S+n n=n+1 Loop Print S A.5050 B.2500 C.3000 D.4000 15、如下程序段的输出结果为（ ） x=1 y=4 do until y>4 x=x*y y=y+1 loop print x A.1 B.4 C.8 D.20 16、编写如下程序代码： Private Sub Command1_Click() Dim t As Integer Dim n As Integer, x As Integer t = 0 For n = 1 To 12 x = 2 * n - 1 If x / 3 = x \ 3 Then t = t + 1 Next Print t End Sub 程序运行后，单击命令按钮Command1，输出结果为（ ）。 A. 5 B. 3 C. 2 D. 4 17、有下面事件过程： Private Sub Command1_Click() a = 5 b = 8 For k = 1 To 30 c = b - a a = b b = c Next k Print c End Sub 上面事件过程执行后产生的输出是（ ）。 A. 3 B. 8 C. -5 D. -8 18、下列程序段的执行结果为（ ） s=0:t=0:u=0 For x=1 To 3 For y=1 To x For z=y To 3 s=s+1 Next z t=t+1 Next y u=u+1 Next x Print s;t;u A. 3 6 14 B. 14 6 3 C. 14 3 6 D. 16 4 3 19、在窗体上画两个文本框（其name属性分别为text1和text2）和一个命令按钮（其name属性为command1），然后编写如下事件过程： private sub command1_click( ) x=0 do while x<50 x=(x+2)*(x+3) n=n+1 loop text1.text=str(n) text2.text=str(x) end sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ ） A.1和0 B.2和72 C.3和50 D.4和168 20、在窗体上画一个命令按钮（其Name属性为Command1）,然后编写如下代码： Private Sub Command1_Click() Dim a(4,4) As Integer For i=1 To 4 For j=1 To 4 a(i,j)=(i-1)*3+j Next j Next i For i=3 To 4 For j=3 To 4 Print a(j,i); Next j Print Next i End Sub 程序运行后，单击命令按钮，其输出结果为( ) 。 A. 6 9 7 10 B. 7 10 8 11 C. 8 11 9 12 D. 9 12 10 13 2、 填空题（本题共10小题，每题2分，共20分） 1.VB 中For循环的基本格式为：For <循环变量> = <初始值> To <终值> [Step <步长>]，Next [<循环变量>]。若省略Step，则默认步长为_______。 2、在For……Next循环中，循环次数由循环控制变量的初值、终值与步长三个因素决定，其计算公式为 ________________。 3、执行For i = 5 To 1 Step -1循环，循环执行次数为______次。 4、While…Wend 循环中，若条件始终为 True，会导致______（填 “死循环”/“语法错误”）。 5、在VB中，要终止当前循环并直接跳出循环体，使用的语句是______。 6、While...Wend循环属于_______型循环（填 “先判断后执行” 或 “先执行后判断”），因此循环体可能一次都不执行。 7、已知循环次数时，优先使用_______循环；未知循环次数时，优先使用While...Wend或Do循环。 8、若For循环的初始值大于终值，需将步长设置为_______，否则循环体一次都不执行。 9、执行以下循环后，s 的值为______。 s = 0 i = 1 Do Until i > 4 s = s + i i = i + 1 Loop 10、执行以下循环后，x 的值为______。 x = 0 For i = 1 To 3 If i Mod 2 = 0 Then Exit For End If x = x + 1 Next 3、 程序填空题（本题共2小题，每题10分，共20分） 1、下列VB程序实现的功能是：求100—999之间的所有水仙花数，并将所有水仙花数在文本框中显示。所谓水仙花数：即153=1^3+5^3+3^3条件成立。 Private Sub Command1_Click() Dim i As Integer ,a As Integer ,b As Integer ,c As Integer For i = 100 To 999 a=i\100 ____（1）________ c=i Mod 10 If ____（2）________ Then Text1.Text=Text1.Text & i & Space(2) End If Next i End Sub 2、下列VB程序实现的功能是：以下程序用于判断一个正整数（≥3）是否为素数。 Private Sub Form_Click() n = InputBox("请输入一个正整数（≥3）") k = Int(Sqr(n)) i = 2 swit = 0 Do While i <= k And ____（1）________ If ____（2）________ Then swit = 1 Else ____（3）________ End If Loop If swit = 0 Then Print n; "是一个素数" Else Print n; "不是素数" End If End Sub 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $