第10卷 循环结构《Visual Basic程序设计》内蒙古计算机类 考纲百套卷

编写说明：内蒙古自治区对口招生《计算机类考纲百套卷》，依据《2019年内蒙古自治区高等职业院校对口招收中等职业学校毕业生计算机类专业课综合考试指导纲要》编写。本专辑涵盖四门课程，且每门课程均采用三阶递进式训练体系：基础层（具象化支架）拆解考点为微目标，紧扣考纲“掌握”“理解”要求编写考点训练卷；巩固层（关联性支架）强化知识交叉与场景关联，按考纲专题编专题训练卷；应用层（引导性支架）聚焦真题突破，结合知识模块与教材编写课程综合卷。 本试卷是第10卷，为考点训练卷，按《Visual Basic程序设计》范围和要求编写。具体内容为：For 循环，Do循环，列表框与组合框控件常用算法实例。 内蒙古对口招生《计算机类考纲百套卷》 第10卷 《Visual Basic程序设计》 循环结构 考点训练卷 考试时间60分钟 满分100分 班级 姓名 学号 成绩 一、单选题（本题共30道小题，每题2分，共60分） 1. 下列关于For...Next循环语句的说法中，错误的是 A. For循环必须包含Next语句与之配对使用 B. 循环变量的终值在循环执行过程中可以改变 C. Step默认值为1，可省略不写 D. 当循环变量的值超过终值时退出循环 2. 执行以下程序段后，输出结果为 Dim s As Integer, i As Integer s = 0 For i = 1 To 5 Step 2 s = s + i Next i Print s A. 6 B. 9 C. 15 D. 5 3. 下列Do循环语句中，循环体至少会执行一次的是 A. Do While x > 0 ... Loop B. Do Until x = 0 ... Loop C. Do ... Loop While x > 0 D. 以上都是 4. 要使列表框List1在运行时要求用户选择单项，应将其MultiSelect属性设置为 A. 0 B. 1 C. 2 D. 3 5. 以下程序段执行后，变量k的值为 k = 0 For i = 10 To 1 Step -2 k = k + 1 Next i A. 5 B. 6 C. 10 D. 0 6. 组合框ComboBox的Style属性设为2时，其表现效果为 A. 下拉式组合框（仅可选可输入） B. 下拉式组合框（仅可选不可输入） C. 列表式组合框 D. 文本框 7. 下列关于Do Until循环的说法，正确的是 A. 当条件为True时继续循环 B. 当条件为False时继续循环 C. Do Until与Do While的功能完全相同 D. Do Until不需要Loop关键字 8. 若要在列表框List1的第3个位置插入一项"VB程序"，正确的语句是 A. List1.AddItem "VB程序", 3 B. List1.AddItem "VB程序", 2 C. List1.Add "VB程序", 3 D. List1.Insert "VB程序", 2 9. 以下程序段的输出结果是 Dim n As Integer, s As Integer s = 0 For n = 1 To 100 Step 0 s = s + 1 Next n Print s A. 100 B. 101 C. 死循环 D. 0 10. 列表框控件的ListCount属性返回值的意义是 A. 当前选中项的索引号 B. 列表中所有项目的总数 C. 最后一个项目的索引号 D. 列表的宽度 11. 执行下面程序后，变量sum的值是 Dim sum As Integer, i As Integer sum = 0 For i = 1 To 4 sum = sum + i * i Next i Print sum A. 10 B. 24 C. 30 D. 55 12. 在Do...Loop循环中使用的关键字Exit Do的作用是 A. 结束当前次循环，进入下一次循环 B. 跳出整个Do循环 C. 跳出所有嵌套循环 D. 结束程序运行 13. 下列哪种情况适合使用Do循环而不是For循环？ A. 已知确切循环次数的情况 B. 需要根据某个条件判断是否继续循环的情况 C. 需要用到循环变量的情况 D. 以上都不适合Do循环 14. 要将列表框List1中被选中的项目删除，应使用的语句是 A. List1.Clear B. List1.RemoveItem List1.ListIndex C. List1.Delete List1.Text D. List1.ListIndex = -1 15. 下面程序的运行结果是 Dim a As Integer, b As Integer a = 0 Do While a < 10 a = a + 3 Loop Print a A. 6 B. 9 C. 12 D. 10 16. 组合框ComboBox的Text属性的作用是 A. 返回或设置组合框中所有项目的总数 B. 返回或设置组合框中当前显示的文本内容 C. 返回或设置组合框的样式 D. 返回当前选中项的索引号 17. 以下程序段中，循环执行的次数是 For i = -3 To 3 Step 2 Print i; Next i A. 4 B. 7 C. 3 D. 4 18. 若列表框List1中有5个项目，且当前未选中任何项，则ListIndex的值是 A. 0 B. -1 C. 5 D. Null 19. 以下关于For嵌套循环的说法，错误的是 A. 内层和外层循环可以使用相同的循环变量名 B. 内层循环完整执行完毕后，外层循环变量才递增 C. Exit For只能退出它所在的那一层循环 D. 嵌套层数不宜过多以免影响效率 20. 执行下面的程序，输出的结果是 Dim i As Integer, fact As Long fact = 1 For i = 1 To 5 fact = fact * i Next i Print fact A. 120 B. 60 C. 24 D. 720 21. 要让组合框在窗体加载时就添加若干选项，应在哪个事件中写代码？ A. Click事件 B. Load事件 C. Change事件 D. DblClick事件 22. 下面程序的输出结果是 Dim s As Integer s = 0 Do s = s + 2 Loop Until s >= 10 Print s A. 8 B. 10 C. 12 D. 6 23. 列表框的Sorted属性设为True后，新添加的项目会 A. 添加到末尾 B. 按字母顺序自动排列 C. 添加到开头 D. 报错 24. 下列程序执行后，变量n的值是 n = 0 For i = 100 To 200 If i Mod 7 = 0 Then n = n + 1 Next i Print n A. 14 B. 15 C. 13 D. 28 25. 在For循环中，若想在满足某条件时提前终止循环，应使用 A. End B. Exit For C. Stop D. Return 26. 组合框的ListIndex属性值为-1表示 A. 选择了第一项 B. 选择了最后一项 C. 没有任何项被选中 D. 属性值无效 27. 以下程序段的输出结果是 Dim i As Integer, j As Integer For i = 1 To 3 For j = 1 To i Print "*"; Next j Print Next i A. *** ** * B. * ** *** C. ********* D. * * * 28. Do While循环和Do...Loop While循环的主要区别在于 A. 一个用While一个用Until B. 一个可能一次都不执行另一个至少执行一次 C. 一个只能用整数条件另一个可以用字符串条件 D. 没有区别 29. 下列程序的功能是找出100以内所有的偶数并计数，空白处应填写 count = 0 For i = 0 To 100 Step 2 count = count + 1 Next i Print count A. 输出50 B. 输出51 C. 输出49 D. 输出100 30. 列表框控件属于 A. 基本控件 B. 文本类控件 C. 图形类控件 D. 选择类控件 二、填空题（本题共10道小题，每题2分，共20分） 31. For循环的基本语法格式为：For 循环变量 = 初值 To 终值 [Step 步长] ______ Next 循环变量 32. 在Do While...Loop结构中，如果一开始条件就为______，则循环体一次都不会执行。 33. 列表框的______属性用于返回列表中当前被选中的项目的索引号，若无选中项则返回-1。 34. 组合框ComboBox的Style属性有三种取值：0代表下拉式组合框，1代表______，2代表下拉式列表框。 35. 在For循环中，当步长为正数时，循环继续的条件是循环变量______终值；当步长为负数时，条件是循环变量______终值。 36. Do Until...Loop的含义是：执行循环体，______条件变为True为止。 37. 向列表框List1中添加一个新项目"计算机"，应使用的方法是______。 38. 清除列表框中所有项目，应使用的方法是______。 39. 在嵌套For循环中，如果要跳出最内层的循环，应使用______语句。 40. 计算1+2+3+...+100的和，使用For循环时，循环变量的初值应为______，终值应为______，步长应为______。 三、程序填空题（本题共2道小题，每题10分，共20分） 41.以下程序功能：计算1到N之间所有能被3整除的数的和。请补充完整程序代码。 Private Sub Command1_Click() Dim N As Integer, i As Integer, sum As Integer N = Val(InputBox("请输入N的值：")) sum = [ ① ] For i = [ ② ] To N Step [ ③ ] If [ ④ ] Then sum = sum + i End If Next i Print "1到" & N & "之间能被3整除的数的和=" & sum End Sub 42.以下程序功能：将列表框List1中所有长度大于3的字符串项目复制到列表框List2中。请补充完整程序代码。 Private Sub Command1_Click() Dim i As Integer List2.[ ① ] For i = 0 To [ ② ] If Len([ ③ ]) > 3 Then List2.[ ④ ] [ ⑤ ] End If Next i End Sub 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $ 编写说明：内蒙古自治区对口招生《计算机类考纲百套卷》，依据《2019年内蒙古自治区高等职业院校对口招收中等职业学校毕业生计算机类专业课综合考试指导纲要》编写。本专辑涵盖四门课程，且每门课程均采用三阶递进式训练体系：基础层（具象化支架）拆解考点为微目标，紧扣考纲“掌握”“理解”要求编写考点训练卷；巩固层（关联性支架）强化知识交叉与场景关联，按考纲专题编专题训练卷；应用层（引导性支架）聚焦真题突破，结合知识模块与教材编写课程综合卷。 本试卷是第10卷，为考点训练卷，按《Visual Basic程序设计》范围和要求编写。具体内容为：For 循环，Do循环，列表框与组合框控件常用算法实例。 内蒙古对口招生《计算机类考纲百套卷》 第10卷 《Visual Basic程序设计》 循环结构 考点训练卷 考试时间60分钟 满分100分 班级 姓名 学号 成绩 一、单选题（本题共30道小题，每题2分，共60分） 1. 下列关于For...Next循环语句的说法中，错误的是 A. For循环必须包含Next语句与之配对使用 B. 循环变量的终值在循环执行过程中可以改变 C. Step默认值为1，可省略不写 D. 当循环变量的值超过终值时退出循环 【答案】B 【解析】For循环的终值在进入循环时就已确定，虽然在循环体内可以修改，但不会影响循环次数的计算。循环次数由初始终值决定，这是For循环的重要特性。选项B描述不准确，因为在大多数情况下修改终值不影响既定的循环次数。 2. 执行以下程序段后，输出结果为 Dim s As Integer, i As Integer s = 0 For i = 1 To 5 Step 2 s = s + i Next i Print s A. 6 B. 9 C. 15 D. 5 【答案】B 【解析】Step=2表示步长为2，i依次取值1、3、5。s的累加过程：s=0+1=1；s=1+3=4；s=4+5=9。故输出9。 3. 下列Do循环语句中，循环体至少会执行一次的是 A. Do While x > 0 ... Loop B. Do Until x = 0 ... Loop C. Do ... Loop While x > 0 D. 以上都是 【答案】C 【解析】Do...Loop While是后置条件型循环，先执行一次循环体再判断条件，所以无论条件真假都至少执行一次。而Do While/Do Until是前置条件型，如果一开始条件就不满足则一次都不执行。 4. 要使列表框List1在运行时要求用户选择单项，应将其MultiSelect属性设置为 A. 0 B. 1 C. 2 D. 3 【答案】A 5. 以下程序段执行后，变量k的值为 k = 0 For i = 10 To 1 Step -2 k = k + 1 Next i A. 5 B. 6 C. 10 D. 0 【答案】A 【解析】Step=-2表示递减，i取值为10、8、6、4、2，共5次循环。每次循环k增加1，最终k=5。注意当i=0时已小于终值1，循环终止。 6. 组合框ComboBox的Style属性设为2时，其表现效果为 A. 下拉式组合框（仅可选可输入） B. 下拉式组合框（仅可选不可输入） C. 列表式组合框 D. 文本框 【答案】B 【解析】ComboBox的Style属性：0-下拉式组合框（下拉+可输入文本），1-列表式组合框（始终显示列表），2-下拉式列表框（仅可选择，不能手动输入）。Style=2时用户只能从已有列表中选择。 7. 下列关于Do Until循环的说法，正确的是 A. 当条件为True时继续循环 B. 当条件为False时继续循环 C. Do Until与Do While的功能完全相同 D. Do Until不需要Loop关键字 【答案】B 【解析】Do Until的含义是"直到条件为True时停止"，即条件为False时继续执行循环体。这与Do While正好相反：Do While是"当条件为True时执行"。两者互为逆条件关系。 8. 若要在列表框List1的第3个位置插入一项"VB程序"，正确的语句是 A. List1.AddItem "VB程序", 3 B. List1.AddItem "VB程序", 2 C. List1.Add "VB程序", 3 D. List1.Insert "VB程序", 2 【答案】B 【解析】AddItem方法的第二个参数是索引号（Index），从0开始计数。在第3个位置插入对应索引2。注意索引从0开始是VB列表类控件的通用规则。 9. 以下程序段的输出结果是 Dim n As Integer, s As Integer s = 0 For n = 1 To 100 Step 0 s = s + 1 Next n Print s A. 100 B. 101 C. 死循环 D. 0 【答案】C 【解析】Step=0意味着循环变量n永远不变（始终为1），永远不会超过终值100，因此形成死循环。实际编程中应避免Step=0的情况。 10. 列表框控件的ListCount属性返回值的意义是 A. 当前选中项的索引号 B. 列表中所有项目的总数 C. 最后一个项目的索引号 D. 列表的宽度 【答案】B 【解析】ListCount返回列表中项目的总个数。由于索引从0开始，最后一个项目的索引号为ListCount-1。ListIndex返回当前选中项的索引号（未选中时为-1）。 11. 执行下面程序后，变量sum的值是 Dim sum As Integer, i As Integer sum = 0 For i = 1 To 4 sum = sum + i * i Next i Print sum A. 10 B. 24 C. 30 D. 55 【答案】C 【解析】该程序计算1²+2²+3²+4²的和。sum=0+1=1；sum=1+4=5；sum=5+9=14；sum=14+16=30。输出30。 12. 在Do...Loop循环中使用的关键字Exit Do的作用是 A. 结束当前次循环，进入下一次循环 B. 跳出整个Do循环 C. 跳出所有嵌套循环 D. 结束程序运行 【答案】B 【解析】Exit Do的作用是立即跳出当前所在的Do循环，转到Loop之后的语句继续执行。它只跳出一层循环，不会影响外层循环。类似地，Exit For用于跳出For循环。 13. 下列哪种情况适合使用Do循环而不是For循环？ A. 已知确切循环次数的情况 B. 需要根据某个条件判断是否继续循环的情况 C. 需要用到循环变量的情况 D. 以上都不适合Do循环 【答案】B 【解析】For循环适用于循环次数已知的情况（由初值、终值、步长确定）。Do循环适用于循环次数不确定、需要根据条件动态判断是否结束的场景，如读取文件直到末尾、等待用户输入有效数据等。 14. 要将列表框List1中被选中的项目删除，应使用的语句是 A. List1.Clear B. List1.RemoveItem List1.ListIndex C. List1.Delete List1.Text D. List1.ListIndex = -1 【答案】B 【解析】RemoveItem方法用于删除指定索引的项目。List1.ListIndex返回当前选中项的索引，配合RemoveItem即可删除选中项。Clear用于清空所有项目。 15. 下面程序的运行结果是 Dim a As Integer, b As Integer a = 0 Do While a < 10 a = a + 3 Loop Print a A. 6 B. 9 C. 12 D. 10 【答案】C 【解析】Do While a<10：a=0→a=3（3<10继续）；a=3→a=6（6<10继续）；a=6→a=9（9<10继续）；a=9→a=12（12≥10停止）。输出a=12。注意退出时a已经变为12了。 16. 组合框ComboBox的Text属性的作用是 A. 返回或设置组合框中所有项目的总数 B. 返回或设置组合框中当前显示的文本内容 C. 返回或设置组合框的样式 D. 返回当前选中项的索引号 【答案】B 【解析】Text属性获取或设置组合框编辑区域中显示的文本。对于Style=0的组合框，用户可以直接输入文字，Text属性就是用户输入的内容或选中项的文字。 17. 以下程序段中，循环执行的次数是 For i = -3 To 3 Step 2 Print i; Next i A. 4 B. 7 C. 3 D. 4 【答案】A 【解析】i的取值序列：-3, -1, 1, 3。共4个值。公式：循环次数=Int((终值-初值)/步长)+1=Int((3-(-3))/2)+1=Int(3)+1=4。 18. 若列表框List1中有5个项目，且当前未选中任何项，则ListIndex的值是 A. 0 B. -1 C. 5 D. Null 【答案】B 【解析】列表框没有任何项被选中时，ListIndex属性返回-1。这是VB列表类控件的约定：有效索引从0到ListCount-1，无选中时为-1。 19. 以下关于For嵌套循环的说法，错误的是 A. 内层和外层循环可以使用相同的循环变量名 B. 内层循环完整执行完毕后，外层循环变量才递增 C. Exit For只能退出它所在的那一层循环 D. 嵌套层数不宜过多以免影响效率 【答案】A 【解析】内层和外层循环不能使用相同名称的循环变量，否则会产生命名冲突和逻辑错误。每一层循环应使用独立的变量名（如i, j, k）。 20. 执行下面的程序，输出的结果是 Dim i As Integer, fact As Long fact = 1 For i = 1 To 5 fact = fact * i Next i Print fact A. 120 B. 60 C. 24 D. 720 【答案】A 【解析】该程序计算5的阶乘5!。fact=1×1=1；×2=2；×3=6；×4=24；×5=120。输出120。这就是典型的累乘求阶乘算法。 21. 要让组合框在窗体加载时就添加若干选项，应在哪个事件中写代码？ A. Click事件 B. Load事件 C. Change事件 D. DblClick事件 【答案】B 【解析】窗体的Load事件在窗体首次加载到内存但尚未显示前触发，是在初始化阶段给组合框/列表框添加选项的最佳位置。注意：对于某些版本的VB，组合框的AddItem在Form_Load中可能需要特殊处理。 22. 下面程序的输出结果是 Dim s As Integer s = 0 Do s = s + 2 Loop Until s >= 10 Print s A. 8 B. 10 C. 12 D. 6 【答案】B 【解析】Do...Loop Until是后置条件型，先执行后判断。s=2(2<10继续)；s=4(4<10继续)；s=6；s=8；s=10(10≥10停止)。输出s=10。 23. 列表框的Sorted属性设为True后，新添加的项目会 A. 添加到末尾 B. 按字母顺序自动排列 C. 添加到开头 D. 报错 【答案】B 【解析】当Sorted属性设为True时，列表框会对所有项目按ASCII码/字母升序自动排列。新添加的项目也会被插入到正确的排序位置，而非简单的追加到末尾。 24. 下列程序执行后，变量n的值是 n = 0 For i = 100 To 200 If i Mod 7 = 0 Then n = n + 1 Next i Print n A. 14 B. 15 C. 13 D. 28 【答案】A 【解析】统计100~200之间能被7整除的数的个数。第一个是105（100÷7≈14.29，向上取整得105），最后一个是196（196≤200）。个数=(196-105)/7+1=91/7+1=13+1=14个。或者直接计算：floor(200/7)-floor(99/7)=28-14=14。 25. 在For循环中，若想在满足某条件时提前终止循环，应使用 A. End B. Exit For C. Stop D. Return 【答案】B 【解析】Exit For专门用于在For循环内部提前退出循环。执行Exit For后会立即跳转到Next之后的语句。End用于结束程序运行，Stop用于暂停调试。 26. 组合框的ListIndex属性值为-1表示 A. 选择了第一项 B. 选择了最后一项 C. 没有任何项被选中 D. 属性值无效 【答案】C 【解析】与列表框相同，组合框的ListIndex=-1表示没有选中任何项。选中第1项时ListIndex=0，选中第n项时ListIndex=n-1。 27. 以下程序段的输出结果是 Dim i As Integer, j As Integer For i = 1 To 3 For j = 1 To i Print "*"; Next j Print Next i A. *** ** * B. * ** *** C. ********* D. * * * 【答案】B 【解析】外层i=1时，内层j从1到1打印1个星号并换行；i=2时打印2个星号；i=3时打印3个星号。形成直角三角形图案：* ** ***。 28. Do While循环和Do...Loop While循环的主要区别在于 A. 一个用While一个用Until B. 一个可能一次都不执行另一个至少执行一次 C. 一个只能用整数条件另一个可以用字符串条件 D. 没有区别 【答案】B 【解析】核心区别在于判断条件的时机不同。Do While...Loop是前置条件型（先判断后执行），条件不成立时一次也不执行；Do...Loop While是后置条件型（先执行后判断），至少执行一次循环体。 29. 下列程序的功能是找出100以内所有的偶数并计数，空白处应填写 count = 0 For i = 0 To 100 Step 2 count = count + 1 Next i Print count A. 输出50 B. 输出51 C. 输出49 D. 输出100 【答案】B 【解析】i从0到100，步长为2，取值：0,2,4,...,100。共(100-0)/2+1=50+1=51个数（含0和100）。0也是偶数，所以共有51个偶数。 30. 列表框控件属于 A. 基本控件 B. 文本类控件 C. 图形类控件 D. 选择类控件 【答案】D 【解析】列表框(ListBox)和组合框(ComboBox)都属于选择类控件，用于让用户从一个预定义的列表中选择一项或多项。其他选择类控件还包括CheckBox、OptionButton等。 二、填空题（本题共10道小题，每题2分，共20分） 31. For循环的基本语法格式为：For 循环变量 = 初值 To 终值 [Step 步长] ______ Next 循环变量 【答案】循环体 【解析】For循环的结构包括：For语句头部（指定变量、范围、步长）、循环体（要重复执行的语句块）、Next语句（标志循环结束并使循环变量递增）。循环体位于For和Next之间。 32. 在Do While...Loop结构中，如果一开始条件就为______，则循环体一次都不会执行。 【答案】False（或假） 【解析】Do While是"当条件为真时执行"，即条件为True才进入循环体。如果初始条件为False，直接跳过整个循环。这与Do...Loop While不同。 33. 列表框的______属性用于返回列表中当前被选中的项目的索引号，若无选中项则返回-1。 【答案】ListIndex 【解析】ListIndex是列表框最常用的属性之一，返回当前选中项的位置（从0开始）。配合List属性（List(ListIndex)）可读取选中项的具体文本内容。 34. 组合框ComboBox的Style属性有三种取值：0代表下拉式组合框，1代表______，2代表下拉式列表框。 【答案】简单组合框（或列表式组合框） 【解析】Style=0：下拉组合框（带输入区）；Style=1：简单组合框（始终显示列表，占空间大）；Style=2：下拉列表框（仅选择不可输入）。 35. 在For循环中，当步长为正数时，循环继续的条件是循环变量______终值；当步长为负数时，条件是循环变量______终值。 【答案】小于等于（或<=）; 大于等于（或>=） 【解析】正步长时变量递增，只要不超过终值就继续；负步长时变量递减，只要不低于终值就继续。这是For循环退出的核心判断逻辑。 36. Do Until...Loop的含义是：执行循环体，______条件变为True为止。 【答案】直到（或直到...时停止） 【解析】"Until"意为"直到"。Do Until...Loop持续执行循环体，直到条件表达式变为True时停止。条件为False时继续执行。 37. 向列表框List1中添加一个新项目"计算机"，应使用的方法是______。 【答案】List1.AddItem "计算机" 【解析】AddItem是列表框和组合框的标准方法，用于向列表尾部（或指定索引位置）添加新的选项。语法：对象.AddItem 项目文本 [, 索引] 38. 清除列表框中所有项目，应使用的方法是______。 【答案】Clear 【解析】对象.Clear方法清空列表中的全部项目，ListCount将变为0。注意：RemoveItem只能逐个删除指定的单个项目。 39. 在嵌套For循环中，如果要跳出最内层的循环，应使用______语句。 【答案】Exit For 【解析】Exit For仅退出其所在的最近一层For循环。如果要跳出多层嵌套循环，需要在每层分别使用Exit For，或借助布尔标志变量控制。 40. 计算1+2+3+...+100的和，使用For循环时，循环变量的初值应为______，终值应为______，步长应为______。 【答案】1; 100; 1 【解析】标准的等差数列求和循环：For i = 1 To 100 Step 1，在循环体中做累加操作s = s + i。也可写作For i = 1 To 100（省略Step，默认为1）。 三、程序填空题（本题共2道小题，每题10分，共20分） 41.以下程序功能：计算1到N之间所有能被3整除的数的和。请补充完整程序代码。 Private Sub Command1_Click() Dim N As Integer, i As Integer, sum As Integer N = Val(InputBox("请输入N的值：")) sum = [ ① ] For i = [ ② ] To N Step [ ③ ] If [ ④ ] Then sum = sum + i End If Next i Print "1到" & N & "之间能被3整除的数的和=" & sum End Sub 【答案】0 【解析】sum作为累加器，初始化为0是累加运算的标准做法。 【答案】1（或3） 【解析】循环变量i从1开始遍历（或从3开始以减少不必要的判断次数，两者均正确，从1更通用）。 【答案】1 【解析】步长设为1，逐一检查每个整数是否满足条件。 【答案】i Mod 3 = 0（或 i / 3 = i \ 3） 【解析】Mod运算符取余数，i Mod 3 = 0表示i能被3整除。也可用Int函数判断：Int(i/3)*3=i。 42.以下程序功能：将列表框List1中所有长度大于3的字符串项目复制到列表框List2中。请补充完整程序代码。 Private Sub Command1_Click() Dim i As Integer List2.[ ① ] For i = 0 To [ ② ] If Len([ ③ ]) > 3 Then List2.[ ④ ] [ ⑤ ] End If Next i End Sub 【答案】Clear 【解析】在填充List2之前先清空其中已有的内容，避免重复添加。Clear方法清空列表框所有项目。 【答案】List1.ListCount - 1 【解析】List1.ListCount返回总项目数，索引从0到ListCount-1，所以循环终值是ListCount-1。 【答案】List1.List(i)（或 List1.List(i)） 【解析】通过索引访问List1中的每个项目文本，Len()函数计算其字符长度。 【答案】AddItem 【解析】AddItem方法向列表框中添加新项目。此处将符合条件的字符串添加到List2中。 【答案】List1.List(i) 【解析】将被复制的项目文本作为参数传给AddItem方法，添加到List2的末尾。 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $