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

编写说明：2026版内蒙古对口招生《计算机类考纲百套卷》依据《内蒙古自治区高等职业院校对口招收中等职业学校毕业生计算机类专业课综合考试指导纲要》编写。本套试卷共100份，分为三个部分，第一部分是根据考试大纲的各考点范围与要求，编写的70份知识点训练卷，第二部分是针对每门课程的重点内容，编写的20份常考题训练卷，第三个部分是参考近几年内蒙古考试真题，编写了10份专业综合训练卷。 本试卷是2026版内蒙古对口招生《计算机类考纲百套卷》的第11卷，是知识点训练卷，按考纲中的《Visual Basic程序设计》的第6章 循环结构程序设计的范围与要求编写。具体内容如下： For 循环 Do循环 列表框与组合框控件 常用算法实例 2026版内蒙古对口招生《计算机类考纲百套卷》 第11卷 《Visual Basic 程序设计》 循环结构程序设计（2） 知识点训练卷 考试时间60分钟 满分100分 班级 姓名 学号 成绩 一、单项选择题（本大题共25小题，每题2分，共50分） 1. 引用列表框（List1）最后一个数据项应使用（ ）。  A. List1.List(List1.ListCount) B.List1.List(List1.ListCount-1)  C.List1.List(ListCount) D.List1.List(ListCount-l) 2. 下列程序运行后，输出的结果为（ ）。 B=1 Do while (b<40) b=b*(b+1) Loop Print b A.42 B. 39 C.6 D.1 3.运行下面程序后，在窗体中显示的是（ ）。   Private Sub Form_Click()       a$="*": b$="$"      For k=1  To 3             x$=String$(Len(a$)+k,b$)         Print x$;      Next k       Print   End Sub A.*** ** ****     B.*$*$*$　 C.1*$2*$3*$ 　    D.$$$$$$$$$ 4. 将数据项“China”添加到列表框（List）中成为第一项应使用（ ）语句。 A.List1.AddItem”China”，0    B.List1.AddItem”China”，1 C.List1.AddItem 0，”China”    D.List1.AddItem 1，”China” 5. 以下程序的输出结果是（ ）。   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 6. 执行下面程序段后，变量x的值为（ ）   x=5     For I=1 To 20 step 2          x=x+I\5   Next I A.21    B.22     C.23    D.24 7.如果列表框（List1）中只有一个项目被用户选定，则执行Debug．Print  List1Selected（List1.ListIndex）语句的结果是（ ）。 A.在Debug窗口输出被选定的项目的索引值 B.在 Debug窗口输出True C.在窗体上输出被选定的项目的索引值 D.在窗体上输出True 8. 下面程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ ）。   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 9. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： 　　Private Sub Command1_Click() 　　For n=1 To 20 　　If n Mod 3<>0 then m=m+n\3 　　Next n 　　print n 　　End sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是（ ）。 A.15　B.18　　C.21　　D.24 10. 下面语句中，可以将列表框List1中的当前选定的列表项的值替换成"ABC"的是（ ）。 A．List1.AddItem "ABC",List1.ListIndex　　 B．List1.Text="ABC" C．List1.List(List1.ListIndex)= "ABC"　　　 D．前三项均可 11.窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： 　　Private Sub Command1_Click() 　　c=1234 　　c1=Trim(Str(C）) 　　For i=1 To 4 　　Print ____ 　　Next 　　End Sub 　　程序运行后，单击命令按钮，要求在窗体上显示如下内容： 　　1 　　12 　　123 　　1234 则在下划线处应填入的内容为（ ）。 A.Right(c1,i)　　B.Left(c1,i)　　C.Mid(c1,i,1)　　D.Mid(c1,i,i) 12. 若要得到列表框中项目的数目，可以访问（ ）属性。 A.List B.Listlndex C.ListCount D.Text 13. 删除列表框中的某一种项目，需要使用（ ）措施。 A. Clearb B.ReMove C.Move D.ReMoveltem 14. 若要获得滚动条的目前位置，可以通过访问（ ）属性实现。 A.LargeChange B.Value C.MaxC D.Min 15. For i = 1 To 10 Step 2 执行完后 i 的最终值是（ ） A. 10 B. 11 C. 9 D. 12 16.下列关于 Do Loop 的说法正确的是（ ） A. 只能后测条件 B. 必须指定循环变量 C. 可用 Exit Do 提前退出 D. 不能嵌套其他循环 17.在 For 循环中，Step 值为 0 会（ ） A. 循环一次 B. 无限循环 C. 产生语法错误 D. 自动改为 1 18. 下列循环语句中，能与 Exit Do 配对的是（ ） A. For … Next B. Do … Loop C. While … Wend D. For Each … Next 19. 在 Do … Loop Until 条件中，条件判断发生在（ ） A. 循环顶部 B. 循环底部 C. 不判断 D. 随机位置 20. 下列代码段执行后，变量 s 的值为（ ） Dim i%, s% s = 0 For i = 1 To 5 s = s + i Next i A. 10 B. 15 C. 20 D. 25 21.向列表框 List1 添加一条字符串，应使用的方法是（ ） A. List1.AddItem "ABC" B. List1.Append "ABC"  C. List1.Insert "ABC" D. List1.Add "ABC" 22.列表框的（ ）属性返回总项数。 A. Count B. ListCount C. Items.Count D. Length 23.若 List1.ListIndex = -1，表示（ ） A. 选中第一项 B. 未选中任何项 C. 选中最后一项 D. 列表为空 24.若 List1.Text 返回空串，可能原因是（ ） A. 未选中任何项 B. 列表为空 C. 列表框不可见 D. 以上都可能 25.向组合框 Combo1 添加一项，应使用的方法为（ ） A. AddItem B. Append C. Insert D. Add 二、填空题（本大题共10小题，每题2分，共20分） 1. 提前结束整个 For 循环，应使用 ________。 2.若要在循环顶部先判断条件，再决定是否进入循环，应使用 ________ 或 ________。 3.若循环条件永真且未使用 Exit Do，将导致 ________。 4.向列表框 List1 添加一条字符串，应使用的方法是 ________。 5.列表框（ListBox）用于列出可供选择的项目的列表，用户可以选择一个或多个项目。它具有几个非常重要的数组属性，其中____属性存放了列表框中所有项目的值。 6.控件________组合了文本框和列表框的功能，是VB中一种功能非常强大的选择类控件。 7.清空列表框所有内容，应使用的方法是 ________。 8.若 List1.ListIndex = -1，表示 ________。 9.设置列表框支持多选，需把 ________ 属性设为 1 或 2。 10.将新项目插入到最前面，AddItem 的第二个参数应写 ________。 三、程序填空题（本大题共2小题，每题15分，共30分） 1.以下程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。 Option Base 1 Private Sub Command1_Click() Dim arr1, Max as Integer arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43) _（1）_____= arr1(1) For I = 1 To 8 If arr1(I) > Max Then ____(2)_____ Next I Print "最大值是: "; Max End Sub 2.计算： ,要求保留4位小数位数 Private Sub Form_click() Dim f As Single, i As Integer, sign As Integer sign = -1 ___（1）______ For i = 2 To 19 _________(2)______________ sign = -sign Next i Print "f="; Format(f, "0.0000") End Sub 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $$ 编写说明：2026版内蒙古对口招生《计算机类考纲百套卷》依据《内蒙古自治区高等职业院校对口招收中等职业学校毕业生计算机类专业课综合考试指导纲要》编写。本套试卷共100份，分为三个部分，第一部分是根据考试大纲的各考点范围与要求，编写的70份知识点训练卷，第二部分是针对每门课程的重点内容，编写的20份常考题训练卷，第三个部分是参考近几年内蒙古考试真题，编写了10份专业综合训练卷。 本试卷是2026版内蒙古对口招生《计算机类考纲百套卷》的第11卷，是知识点训练卷，按考纲中的《Visual Basic程序设计》的第6章 循环结构程序设计的范围与要求编写。具体内容如下： For 循环 Do循环 列表框与组合框控件 常用算法实例 2026版内蒙古对口招生《计算机类考纲百套卷》 第11卷 《Visual Basic 程序设计》 循环结构程序设计（2） 知识点训练卷 考试时间60分钟 满分100分 班级 姓名 学号 成绩 一、单项选择题（本大题共25小题，每题2分，共50分） 1. 引用列表框（List1）最后一个数据项应使用（ ）。  A. List1.List(List1.ListCount) B.List1.List(List1.ListCount-1)  C.List1.List(ListCount) D.List1.List(ListCount-l) 【答案】B 2. 下列程序运行后，输出的结果为（ ）。 B=1 Do while (b<40) b=b*(b+1) Loop Print b A.42 B. 39 C.6 D.1 【答案】A 3.运行下面程序后，在窗体中显示的是（ ）。   Private Sub Form_Click()       a$="*": b$="$"      For k=1  To 3             x$=String$(Len(a$)+k,b$)         Print x$;      Next k       Print   End Sub A.*** ** ****     B.*$*$*$　 C.1*$2*$3*$ 　    D.$$$$$$$$$ 【答案】D 4. 将数据项“China”添加到列表框（List）中成为第一项应使用（ ）语句。 A.List1.AddItem”China”，0    B.List1.AddItem”China”，1 C.List1.AddItem 0，”China”    D.List1.AddItem 1，”China” 【答案】A 5. 以下程序的输出结果是（ ）。   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 【答案】A 6. 执行下面程序段后，变量x的值为（ ）   x=5     For I=1 To 20 step 2          x=x+I\5   Next I   A.21    B.22     C.23    D.24 【答案】A 7.如果列表框（List1）中只有一个项目被用户选定，则执行Debug．Print  List1Selected（List1.ListIndex）语句的结果是（ ）。 A.在Debug窗口输出被选定的项目的索引值 B.在 Debug窗口输出True C.在窗体上输出被选定的项目的索引值 D.在窗体上输出True 【答案】B 8. 下面程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ ）。   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 9. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： 　　Private Sub Command1_Click() 　　For n=1 To 20 　　If n Mod 3<>0 then m=m+n\3 　　Next n 　　print n 　　End sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是（ ）。 A.15　B.18　　C.21　　D.24 【答案】C 10. 下面语句中，可以将列表框List1中的当前选定的列表项的值替换成"ABC"的是（ ）。 A．List1.AddItem "ABC",List1.ListIndex　　 B．List1.Text="ABC" C．List1.List(List1.ListIndex)= "ABC"　　　 D．前三项均可 【答案】C 11.窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： 　　Private Sub Command1_Click() 　　c=1234 　　c1=Trim(Str(C）) 　　For i=1 To 4 　　Print ____ 　　Next 　　End Sub 　　程序运行后，单击命令按钮，要求在窗体上显示如下内容： 　　1 　　12 　　123 　　1234 则在下划线处应填入的内容为（ ）。 A.Right(c1,i)　　B.Left(c1,i)　　C.Mid(c1,i,1)　　D.Mid(c1,i,i) 【答案】B 12. 若要得到列表框中项目的数目，可以访问（ ）属性。 A.List B.Listlndex C.ListCount D.Text 【答案】C 13. 删除列表框中的某一种项目，需要使用（ ）措施。 A. Clearb B.ReMove C.Move D.ReMoveltem 【答案】D 14. 若要获得滚动条的目前位置，可以通过访问（ ）属性实现。 A.LargeChange B.Value C.MaxC D.Min 【答案】B 15. For i = 1 To 10 Step 2 执行完后 i 的最终值是（ ） A. 10 B. 11 C. 9 D. 12 【答案】B 16.下列关于 Do Loop 的说法正确的是（ ） A. 只能后测条件 B. 必须指定循环变量 C. 可用 Exit Do 提前退出 D. 不能嵌套其他循环 【答案】C 17.在 For 循环中，Step 值为 0 会（ ） A. 循环一次 B. 无限循环 C. 产生语法错误 D. 自动改为 1 【答案】B 18. 下列循环语句中，能与 Exit Do 配对的是（ ） A. For … Next B. Do … Loop C. While … Wend D. For Each … Next 【答案】B 19. 在 Do … Loop Until 条件中，条件判断发生在（ ） A. 循环顶部 B. 循环底部 C. 不判断 D. 随机位置 【答案】B 20. 下列代码段执行后，变量 s 的值为（ ） Dim i%, s% s = 0 For i = 1 To 5 s = s + i Next i A. 10 B. 15 C. 20 D. 25 【答案】B 21.向列表框 List1 添加一条字符串，应使用的方法是（ ） A. List1.AddItem "ABC" B. List1.Append "ABC"  C. List1.Insert "ABC" D. List1.Add "ABC" 【答案】A 22.列表框的（ ）属性返回总项数。 A. Count B. ListCount C. Items.Count D. Length 【答案】B 23.若 List1.ListIndex = -1，表示（ ） A. 选中第一项 B. 未选中任何项 C. 选中最后一项 D. 列表为空 【答案】B 24.若 List1.Text 返回空串，可能原因是（ ） A. 未选中任何项 B. 列表为空 C. 列表框不可见 D. 以上都可能 【答案】D 25.向组合框 Combo1 添加一项，应使用的方法为（ ） A. AddItem B. Append C. Insert D. Add 【答案】A 二、填空题（本大题共10小题，每题2分，共20分） 1. 提前结束整个 For 循环，应使用 ________。 【答案】Exit For 2.若要在循环顶部先判断条件，再决定是否进入循环，应使用 ________ 或 ________。 【答案】Do While…Loop For…Next 3.若循环条件永真且未使用 Exit Do，将导致 ________。 【答案】死循环 4.向列表框 List1 添加一条字符串，应使用的方法是 ________。 【答案】Additem 5.列表框（ListBox）用于列出可供选择的项目的列表，用户可以选择一个或多个项目。它具有几个非常重要的数组属性，其中____属性存放了列表框中所有项目的值。 【答案】list 6.控件________组合了文本框和列表框的功能，是VB中一种功能非常强大的选择类控件。 【答案】组合框 7.清空列表框所有内容，应使用的方法是 ________。 【答案】Clear 8.若 List1.ListIndex = -1，表示 ________。 【答案】未选中任何项 9.设置列表框支持多选，需把 ________ 属性设为 1 或 2。 【答案】MultiSelect 10.将新项目插入到最前面，AddItem 的第二个参数应写 ________。 【答案】0 三、程序填空题（本大题共2小题，每题15分，共30分） 1.以下程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。 Option Base 1 Private Sub Command1_Click() Dim arr1, Max as Integer arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43) _（1）_____= arr1(1) For I = 1 To 8 If arr1(I) > Max Then ____(2)_____ Next I Print "最大值是: "; Max End Sub 【答案】 （1） Max （2） Max=arr1(I) 2.计算： ,要求保留4位小数位数 Private Sub Form_click() Dim f As Single, i As Integer, sign As Integer sign = -1 ___（1）______ For i = 2 To 19 _________(2)______________ sign = -sign Next i Print "f="; Format(f, "0.0000") End Sub 【答案】 (1)f = 1 (2)f = f + sign / (i * (i + 1)) 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $$