项目七 第20练 For...Next语句《Visual Basic 程序设计》（电工版第六版）一课一练

编写说明：考虑到中职学生普遍基础知识相对薄弱的情况，我们依据支架式教学理念，精心编制了《Visual Basic程序设计（第6版）》(电子工业出版社)一课一练。专辑里的每一份练习，都与课堂所授知识点紧密相关，题目围绕课堂所学知识点呈现。目的在于激发学生的学习兴趣，培养他们的学习自觉性，帮助学生扎实掌握课程的基本概念与基本方法，为他们后续的进一步提升奠定坚实基础。 本卷是《Visual Basic程序设计（第6版）》(电子工业出版社)一课一练的项目七的第20练，内容涵盖项目七循环结构相关内容。 《Visual Basic程序设计(第6版)》(电子工业出版社)第20练 项目七 循环结构 任务一 For...Next语句 1、 单项选择题（本题共5小题） 1、下列关于 VB 中For...Next循环的核心特征，描述正确的是（ ） A. 属于条件型循环，通过布尔表达式控制循环终止 B. 循环次数由初值、终值和步长共同决定 C. 步长只能设置为正整数，不能为负数或小数 D. Next关键字后必须书写循环变量名，否则报语法错误 【答案】 B 【解析】For循环是计数型循环，While/Do才是条件型循环；步长可设负数（反向遍历）或小数，Next后可省略循环变量名。 2、执行以下程序段后，变量sum的最终值是（ ） Dim sum As Integer, k As Integer sum = 1 For k = 2 To 4 Step 1 sum = sum * k Next k A. 4 B. 8 C. 24 D. 12 【答案】C 【解析】k=2：sum=1×2=2；k=3：sum=2×3=6；k=4：sum=6×4=24。 3、下面程序段运行时内层循环的循环总次数为( ) FOR X=1 TO 2 FOR Y=1 TO X NEXT Y NEXT X A.1 B.2 C.3 D.4 【答案】 C 【解析】第一轮外层循环（X=1），内层循环Y=1 TO 1，仅执行 1 次，第二轮外层循环（X=2）：内层循环Y=1 TO 2，依次执行 Y=1、Y=2。 4、关于For Each...Next循环，下列说法错误的是（ ） A. 可遍历字符串的每个字符，无需控制索引 B. 可遍历二维数组，遍历顺序为 “行优先” C. 遍历数组时，可通过元素变量修改数组原元素的值 D. 无需指定循环次数，自动遍历集合 / 数组的所有元素 【答案】C 【解析】For Each的元素变量是 “只读副本”，修改该变量不会改变数组原元素的值。 5、 执行以下程序段后，循环体的执行次数是（ ） Dim i As Integer For i = 7 To 2 Step -2 Print i Next i A. 2 B. 3 C. 4 D. 0 【答案】 B 【解析】i=7（≥2，执行）→ i=7-2=5；i=5（≥2，执行）→ i=5-2=3；i=3（≥2，执行）→ i=3-2=1；i=1（<2，终止）。 2、 填空题（本题共5小题） 1、若要在For循环中提前终止循环，需使用________语句。 【答案】 Exit For 【解析】Exit For：强制终止整个For循环。 2、定义For i = 5 To 1，则循环体执行次数为________。 【答案】 0 【解析】省略 Step 时默认步长 1（正数），初始 i=5 > 终值 1，循环体一次都不执行； 3、________循环的核心作用是遍历数组的所有元素，无需手动控制索引。 【答案】 For Each...Next 【解析】For Each专为遍历集合类数据设计，可直接遍历数组、字符串（字符）、控件集合等，无需像For循环那样通过索引访问元素。 4、执行以下程序段后，循环体执行次数为________，变量res的最终值为________。 Dim res As Integer, t As Integer res = 0 For t = -3 To 3 Step 2 res = res + t Next t 【答案】4；0 【解析】循环变量t遍历：-3（执行）→-1（执行）→1（执行）→3（执行）→5（>3，终止），共 4 次；res计算：0+(-3)=-3 →-3+(-1)=-4 →-4+1=-3 →-3+3=0，最终res=0。 5、执行以下程序段后，循环体执行的次数为________ Dim k As Integer For k = 2 To 8 Step 3 Print k Next k 【答案】3 【解析】第 1 次：k=2（≤8，执行）；第 2 次：k=2+3=5（≤8，执行）；第 3 次：k=5+3=8（≤8，执行）； 第 4 次：k=8+3=11（>8，终止）；共执行 3 次， 三、程序填空题 1、用For循环计算 1~10 中所有奇数的平方和，如：1²+3²+5²+…+9²。 Dim i As Integer, sum As Integer sum = 0 For i = 1 To 10 Step 2 sum = sum + ___ (1)___ Next i Print sum 【答案】 i ^ 2（或i * i） 【解析】步长 2 遍历 1、3、5…9（所有奇数）；i ^ 2是 VB 中计算平方的运算符。 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 $ 编写说明：考虑到中职学生普遍基础知识相对薄弱的情况，我们依据支架式教学理念，精心编制了《Visual Basic程序设计（第6版）》(电子工业出版社)一课一练。专辑里的每一份练习，都与课堂所授知识点紧密相关，题目围绕课堂所学知识点呈现。目的在于激发学生的学习兴趣，培养他们的学习自觉性，帮助学生扎实掌握课程的基本概念与基本方法，为他们后续的进一步提升奠定坚实基础。 本卷是《Visual Basic程序设计（第6版）》(电子工业出版社)一课一练的项目七的第20练，内容涵盖项目七循环结构相关内容。 《Visual Basic程序设计(第6版)》(电子工业出版社)第20练 项目七 循环结构 任务一 For...Next语句 1、 单项选择题（本题共5小题） 1、下列关于 VB 中For...Next循环的核心特征，描述正确的是（ ） A. 属于条件型循环，通过布尔表达式控制循环终止 B. 循环次数由初值、终值和步长共同决定 C. 步长只能设置为正整数，不能为负数或小数 D. Next关键字后必须书写循环变量名，否则报语法错误 2、执行以下程序段后，变量sum的最终值是（ ） Dim sum As Integer, k As Integer sum = 1 For k = 2 To 4 Step 1 sum = sum * k Next k A. 4 B. 8 C. 24 D. 12 3、下面程序段运行时内层循环的循环总次数为( ) FOR X=1 TO 2 FOR Y=1 TO X NEXT Y NEXT X A.1 B.2 C.3 D.4 4、关于For Each...Next循环，下列说法错误的是（ ） A. 可遍历字符串的每个字符，无需控制索引 B. 可遍历二维数组，遍历顺序为 “行优先” C. 遍历数组时，可通过元素变量修改数组原元素的值 D. 无需指定循环次数，自动遍历集合 / 数组的所有元素 5、 执行以下程序段后，循环体的执行次数是（ ） Dim i As Integer For i = 7 To 2 Step -2 Print i Next i A. 2 B. 3 C. 4 D. 0 2、 填空题（本题共5小题） 1、若要在For循环中提前终止循环，需使用________语句。 2、定义For i = 5 To 1，则循环体执行次数为________。 3、________循环的核心作用是遍历数组的所有元素，无需手动控制索引。 4、执行以下程序段后，循环体执行次数为________，变量res的最终值为________。 Dim res As Integer, t As Integer res = 0 For t = -3 To 3 Step 2 res = res + t Next t 5、执行以下程序段后，循环体执行的次数为________ Dim k As Integer For k = 2 To 8 Step 3 Print k Next k 三、程序填空题 1、用For循环计算 1~10 中所有奇数的平方和，如：1²+3²+5²+…+9²。 Dim i As Integer, sum As Integer sum = 0 For i = 1 To 10 Step 2 sum = sum + ___ (1)___ Next i Print sum 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 $