《Visual Basic 程序设计》循环结构程序设计（1）-知识点训练卷 2026版内蒙古计算机类 考纲百套卷 第10卷

编写说明：2026版内蒙古对口招生《计算机类考纲百套卷》依据《内蒙古自治区高等职业院校对口招收中等职业学校毕业生计算机类专业课综合考试指导纲要》编写。本套试卷共100份，分为三个部分，第一部分是根据考试大纲的各考点范围与要求，编写的70份知识点训练卷，第二部分是针对每门课程的重点内容，编写的20份常考题训练卷，第三个部分是参考近几年内蒙古考试真题，编写了10份专业综合训练卷。 本试卷是2026版内蒙古对口招生《计算机类考纲百套卷》的第10卷，是知识点训练卷，按考纲中的《Visual Basic程序设计》的第6章 循环结构程序设计的范围与要求编写。具体内容如下： For 循环 Do循环 列表框与组合框控件 常用算法实例 2026版内蒙古对口招生《计算机类考纲百套卷》 第10卷 《Visual Basic 程序设计》 循环结构程序设计（1） 知识点训练卷 考试时间60分钟 满分100分 班级 姓名 学号 成绩 一、单项选择题（本大题共25小题，每题2分，共50分） 1. 以下程序的循环次数是（ ）。   Private Sub Command1_Click()   　　For j=8 To 35 Step 3           Print j;       Next j   End Sub   A.10    B.9    C.27    D.28 2. 以下程序的循环次数是（ ）。   Private Sub Command1_Click()   　　For j=8 To 35 Step 3           Print j;       Next j   End Sub A.10    B.9    C.27    D.28 3.以下程序的输出结果是（ ）   Private Sub Command1_Click()       a=100       Do           s=s+a           a=a+1       Loop Until a>100       print a   End Sub  A.100     B.120     C.201     D.101 4. 组合框的Style属性决定组合框的类型和行为，它的值为2时，其显示形式和功能是（ ） A.下拉列表框，并允许用户输入不属于列表框中的选项 B.简单组合框，并允许用户输入不属于列表框中的选项 C.下拉列表框，不允许用户输入不属于列表框中的选项 D.简单组合框，不允许用户输入不属于列表框中的选项 5. 在过程中有语句For I=N1 To N2 Step N3，在该循环体内有下列四条语句，其中（ ）会影响循环执行的次数。 ①N1=N1+I ②N2=N2+N3 ③I=I+N3 ④N3=2*N3 A．①② B．①②③ C．③ D．①②③④ 6. 设置列表框的选择方式，应使用（ ）属性。 A.Style B.Columns C.MultiSelect D.List 7. 若要清除列表框的所有项目内容，可以使用（ ）措施。 A.Clear B.Print C.Addltem D.ReMove 8. VB 中用于已知循环次数的首选语句是（ ） A. Do While…Loop B. For…Next C. While…Wend D. Select Case 9. 循环体一句也不执行的 For 循环是（ ） A. For i = 1 To 10 B. For i = 10 To 1 C. For i = 1 To 10 Step -1 D. For i = 1 To 1 10. Timer 控件在运行时（ ） A. 可见 B. 不可见 C. 可选 D. 仅设计时可见 11.若要在循环体中跳过本次剩余语句进入下一次循环，应使用（ ） A. Exit For B. Continue C. Skip D. Next 12. 清空组合框后，ListCount 的值是（ ） A. 0  B. -1  C. 1  D. 不变 13. 获取组合框当前选中项文本，应访问（ ） A. Combo1.Text B. Combo1.List C. Combo1.Caption D. Combo1.Value 14.清空组合框所有内容的方法是（ ） A. Clear B. Cls C. Reset D. RemoveAll 15. 删除组合框中索引为 2 的项目，正确语句是（ ） A. Combo1.Remove 2 B. Combo1.RemoveItem 2 C. Combo1.Delete 2 D. Combo1.Clear 2 16.若 Combo1.ListIndex = -1，表示（ ） A. 选中第一项 B. 未选中任何项 C. 选中最后一项 D. 列表为空 17.假定有以下程序段： For i=1 to 3 For j=5 to 1 Step –1 Print i*j Next j,i 则语句Print i*j的执行次数是（ ） A．15 B．16 C．17 D．18 18. 组合框的（ ）属性返回总项数。 A. Count B. ListCount C. Items.Count D. Length 19. 如果要在 5 秒后执行一次代码，合适的 Interval 设置是（ ）。 A. 5 B. 50 C. 500 D. 5000 20. 设置组合框为仅下拉列表（不能输入），应把 Style 设为（ ） A. 0 B. 1 C. 2 D. 3 21.若要在程序运行时暂停 Timer，应使用的语句是（ ） A. Timer1.Stop  B. Timer1.Enabled=False C. Timer1.Interval=0  D. Timer1.Visible=False 22.下列（ ）关键字与 Loop 配套。 A. Do B. Next C. End D. Wend 23.删除列表框中索引为 3 的项，正确语句是（ ） A. List1.Remove 3 B. List1.RemoveItem 3 C. List1.Delete 3 D. List1.Clear 3 24.当用户点击列表框某一项时触发的事件是（ ） A. Click B. Change C. Select D. ItemClick 25.删除组合框第一项，正确语句是（ ） A. Combo1.RemoveItem 0 B. Combo1.Remove 0 C. Combo1.Delete 0 D. Combo1.Clear 0 二、填空题（本大题共10小题，每题2分，共20分） 1. 列表框 ListBox中项目的序号从_________开始，到_________结束。 2.语句For j = 3 To 20 Step 3 使循环体执行了______次。 3.要使装入到列表框中的数据项能自动按字母顺序排序，应设置该控件的_________属性为__________。 4.在 For 循环中，若省略 Step，则默认步长为 ________。 5.在 Do Until…Loop 结构中，循环继续的条件是条件表达式为 ________。 6.若要删除列表框 List1 中所有被选中的项，通常采用 ________ 序遍历并 RemoveItem 的方法，避免索引错乱。 7.列表框的总项数由 ________ 属性返回。 8.若列表框名为 List1，判断其是否为空，可检查 ________ 是否等于 0。 9.设置组合框为“下拉列表”（仅能选不能输入），应将 ________ 属性设为 2。 10.获取组合框第 3 项内容，应使用 ________（写出完整表达式）。 三、程序填空题（本大题共2小题，每题15分，共30分） 1.下面程序功能是用“选择”法将数组a中的10个整数按升序排列。完成下列程序填空。 Option Base 1 Private Sub Form_Click() Dim a a = Array(678, 45, 324, 528, 439, 387, 87, 875, 273, 823) For I = 1 To 9 For j = _______ To 10 If _______ Then t = a(I): a(I) = a(j): a(j) = t End If Next j Next I For I = 1 To 10 Print a(I); Next I End Sub 2.下列程序的功能是：输入一个大于0的整数，判断该数是否是素数。 Private Sub Command2_Click() Dim x, i As Integer x = Val(InputBox("请输入一个整数（大于0）")) If x = 1 Then Print x; "不是素数" For i = 2 To x - 1 If ______（1）________ Then Print x; "不是素数" Exit Sub End If Next i If ___(2)_____ Then Print x; "是素数" End If End Sub 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $$ 编写说明：2026版内蒙古对口招生《计算机类考纲百套卷》依据《内蒙古自治区高等职业院校对口招收中等职业学校毕业生计算机类专业课综合考试指导纲要》编写。本套试卷共100份，分为三个部分，第一部分是根据考试大纲的各考点范围与要求，编写的70份知识点训练卷，第二部分是针对每门课程的重点内容，编写的20份常考题训练卷，第三个部分是参考近几年内蒙古考试真题，编写了10份专业综合训练卷。 本试卷是2026版内蒙古对口招生《计算机类考纲百套卷》的第10卷，是知识点训练卷，按考纲中的《Visual Basic程序设计》的第6章 循环结构程序设计的范围与要求编写。具体内容如下： For 循环 Do循环 列表框与组合框控件 常用算法实例 2026版内蒙古对口招生《计算机类考纲百套卷》 第10卷 《Visual Basic 程序设计》 循环结构程序设计（1） 知识点训练卷 考试时间60分钟 满分100分 班级 姓名 学号 成绩 一、单项选择题（本大题共25小题，每题2分，共50分） 1. 以下程序的循环次数是（ ）。   Private Sub Command1_Click()   　　For j=8 To 35 Step 3           Print j;       Next j   End Sub   A.10    B.9    C.27    D.28 【答案】A 2. 以下程序的循环次数是（ ）。   Private Sub Command1_Click()   　　For j=8 To 35 Step 3           Print j;       Next j   End Sub A.10    B.9    C.27    D.28 【答案】A 3.以下程序的输出结果是（ ）   Private Sub Command1_Click()       a=100       Do           s=s+a           a=a+1       Loop Until a>100       print a   End Sub  A.100     B.120     C.201     D.101 【答案】D 4. 组合框的Style属性决定组合框的类型和行为，它的值为2时，其显示形式和功能是（ ） A.下拉列表框，并允许用户输入不属于列表框中的选项 B.简单组合框，并允许用户输入不属于列表框中的选项 C.下拉列表框，不允许用户输入不属于列表框中的选项 D.简单组合框，不允许用户输入不属于列表框中的选项 【答案】C 5. 在过程中有语句For I=N1 To N2 Step N3，在该循环体内有下列四条语句，其中（ ）会影响循环执行的次数。 ①N1=N1+I ②N2=N2+N3 ③I=I+N3 ④N3=2*N3 A．①② B．①②③ C．③ D．①②③④ 【答案】C 6. 设置列表框的选择方式，应使用（ ）属性。 A.Style B.Columns C.MultiSelect D.List 【答案】C 7. 若要清除列表框的所有项目内容，可以使用（ ）措施。 A.Clear B.Print C.Addltem D.ReMove 【答案】A 8. VB 中用于已知循环次数的首选语句是（ ） A. Do While…Loop B. For…Next C. While…Wend D. Select Case 【答案】B 9. 循环体一句也不执行的 For 循环是（ ） A. For i = 1 To 10 B. For i = 10 To 1 C. For i = 1 To 10 Step -1 D. For i = 1 To 1 【答案】B 10. Timer 控件在运行时（ ） A. 可见 B. 不可见 C. 可选 D. 仅设计时可见 【答案】B 11.若要在循环体中跳过本次剩余语句进入下一次循环，应使用（ ） A. Exit For B. Continue C. Skip D. Next 【答案】B 12. 清空组合框后，ListCount 的值是（ ） A. 0  B. -1  C. 1  D. 不变 【答案】A 13. 获取组合框当前选中项文本，应访问（ ） A. Combo1.Text B. Combo1.List C. Combo1.Caption D. Combo1.Value 【答案】A 14.清空组合框所有内容的方法是（ ） A. Clear B. Cls C. Reset D. RemoveAll 【答案】A 15. 删除组合框中索引为 2 的项目，正确语句是（ ） A. Combo1.Remove 2 B. Combo1.RemoveItem 2 C. Combo1.Delete 2 D. Combo1.Clear 2 【答案】B 16.若 Combo1.ListIndex = -1，表示（ ） A. 选中第一项 B. 未选中任何项 C. 选中最后一项 D. 列表为空 【答案】B 17.假定有以下程序段： For i=1 to 3 For j=5 to 1 Step –1 Print i*j Next j,i 则语句Print i*j的执行次数是（ ） A．15 B．16 C．17 D．18 【答案】A 18. 组合框的（ ）属性返回总项数。 A. Count B. ListCount C. Items.Count D. Length 【答案】B 19. 如果要在 5 秒后执行一次代码，合适的 Interval 设置是（ ）。 A. 5 B. 50 C. 500 D. 5000 【答案】D 20. 设置组合框为仅下拉列表（不能输入），应把 Style 设为（ ） A. 0 B. 1 C. 2 D. 3 【答案】A 21.若要在程序运行时暂停 Timer，应使用的语句是（ ） A. Timer1.Stop  B. Timer1.Enabled=False C. Timer1.Interval=0  D. Timer1.Visible=False 【答案】B 22.下列（ ）关键字与 Loop 配套。 A. Do B. Next C. End D. Wend 【答案】A 23.删除列表框中索引为 3 的项，正确语句是（ ） A. List1.Remove 3 B. List1.RemoveItem 3 C. List1.Delete 3 D. List1.Clear 3 【答案】B 24.当用户点击列表框某一项时触发的事件是（ ） A. Click B. Change C. Select D. ItemClick 【答案】A 25.删除组合框第一项，正确语句是（ ） A. Combo1.RemoveItem 0 B. Combo1.Remove 0 C. Combo1.Delete 0 D. Combo1.Clear 0 【答案】A 二、填空题（本大题共10小题，每题2分，共20分） 1. 列表框 ListBox中项目的序号从_________开始，到_________结束。 【答案】0 Listcount-1 2.语句For j = 3 To 20 Step 3 使循环体执行了______次。 【答案】6 3.要使装入到列表框中的数据项能自动按字母顺序排序，应设置该控件的_________属性为__________。 【答案】sorted ture 4.在 For 循环中，若省略 Step，则默认步长为 ________。 【答案】1 5.在 Do Until…Loop 结构中，循环继续的条件是条件表达式为 ________。 【答案】False 6.若要删除列表框 List1 中所有被选中的项，通常采用 ________ 序遍历并 RemoveItem 的方法，避免索引错乱。 【答案】倒序 7.列表框的总项数由 ________ 属性返回。 【答案】ListCount 8.若列表框名为 List1，判断其是否为空，可检查 ________ 是否等于 0。 【答案】List1.ListCount 9.设置组合框为“下拉列表”（仅能选不能输入），应将 ________ 属性设为 2。 【答案】Style 10.获取组合框第 3 项内容，应使用 ________（写出完整表达式）。 【答案】Combo1.List(2) 三、程序填空题（本大题共2小题，每题15分，共30分） 1.下面程序功能是用“选择”法将数组a中的10个整数按升序排列。完成下列程序填空。 Option Base 1 Private Sub Form_Click() Dim a a = Array(678, 45, 324, 528, 439, 387, 87, 875, 273, 823) For I = 1 To 9 For j = _______ To 10 If _______ Then t = a(I): a(I) = a(j): a(j) = t End If Next j Next I For I = 1 To 10 Print a(I); Next I End Sub 【答案】 （1）I + 1 （2）a(I) > a(j) 2.下列程序的功能是：输入一个大于0的整数，判断该数是否是素数。 Private Sub Command2_Click() Dim x, i As Integer x = Val(InputBox("请输入一个整数（大于0）")) If x = 1 Then Print x; "不是素数" For i = 2 To x - 1 If ______（1）________ Then Print x; "不是素数" Exit Sub End If Next i If ___(2)_____ Then Print x; "是素数" End If End Sub 【答案】 (1) x Mod i = 0 (2)i = x 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $$