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

编写说明：内蒙古自治区对口招生《计算机类考纲百套卷》，依据《2019年内蒙古自治区高等职业院校对口招收中等职业学校毕业生计算机类专业课综合考试指导纲要》编写。本专辑涵盖四门课程，且每门课程均采用三阶递进式训练体系：基础层（具象化支架）拆解考点为微目标，紧扣考纲“掌握”“理解”要求编写考点训练卷；巩固层（关联性支架）强化知识交叉与场景关联，按考纲专题编专题训练卷；应用层（引导性支架）聚焦真题突破，结合知识模块与教材编写课程综合卷。 本试卷是第11卷，为考点训练卷，按《Visual Basic程序设计》范围和要求编写。具体内容为：For 循环，Do循环，列表框与组合框控件常用算法实例。 内蒙古对口招生《计算机类考纲百套卷》 第11卷 《Visual Basic程序设计》 循环结构 考点训练卷 考试时间60分钟 满分100分 班级 姓名 学号 成绩 一、单选题（本题共30道小题，每题2分，共60分） 1. 下列For循环语句的书写格式中，语法正确的是 A. For i=1 To 10; Next B. For i = 1 To 10 : Print i : Next i C. For i = 1 To 10 Next i D. For i From 1 To 10 Next 【答案】B 【解析】VB中For循环的语法：For 变量=初值 To 终值 [Step 步长]（循环体语句）Next [循环变量]。选项B使用了冒号分隔的多语句行写法，语法合法。选项A缺少循环变量名在Next后（虽可省略但不规范）；C缺少循环体；D用了错误的From关键字。 2. 执行以下程序后，输出结果是 Dim t As Single t = 1 For k = 1 To 10 t = t + 1 / k Next k Print Format(t, "0.00") A. 2.93 B. 3.93 C. 2.93 D. 1.00 【答案】B 3. 下列程序执行后，x的值为 x = 0 Do While x < 20 x = x * 2 + 1 Loop Print x A. 21 B. 43 C. 31 D. 死循环 【答案】C 4. 若列表框List1的Sorted属性为True，执行List1.AddItem "Apple"后再执行List1.AddItem "Banana"，两个项目的排列顺序是 A. Apple, Banana B. Banana, Apple C. 取决于添加顺序 D. 随机 【答案】A 【解析】Sorted=True时按字母升序排列。'Apple' < 'Banana'（因为'A' < 'B'），所以Apple排在前面。即使先添加Banana再添加Apple，最终顺序仍然是Apple在前。 5. 下面程序段的运行结果是 Dim m As Integer, n As Integer m = 1 n = 1 Do m = m * n n = n + 1 Loop While n <= 5 Print m A. 120 B. 24 C. 25 D. 6 【答案】A 【解析】Do...Loop While后置条件型。m=1×1=1,n=2(2≤5继续); m=1×2=2,n=3; m=2×3=6,n=4; m=6×4=24,n=5; m=24×5=120,n=6(6>5停止)。计算5!=120。注意这里n先自增再判断，所以实际计算了1×2×3×4×5=120。 6. 组合框中，当Style属性设置为1时，组合框的外观特点是 A. 显示一个文本框和一个下拉箭头 B. 始终显示列表部分，无下拉箭头 C. 只能选择不能输入文本 D. 与Style=0完全相同 【答案】B 【解析】Style=1（简单组合框）的特点是列表部分始终展开显示，占用较大的界面空间。用户可以看到所有选项，同时可以在文本框中输入。这种样式适合选项较少的情况。 7. 下列程序段的功能是 s = 0 For i = 1 To 100 Step 2 s = s + i Next i A. 计算1到100的所有整数之和 B. 计算1到100之间的偶数之和 C. 计算1到100之间的奇数之和 D. 计算1到100之间能被2整除的数之和 【答案】C 【解析】Step=2且初值为1，i取值1,3,5,...,99（均为奇数），所以计算的是1~100之间所有奇数的和。奇数和=1+3+5+...+99=2500（共50个奇数）。 8. 要从列表框中删除索引号为3的项目，正确的语句是 A. List1.RemoveItem 4 B. List1.RemoveItem 3 C. List1.Delete 3 D. List1.Clear 3 【答案】B 【解析】RemoveItem方法的参数是索引号（从0开始）。第4个项目的索引为3，所以使用List1.RemoveItem 3。注意索引从0开始是关键。 9. 以下程序的输出结果是 Dim a As Integer a = 10 Do Until a <= 0 a = a - 3 Print a; Loop A. 不输出 B. 7 4 1 C. 10 7 4 1 D. 7 4 1 -2 【答案】D 【解析】Do Until a<=0（直到a<=0停止，即a>0就执行）：a=10-3=7, 打印7; 7>0继续; a=7-3=4, 打印4; a=4-3=1, 打印1; a=1-3=-2, 打印-2; 此时a=-2≤0，停止。输出：7 4 1 -2。 10. 在VB中，For循环的循环变量类型最好是 A. String类型 B. Integer或Long类型 C. Variant类型 D. Boolean类型 【答案】B 【解析】循环变量应该使用整数类型（Integer/Long），因为循环的本质是对整数进行递增/递减运算。使用String或Boolean会导致隐式转换甚至运行时错误。 11. 列表框控件的List属性是一个 A. 字符串类型的普通变量 B. 控件对象 C. 整数值 D. 字符串数组 【答案】D 【解析】List属性是一个字符串数组，存储列表框中所有项目的文本内容。通过下标访问：List(0)是第1项，List(1)是第2项，依此类推。 12. 下列程序执行后，变量c的值是 c = 0 For i = 1 To 20 If i Mod 3 = 0 And i Mod 5 = 0 Then c = c + 1 Next i Print c A. 1 B. 0 C. 2 D. 3 【答案】A 【解析】同时被3和5整除意味着能被15整除。1~20之间只有15这一个数满足条件（LCM(3,5)=15，下一个是30超出范围）。所以c=1。 13. 在Do循环中，与Do While x > 0 ... Loop功能等价的写法是 A. Do Until x > 0 ... Loop B. Do Until x <= 0 ... Loop C. Do ... Loop While x > 0 D. Do ... Loop Until x <= 0 【答案】B 【解析】Do While x>0 表示"当x大于0时执行"，等价于Do Until x<=0 表示"直到x小于等于0时停止"（即在x>0期间一直执行）。两者条件互为否定。 14. 若组合框Combo1当前有8个选项且用户选中了第5个选项，那么Combo1.ListIndex的值是 A. 5 B. 4 C. 8 D. 7 【答案】B 【解析】索引从0开始计数。第5个选项的索引=5-1=4。ListIndex=4表示选中了第5项（List(4)）。 15. 下面程序的输出结果是 Dim s As String, i As Integer s = "" For i = Asc("A") To Asc("D") s = s & Chr(i) Next i Print s A. ABCD B. ABC C. ABDCABCD D. 编译错误 【答案】A 【解析】Asc("A")=65, Asc("D")=68。i从65到66→67→68，Chr(i)分别为'A','B','C','D'。s拼接得到"ABCD"。 16. 下列关于列表框和组合框的叙述中，正确的是 A. 列表框和组合框都不能接受用户键盘输入 B. 组合框可以接受键盘输入，列表框不行 C. 列表框可以接受键盘输入，组合框不行 D. 都可以接受键盘输入 【答案】B 【解析】组合框（特别是Style=0的下拉式组合框）带有文本编辑区，允许用户输入自定义文本。列表框只提供预设选项供用户点击选择，不支持键盘输入。 17. 以下程序段中，循环体执行的次数为 i = 10 Do While i > 5 i = i - 1 Loop A. 4 B. 5 C. 6 D. 无限次 【答案】B 【解析】i=10(10>5), i变9; 9>5, i变8; 8>5, i变7; 7>5, i变6; 6>5, i变5; 5>5?否(5不大于5)，退出。共执行5次循环体。 18. 要在程序运行时获取组合框中用户选择的文本内容，应使用属性。 A. ListIndex B. List C. Selected D. Text 【答案】D 【解析】Text属性返回组合框当前显示/选中的文本内容。ListIndex返回索引号，List是数组需要配合索引使用，Text是最直接的方式。 19. 执行下面程序，输出结果为 Dim p As Integer p = 1 For i = 3 To 1 Step -1 p = p * (i + 1) Next i Print p A. 6 B. 24 C. 4 D. 12 【答案】B 【解析】i=3: p=1*(3+1)=4; i=2: p=4*(2+1)=12; i=1: p=12*(1+1)=24。输出24。即计算4×3×2=24。 20. 列表框中Selected(i)属性的作用是 A. 设置或返回第i+1个项目是否被选中 B. 返回第i+1个项目的文本内容 C. 设置第i+1个项目的显示位置 D. 删除第i+1个项目 【答案】A 【解析】Selected是一个布尔数组属性，Selected(i)表示索引为i的项目是否处于选中状态（True/False）。仅在MultiSelect不为0时有意义。 21. 以下程序的输出结果是 Dim total As Double total = 0 For i = 1 To 2 For j = 1 To 3 total = total + i * j Next j Next i Print total A. 18 B. 21 C. 36 D. 6 【答案】A 【解析】双层循环求和。i=1时: j=1→total=1; j=2→total=3; j=3→total=6。i=2时: j=1→total=8; j=2→total=12; j=3→total=18。输出18。 22. 在Do...Loop While循环中，如果希望循环至少执行3次后才检查条件，应该 A. 使用Do While代替Do...Loop While B. 在循环体内设置计数器来控制 C. 无法做到，Do...Loop While每次都会检查 D. 在第一次循环前设置好条件 【答案】B 【解析】Do...Loop While保证至少执行一次，但如果需要强制执行多次后再判断，通常的做法是在循环体内使用计数器（如If count < 3 Then...Else Exit Do）来控制提前退出的时机。 23. 下列程序的功能是找出1~100中最大的能被7整除的数，空白处应填入 Dim maxNum As Integer maxNum = 0 For i = 100 To 1 Step -1 If i Mod 7 = 0 Then maxNum = i ______ End If Next i Print maxNum A. Continue B. Next i C. Exit Do D. Exit For 【答案】D 【解析】从大到小查找，找到第一个（即最大的）满足条件的数后，用Exit For立即退出循环，避免不必要的后续遍历。98是100以内最大能被7整除的数。 24. 组合框的AddItem方法在什么情况下可能不会生效？ A. Style属性为0时 B. Style属性为2时 C. Sorted属性为True时 D. 在Form_Load事件中且某些VB版本中 【答案】D 【解析】在某些版本的VB中，如果在Form_Load事件中对组合框调用AddItem可能会出现问题（因窗体尚未完全初始化）。解决方案是将代码放在Activate事件中或设置AutoRedraw属性。这是一个常见的VB陷阱。 25. 以下程序段的输出结果是 Dim i As Integer, result As Integer result = 0 For i = -2 To 2 result = result + Abs(i) Next i Print result A. 6 B. 5 C. 4 D. 0 【答案】A 【解析】i取值-2,-1,0,1,2。Abs(i)分别为2,1,0,1,2。result=2+1+0+1+2=6。即绝对值之和。 26. 在Do...Loop Until结构中，如果条件一开始就为True，则循环体执行次数为 A. 0次 B. 1次 C. 取决于循环体内的代码 D. 无限次 【答案】B 【解析】Do...Loop Until是后置条件型，无条件地先执行一次循环体，然后再判断条件。即使条件一开始就是True，也已经执行了一次循环体。这是它与前置条件型循环的根本区别。 27. 下面程序的功能是用穷举法找出所有两位数中的"水仙花数"（各位数字立方和等于本身）。输出结果的个数是 Dim count As Integer, a As Integer, b As Integer count = 0 For a = 1 To 9 For b = 0 To 9 If a^3 + b^3 = a * 10 + b Then count = count + 1 End If Next b Next a Print count A. 1 B. 2 C. 4 D. 0 【答案】D 28. 下列关于For循环和Do循环的比较，说法错误的是 A. For循环更适合循环次数确定的场合 B. Do循环更适合循环次数不确定的场合 C. 所有For循环都可以改写成Do循环 D. For循环一定比Do循环执行速度快 【答案】D 【解析】For循环和Do循环的执行速度差异取决于具体实现和编译优化，不能笼统地说谁更快。两者在功能上是等价的（可以互相转换），但在语义表达上各有侧重。 29. 执行以下代码后，List1中共有多少个项目？ For i = 1 To 5 List1.AddItem i * 2 Next i List1.RemoveItem 2 List1.AddItem 100 A. 5 B. 4 C. 6 D. 3 【答案】A 【解析】首先添加5项：2,4,6,8,10（此时ListCount=5）。RemoveItem 2删除索引2的项目（即6），剩下2,4,8,10（4项）。再AddItem 100添加到最后，共5项：2,4,8,10,100。 30. 以下程序实现的功能是 m = InputBox("请输入一个正整数:") f = 1 For i = 2 To m f = f * i Next i Print f A. 计算m的阶乘(m!) B. 计算1到m的和 C. 计算m的平方 D. 计算2的m次方 【答案】A 【解析】f初始化为1，然后f=f*i从i=2到m连乘，即f=1×2×3×...×m=m!（m的阶乘）。注意从i=2开始是因为1乘以任何数不变，可以略过。 二、填空题（本题共10道小题，每题2分，共20分） 31. For i = 10 To 1 Step -3 中，循环变量i依次取值为______。 【答案】10, 7, 4, 1（或10、7、4、1） 【解析】初值10，步长-3，递减。i=10→7→4→1→下一步将是-2<1，停止。共4次循环。 32. Do...Loop While循环与Do While...Loop循环的最大区别是：前者______执行一次循环体。 【答案】至少（或一定/必定/无论如何都） 【解析】后置条件型（Do...Loop While/Until）先执行循环体再做条件判断，保证了循环体至少执行一次。前置条件型可能在条件一开始就不满足时跳过整个循环。 33. 若列表框List1当前有n个列表项，则有效的ListIndex取值范围是______到______。 【答案】0; n-1（或0 ~ n-1） 【解析】索引从0开始，最后一个元素的索引为元素个数减1。未选中时ListIndex=-1，不属于有效索引范围。 34. 组合框的Text属性和List(______)属性在选中某项时可获取相同的文本内容。 【答案】ListIndex（或 Combo1.ListIndex） 【解析】当用户选中某项时，Text属性等同于List(ListIndex)。Text更简洁，List(ListIndex)更明确地通过索引访问。 35. 在VB中，For循环的循环次数可用公式计算：次数=______。 【答案】Int((终值 - 初值) / 步长) + 1 【解析】这是For循环次数的通用公式。注意：当(终值-初值)与步长的符号不一致（如正步长但终值<初值）时，循环次数为0。 36. 列表框的RemoveItem方法需要一个参数，该参数表示要删除的项目的______。 【答案】索引号（或Index/下标） 【解析】RemoveItem Index：Index是从0开始的整数，指定要移除的项目位置。删除后后面的项目索引自动前移。 37. Do While循环中，当条件表达式的值为______时继续执行循环体，值为______时退出循环。 【答案】True（或真）; False（或假） 【解析】"While"即"当...时候"，条件为真时执行。一旦条件变假就退出。这是前置条件型循环的基本工作方式。 38. 若要使列表框在程序运行时不允许用户进行任何选择操作，应将Enabled属性设为______。 【答案】False 【解析】Enabled=False使控件呈灰色禁用状态，用户无法对其进行交互操作（包括选择项目）。Visible=False则是隐藏控件。 39. 在For嵌套循环中，外层循环执行m次，内层循环执行n次，则内层循环体总共执行______次。 【答案】m × n（或m*n/m乘以n） 【解析】嵌套循环的总执行次数是各层循环次数的乘积。外层每执行1次，内层就要完整执行n次，外层执行m次，总计m×n次。 40. 在Do Until...Loop中，关键字Until的含义相当于对条件表达式取______运算。 【答案】Not（或非/反/逻辑非） 【解析】Do Until condition 等价于 Do While Not condition。Until即"直到条件成立"，等价于"当条件不成立时继续"。两者是同一逻辑的不同表达。 三、程序填空题（本题共2道小题，每题10分，共20分） 41.以下程序功能：输入一个正整数N，计算N的阶乘(N!)。请补充完整程序代码。 Private Sub Command1_Click() Dim N As Integer, i As Integer Dim fact As Long N = Val(InputBox("请输入正整数N：")) fact = [ ① ] For i = [ ② ] To N fact = [ ③ ] Next i Print N & "! = " & fact End Sub 【答案】1 【答案】2（或 1） 【答案】fact * i（或 fact * i） 42.以下程序功能：输入两个正整数，用辗转相除法（欧几里得算法）求它们的最大公约数(GCD)。请补充完整程序代码。 Private Sub Command1_Click() Dim m As Integer, n As Integer, r As Integer m = Val(InputBox("请输入第一个正整数：")) n = Val(InputBox("请输入第二个正整数：")) Do r = m [ ① ] n m = [ ② ] n = [ ③ ] Loop While [ ④ ] Print "最大公约数 = " & [ ⑤ ] End Sub 【答案】Mod 【答案】n 【答案】r（或 r） 【答案】r <> 0（或 r > 0 或 r != 0） 【答案】m 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $ 编写说明：内蒙古自治区对口招生《计算机类考纲百套卷》，依据《2019年内蒙古自治区高等职业院校对口招收中等职业学校毕业生计算机类专业课综合考试指导纲要》编写。本专辑涵盖四门课程，且每门课程均采用三阶递进式训练体系：基础层（具象化支架）拆解考点为微目标，紧扣考纲“掌握”“理解”要求编写考点训练卷；巩固层（关联性支架）强化知识交叉与场景关联，按考纲专题编专题训练卷；应用层（引导性支架）聚焦真题突破，结合知识模块与教材编写课程综合卷。 本试卷是第11卷，为考点训练卷，按《Visual Basic程序设计》范围和要求编写。具体内容为：For 循环，Do循环，列表框与组合框控件常用算法实例。 内蒙古对口招生《计算机类考纲百套卷》 第11卷 《Visual Basic程序设计》 循环结构 考点训练卷 考试时间60分钟 满分100分 班级 姓名 学号 成绩 一、单选题（本题共30道小题，每题2分，共60分） 1. 下列For循环语句的书写格式中，语法正确的是 A. For i=1 To 10; Next B. For i = 1 To 10 : Print i : Next i C. For i = 1 To 10 Next i D. For i From 1 To 10 Next 2. 执行以下程序后，输出结果是 Dim t As Single t = 1 For k = 1 To 10 t = t + 1 / k Next k Print Format(t, "0.00") A. 2.93 B. 3.93 C. 2.93 D. 1.00 3. 下列程序执行后，x的值为 x = 0 Do While x < 20 x = x * 2 + 1 Loop Print x A. 21 B. 43 C. 31 D. 死循环 4. 若列表框List1的Sorted属性为True，执行List1.AddItem "Apple"后再执行List1.AddItem "Banana"，两个项目的排列顺序是 A. Apple, Banana B. Banana, Apple C. 取决于添加顺序 D. 随机 5. 下面程序段的运行结果是 Dim m As Integer, n As Integer m = 1 n = 1 Do m = m * n n = n + 1 Loop While n <= 5 Print m A. 120 B. 24 C. 25 D. 6 6. 组合框中，当Style属性设置为1时，组合框的外观特点是 A. 显示一个文本框和一个下拉箭头 B. 始终显示列表部分，无下拉箭头 C. 只能选择不能输入文本 D. 与Style=0完全相同 7. 下列程序段的功能是 s = 0 For i = 1 To 100 Step 2 s = s + i Next i A. 计算1到100的所有整数之和 B. 计算1到100之间的偶数之和 C. 计算1到100之间的奇数之和 D. 计算1到100之间能被2整除的数之和 8. 要从列表框中删除索引号为3的项目，正确的语句是 A. List1.RemoveItem 4 B. List1.RemoveItem 3 C. List1.Delete 3 D. List1.Clear 3 9. 以下程序的输出结果是 Dim a As Integer a = 10 Do Until a <= 0 a = a - 3 Print a; Loop A. 不输出 B. 7 4 1 C. 10 7 4 1 D. 7 4 1 -2 10. 在VB中，For循环的循环变量类型最好是 A. String类型 B. Integer或Long类型 C. Variant类型 D. Boolean类型 11. 列表框控件的List属性是一个 A. 字符串类型的普通变量 B. 控件对象 C. 整数值 D. 字符串数组 12. 下列程序执行后，变量c的值是 c = 0 For i = 1 To 20 If i Mod 3 = 0 And i Mod 5 = 0 Then c = c + 1 Next i Print c A. 1 B. 0 C. 2 D. 3 13. 在Do循环中，与Do While x > 0 ... Loop功能等价的写法是 A. Do Until x > 0 ... Loop B. Do Until x <= 0 ... Loop C. Do ... Loop While x > 0 D. Do ... Loop Until x <= 0 14. 若组合框Combo1当前有8个选项且用户选中了第5个选项，那么Combo1.ListIndex的值是 A. 5 B. 4 C. 8 D. 7 15. 下面程序的输出结果是 Dim s As String, i As Integer s = "" For i = Asc("A") To Asc("D") s = s & Chr(i) Next i Print s A. ABCD B. ABC C. ABDCABCD D. 编译错误 16. 下列关于列表框和组合框的叙述中，正确的是 A. 列表框和组合框都不能接受用户键盘输入 B. 组合框可以接受键盘输入，列表框不行 C. 列表框可以接受键盘输入，组合框不行 D. 都可以接受键盘输入 17. 以下程序段中，循环体执行的次数为 i = 10 Do While i > 5 i = i - 1 Loop A. 4 B. 5 C. 6 D. 无限次 18. 要在程序运行时获取组合框中用户选择的文本内容，应使用属性。 A. ListIndex B. List C. Selected D. Text 19. 执行下面程序，输出结果为 Dim p As Integer p = 1 For i = 3 To 1 Step -1 p = p * (i + 1) Next i Print p A. 6 B. 24 C. 4 D. 12 20. 列表框中Selected(i)属性的作用是 A. 设置或返回第i+1个项目是否被选中 B. 返回第i+1个项目的文本内容 C. 设置第i+1个项目的显示位置 D. 删除第i+1个项目 21. 以下程序的输出结果是 Dim total As Double total = 0 For i = 1 To 2 For j = 1 To 3 total = total + i * j Next j Next i Print total A. 18 B. 21 C. 36 D. 6 22. 在Do...Loop While循环中，如果希望循环至少执行3次后才检查条件，应该 A. 使用Do While代替Do...Loop While B. 在循环体内设置计数器来控制 C. 无法做到，Do...Loop While每次都会检查 D. 在第一次循环前设置好条件 23. 下列程序的功能是找出1~100中最大的能被7整除的数，空白处应填入 Dim maxNum As Integer maxNum = 0 For i = 100 To 1 Step -1 If i Mod 7 = 0 Then maxNum = i ______ End If Next i Print maxNum A. Continue B. Next i C. Exit Do D. Exit For 24. 组合框的AddItem方法在什么情况下可能不会生效？ A. Style属性为0时 B. Style属性为2时 C. Sorted属性为True时 D. 在Form_Load事件中且某些VB版本中 25. 以下程序段的输出结果是 Dim i As Integer, result As Integer result = 0 For i = -2 To 2 result = result + Abs(i) Next i Print result A. 6 B. 5 C. 4 D. 0 26. 在Do...Loop Until结构中，如果条件一开始就为True，则循环体执行次数为 A. 0次 B. 1次 C. 取决于循环体内的代码 D. 无限次 27. 下面程序的功能是用穷举法找出所有两位数中的"水仙花数"（各位数字立方和等于本身）。输出结果的个数是 Dim count As Integer, a As Integer, b As Integer count = 0 For a = 1 To 9 For b = 0 To 9 If a^3 + b^3 = a * 10 + b Then count = count + 1 End If Next b Next a Print count A. 1 B. 2 C. 4 D. 0 28. 下列关于For循环和Do循环的比较，说法错误的是 A. For循环更适合循环次数确定的场合 B. Do循环更适合循环次数不确定的场合 C. 所有For循环都可以改写成Do循环 D. For循环一定比Do循环执行速度快 29. 执行以下代码后，List1中共有多少个项目？ For i = 1 To 5 List1.AddItem i * 2 Next i List1.RemoveItem 2 List1.AddItem 100 A. 5 B. 4 C. 6 D. 3 30. 以下程序实现的功能是 m = InputBox("请输入一个正整数:") f = 1 For i = 2 To m f = f * i Next i Print f A. 计算m的阶乘(m!) B. 计算1到m的和 C. 计算m的平方 D. 计算2的m次方 二、填空题（本题共10道小题，每题2分，共20分） 31. For i = 10 To 1 Step -3 中，循环变量i依次取值为______。 32. Do...Loop While循环与Do While...Loop循环的最大区别是：前者______执行一次循环体。 33. 若列表框List1当前有n个列表项，则有效的ListIndex取值范围是______到______。 34. 组合框的Text属性和List(______)属性在选中某项时可获取相同的文本内容。 35. 在VB中，For循环的循环次数可用公式计算：次数=______。 36. 列表框的RemoveItem方法需要一个参数，该参数表示要删除的项目的______。 37. Do While循环中，当条件表达式的值为______时继续执行循环体，值为______时退出循环。 38. 若要使列表框在程序运行时不允许用户进行任何选择操作，应将Enabled属性设为______。 39. 在For嵌套循环中，外层循环执行m次，内层循环执行n次，则内层循环体总共执行______次。 40. 在Do Until...Loop中，关键字Until的含义相当于对条件表达式取______运算。 三、程序填空题（本题共2道小题，每题10分，共20分） 41.以下程序功能：输入一个正整数N，计算N的阶乘(N!)。请补充完整程序代码。 Private Sub Command1_Click() Dim N As Integer, i As Integer Dim fact As Long N = Val(InputBox("请输入正整数N：")) fact = [ ① ] For i = [ ② ] To N fact = [ ③ ] Next i Print N & "! = " & fact End Sub 42.以下程序功能：输入两个正整数，用辗转相除法（欧几里得算法）求它们的最大公约数(GCD)。请补充完整程序代码。 Private Sub Command1_Click() Dim m As Integer, n As Integer, r As Integer m = Val(InputBox("请输入第一个正整数：")) n = Val(InputBox("请输入第二个正整数：")) Do r = m [ ① ] n m = [ ② ] n = [ ③ ] Loop While [ ④ ] Print "最大公约数 = " & [ ⑤ ] End Sub 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $