第14卷 数组《Visual Basic程序设计》内蒙古计算机类 考纲百套卷

编写说明：内蒙古自治区对口招生《计算机类考纲百套卷》，依据《2019年内蒙古自治区高等职业院校对口招收中等职业学校毕业生计算机类专业课综合考试指导纲要》编写。本专辑涵盖四门课程，且每门课程均采用三阶递进式训练体系：基础层（具象化支架）拆解考点为微目标，紧扣考纲“掌握”“理解”要求编写考点训练卷；巩固层（关联性支架）强化知识交叉与场景关联，按考纲专题编专题训练卷；应用层（引导性支架）聚焦真题突破，结合知识模块与教材编写课程综合卷。 本试卷是第14卷，为考点训练卷，按《Visual Basic程序设计》范围和要求编写。具体内容为：数组基础知识，静态数组，动态数组，控件数组，常用算法实例。 内蒙古对口招生《计算机类考纲百套卷》 第14卷 《Visual Basic程序设计》 数组 考点训练卷 考试时间60分钟 满分100分 班级 姓名 学号 成绩 一、单选题（本题共30道小题，每题2分，共60分） 1.在 Visual Basic 6.0 中，数组可以存储______个数据。 A. 仅一个 B. 两个 C. 有限多个 D. 无限个 2.Dim a(1 To 10) As Integer 声明的数组共包含多少个元素？ A. 10 B. 9 C. 11 D. 12 3.在声明数组 Dim a(n) As Integer 中，n 表示数组的 A. 下标上界 B. 元素个数 C. 下标下界 D. 维数 4.Option Base 语句必须放在模块的 A. 通用声明部分 B. 任意过程内部 C. Form_Load 事件中 D. 文件末尾 5.Dim a(5) As String 声明后，各元素的默认初值是 A. 0 B. Nothing C. Null D. 空字符串 6.下列关于静态数组的说法，正确的是 A. 声明时必须指定大小 B. 运行时可以改变大小 C. 声明时使用空括号 D. 不能用 Erase 清除 7.动态数组与静态数组的主要区别是 A. 数据类型不同 B. 动态数组不能赋值 C. 静态数组没有下标 D. 动态数组大小可在运行时改变 8.执行 ReDim a(10) 后，再执行 ReDim a(20)，数组 a 中的原有数据 A. 全部丢失 B. 全部保留 C. 部分保留 D. 报错 9.控件数组中第一个元素的 Index 属性值通常为 A. -1 B. 1 C. 0 D. 2 10.下列不能创建控件数组的方法是 A. 复制控件后粘贴 B. 给控件的 Index 属性赋值 0 C. 在代码中使用 Load 语句 D. 修改控件的 Caption 属性 11.数组 Dim a(3, 4) As Integer 的第二维下标上界是 A. 3 B. 12 C. 7 D. 4 12.使用 To 关键字声明数组时，下标下界的取值范围是 A. 只能为 0 B. 只能为正数 C. 可为负数 D. 只能为 1 13.要遍历数组 a 的所有元素且不关心下标，最适合使用的循环结构是 A. For...Next B. Do...Loop C. For Each...Next D. While...Wend 14.下列程序段运行后，变量 m 的值是 Dim a(1 To 5) As Integer, i As Integer, m As Integer For i = 1 To 5 a(i) = i * 2 Next i m = a(1) For i = 2 To 5 If a(i) > m Then m = a(i) Next i A. 2 B. 6 C. 8 D. 10 15.对已分配空间的动态数组，Erase 语句的作用是 A. 释放数组占用的内存空间 B. 清除元素值但保留空间 C. 改变数组大小 D. 改变数组维数 16.ReDim 语句中可以改变的属性不包括 A. 数组大小 B. 最后一维上界 C. 数组数据类型 D. 数组维数 17.在代码中动态加载控件数组新元素使用的语句是 A. Add B. Create C. Load D. New 18.在数组中删除指定位置元素时，需要将后续元素 A. 保持不变 B. 全部删除 C. 整体后移一位 D. 整体前移一位 19.若已使用 Option Base 1，Dim a(3, 4) As Integer 共有多少个元素？ A. 12 B. 15 C. 16 D. 20 20.下列程序段运行后，a(3) 的值是 Dim a(1 To 5) As Integer, i As Integer For i = 1 To 5 a(i) = i * i Next i A. 3 B. 6 C. 9 D. 12 21.遍历数组 a(1 To 10) 中下标为偶数的元素，循环语句应写为 For i = 2 To 10 Step______。 A. 1 B. 2 C. 3 D. 5 22.下列程序段运行后，数组 a 的上界是 Dim a() As Integer, n As Integer n = 5 ReDim a(n) Print UBound(a) A. 4 B. 5 C. 6 D. 0 23.控件数组 Command1 有 3 个元素，Index 分别为 0、1、2。单击第 2 个按钮时，事件过程中的 Index 值为 A. 0 B. 1 C. 2 D. 3 24.在数组指定位置插入一个新元素时，插入位置及之后的元素应 A. 前移一位 B. 后移一位 C. 保持不变 D. 全部删除 25.下列程序段运行后，Print 输出的值是 Dim a As Variant, i As Integer, s As Integer a = Array(5, 3, 8, 1, 9) s = 0 For i = 0 To 4 If a(i) Mod 2 = 0 Then s = s + a(i) Next i Print s A. 8 B. 11 C. 26 D. 0 26.对 5 个元素进行选择排序，共需比较的轮数为 A. 3 B. 4 C. 5 D. 6 27.下列程序段运行后，变量 c 的值是 Dim a As Variant, i As Integer, c As Integer a = Array(3, 7, 2, 9, 4, 6) c = 0 For i = 0 To 5 If a(i) > 5 Then c = c + 1 Next i A. 2 B. 3 C. 4 D. 5 28.下列程序段运行后，a(1) 的值是 Dim a As Variant, i As Integer, j As Integer, t As Integer a = Array(5, 2, 8, 1, 9) For i = 0 To 3 For j = 0 To 3 - i If a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next j Next i A. 1 B. 2 C. 5 D. 9 29.下列程序段运行后，变量 sum 的值是 Dim a() As Integer, i As Integer, sum As Integer ReDim a(1 To 4) For i = 1 To 4 a(i) = i * 10 Next i ReDim Preserve a(1 To 6) a(5) = 50: a(6) = 60 sum = 0 For i = 1 To 6 sum = sum + a(i) Next i A. 100 B. 150 C. 200 D. 210 30.使用 Array 函数给 Variant 变量赋值时，以下说法正确的是 A. Array 函数可以创建任意类型的数组 B. Array 函数返回一个 Variant 类型的数组 C. Array 函数只能创建一维数组 D. Array 函数创建的数组下标从 1 开始 二、填空题（本题共10道小题，每题2分，共20分） 1.数组名后圆括号中的数字称为______，用于访问特定的数组元素。 2.在 Visual Basic 6.0 中，使用______语句可以清除静态数组的元素值。 3.使用 Array 函数创建的数组，其元素类型为______型。 4.控件数组中各元素具有相同的______属性。 5.使用 ReDim 语句时，若要保留原数组数据，应加上关键字______。 6.动态数组在声明时不指定下标大小，使用空的______来表示。 7.卸载运行时动态添加的控件数组元素，应使用______语句。 8.在数组中查找指定值是否存在的算法中，从第一个元素逐个比较的方法称为______查找。 9.对 n 个元素进行选择排序，总共的比较次数为______次。 10.在有序数组中采用二分查找，每次比较后将搜索范围______。 三、程序填空题（本题共2道小题，每题10分，共20分） 1.以下程序的功能是：定义并初始化一个包含 8 个整数的数组，找出其中的最大值和最小值并输出。请补充完善程序。 Private Sub Command1_Click() Dim a As Variant Dim i As Integer, maxVal As Integer, minVal As Integer a = Array(23, 67, 12, 89, 45, 6, 78, 34) maxVal = a(0) minVal = [1]______ For i = 1 To 7 If a(i) > [2]______ Then maxVal = a(i) If a(i) < minVal Then [3]______ Next i Print "最大值："; maxVal Print "最小值："; minVal End Sub 2.以下程序的功能是：对数组 a 中 6 个整数进行升序选择排序并输出结果。请补充完善程序。 Private Sub Command1_Click() Dim a As Variant Dim i As Integer, j As Integer, k As Integer, t As Integer a = Array(45, 12, 78, 3, 56, 21) For i = 0 To 4 k = [1]______ For j = i + 1 To 5 If a(j) < [2]______ Then k = j Next j If k <> i Then t = a(i) a(i) = [3]______ a(k) = t End If Next i For i = 0 To 5 Print a(i); Next i End Sub 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $ 编写说明：内蒙古自治区对口招生《计算机类考纲百套卷》，依据《2019年内蒙古自治区高等职业院校对口招收中等职业学校毕业生计算机类专业课综合考试指导纲要》编写。本专辑涵盖四门课程，且每门课程均采用三阶递进式训练体系：基础层（具象化支架）拆解考点为微目标，紧扣考纲“掌握”“理解”要求编写考点训练卷；巩固层（关联性支架）强化知识交叉与场景关联，按考纲专题编专题训练卷；应用层（引导性支架）聚焦真题突破，结合知识模块与教材编写课程综合卷。 本试卷是第14卷，为考点训练卷，按《Visual Basic程序设计》范围和要求编写。具体内容为：数组基础知识，静态数组，动态数组，控件数组，常用算法实例。 内蒙古对口招生《计算机类考纲百套卷》 第14卷 《Visual Basic程序设计》 数组 考点训练卷 考试时间60分钟 满分100分 班级 姓名 学号 成绩 一、单选题（本题共30道小题，每题2分，共60分） 1.在 Visual Basic 6.0 中，数组可以存储______个数据。 A. 仅一个 B. 两个 C. 有限多个 D. 无限个 【答案】C 【解析】数组是有限个相同类型数据的集合，通过下标访问每个元素。 2.Dim a(1 To 10) As Integer 声明的数组共包含多少个元素？ A. 10 B. 9 C. 11 D. 12 【答案】A 【解析】使用 To 显式指定下标范围 1 到 10，共 10 个元素。 3.在声明数组 Dim a(n) As Integer 中，n 表示数组的 A. 下标上界 B. 元素个数 C. 下标下界 D. 维数 【答案】A 【解析】括号中的 n 表示下标上界，元素个数为 n+1（默认下界为 0 时）。 4.Option Base 语句必须放在模块的 A. 通用声明部分 B. 任意过程内部 C. Form_Load 事件中 D. 文件末尾 【答案】A 【解析】Option Base 语句必须放在模块顶部的通用声明部分，在所有过程之前。 5.Dim a(5) As String 声明后，各元素的默认初值是 A. 0 B. Nothing C. Null D. 空字符串 【答案】D 【解析】字符串型数组元素默认初值为空字符串 ""。 6.下列关于静态数组的说法，正确的是 A. 声明时必须指定大小 B. 运行时可以改变大小 C. 声明时使用空括号 D. 不能用 Erase 清除 【答案】A 【解析】静态数组在声明时必须指定大小，运行期间大小固定不可改变。 7.动态数组与静态数组的主要区别是 A. 数据类型不同 B. 动态数组不能赋值 C. 静态数组没有下标 D. 动态数组大小可在运行时改变 【答案】D 【解析】动态数组可在运行时通过 ReDim 改变大小，静态数组大小固定。 8.执行 ReDim a(10) 后，再执行 ReDim a(20)，数组 a 中的原有数据 A. 全部丢失 B. 全部保留 C. 部分保留 D. 报错 【答案】A 【解析】不带 Preserve 的 ReDim 会清除数组原有数据。 9.控件数组中第一个元素的 Index 属性值通常为 A. -1 B. 1 C. 0 D. 2 【答案】C 【解析】控件数组中 Index 从 0 开始，依次递增。 10.下列不能创建控件数组的方法是 A. 复制控件后粘贴 B. 给控件的 Index 属性赋值 0 C. 在代码中使用 Load 语句 D. 修改控件的 Caption 属性 【答案】D 【解析】Caption 属性仅影响显示文本，与控件数组的创建无关。 11.数组 Dim a(3, 4) As Integer 的第二维下标上界是 A. 3 B. 12 C. 7 D. 4 【答案】D 【解析】第一维上界为 3，第二维上界为 4。 12.使用 To 关键字声明数组时，下标下界的取值范围是 A. 只能为 0 B. 只能为正数 C. 可为负数 D. 只能为 1 【答案】C 【解析】使用 To 可指定任意整数作为下界，包括负数，如 a(-3 To 3)。 13.要遍历数组 a 的所有元素且不关心下标，最适合使用的循环结构是 A. For...Next B. Do...Loop C. For Each...Next D. While...Wend 【答案】C 【解析】For Each...Next 自动遍历数组或集合的每个元素，无需关心下标。 14.下列程序段运行后，变量 m 的值是 Dim a(1 To 5) As Integer, i As Integer, m As Integer For i = 1 To 5 a(i) = i * 2 Next i m = a(1) For i = 2 To 5 If a(i) > m Then m = a(i) Next i A. 2 B. 6 C. 8 D. 10 【答案】D 【解析】a(i) = 2,4,6,8,10，m 初始为 2，最终找到最大值 10。 15.对已分配空间的动态数组，Erase 语句的作用是 A. 释放数组占用的内存空间 B. 清除元素值但保留空间 C. 改变数组大小 D. 改变数组维数 【答案】A 【解析】Erase 对动态数组释放其内存空间，再次使用前需 ReDim。 16.ReDim 语句中可以改变的属性不包括 A. 数组大小 B. 最后一维上界 C. 数组数据类型 D. 数组维数 【答案】C 【解析】ReDim 不能改变数组的数据类型，类型在 Dim 声明时已固定。 17.在代码中动态加载控件数组新元素使用的语句是 A. Add B. Create C. Load D. New 【答案】C 【解析】Load 语句用于在运行时向控件数组添加新元素，如 Load Command1(1)。 18.在数组中删除指定位置元素时，需要将后续元素 A. 保持不变 B. 全部删除 C. 整体后移一位 D. 整体前移一位 【答案】D 【解析】删除元素后，需将后续元素依次前移一位以填补空缺。 19.若已使用 Option Base 1，Dim a(3, 4) As Integer 共有多少个元素？ A. 12 B. 15 C. 16 D. 20 【答案】A 【解析】Option Base 1 后下界为 1，元素数 = 3 x 4 = 12。 20.下列程序段运行后，a(3) 的值是 Dim a(1 To 5) As Integer, i As Integer For i = 1 To 5 a(i) = i * i Next i A. 3 B. 6 C. 9 D. 12 【答案】C 【解析】a(i) = i^2，a(3) = 3*3 = 9。 21.遍历数组 a(1 To 10) 中下标为偶数的元素，循环语句应写为 For i = 2 To 10 Step______。 A. 1 B. 2 C. 3 D. 5 【答案】B 【解析】Step 2 表示步长为 2，从 2 开始取 2,4,6,8,10 等偶数下标。 22.下列程序段运行后，数组 a 的上界是 Dim a() As Integer, n As Integer n = 5 ReDim a(n) Print UBound(a) A. 4 B. 5 C. 6 D. 0 【答案】B 【解析】ReDim a(5) 设置上界为 5，UBound 返回 5。 23.控件数组 Command1 有 3 个元素，Index 分别为 0、1、2。单击第 2 个按钮时，事件过程中的 Index 值为 A. 0 B. 1 C. 2 D. 3 【答案】B 【解析】第 2 个按钮的 Index 为 1（从 0 开始计数）。 24.在数组指定位置插入一个新元素时，插入位置及之后的元素应 A. 前移一位 B. 后移一位 C. 保持不变 D. 全部删除 【答案】B 【解析】插入新元素前，需将插入位置及之后的所有元素依次后移一位，腾出空位。 25.下列程序段运行后，Print 输出的值是 Dim a As Variant, i As Integer, s As Integer a = Array(5, 3, 8, 1, 9) s = 0 For i = 0 To 4 If a(i) Mod 2 = 0 Then s = s + a(i) Next i Print s A. 8 B. 11 C. 26 D. 0 【答案】A 【解析】偶数元素为 8，s = 0 + 8 = 8。 26.对 5 个元素进行选择排序，共需比较的轮数为 A. 3 B. 4 C. 5 D. 6 【答案】B 【解析】n 个元素的选择排序需 n-1 轮比较，5 个元素需 4 轮。 27.下列程序段运行后，变量 c 的值是 Dim a As Variant, i As Integer, c As Integer a = Array(3, 7, 2, 9, 4, 6) c = 0 For i = 0 To 5 If a(i) > 5 Then c = c + 1 Next i A. 2 B. 3 C. 4 D. 5 【答案】B 【解析】大于 5 的元素有 7、9、6 共 3 个，c = 3。 28.下列程序段运行后，a(1) 的值是 Dim a As Variant, i As Integer, j As Integer, t As Integer a = Array(5, 2, 8, 1, 9) For i = 0 To 3 For j = 0 To 3 - i If a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next j Next i A. 1 B. 2 C. 5 D. 9 【答案】B 【解析】冒泡升序排序后数组为 1,2,5,8,9，a(1) = 2。 29.下列程序段运行后，变量 sum 的值是 Dim a() As Integer, i As Integer, sum As Integer ReDim a(1 To 4) For i = 1 To 4 a(i) = i * 10 Next i ReDim Preserve a(1 To 6) a(5) = 50: a(6) = 60 sum = 0 For i = 1 To 6 sum = sum + a(i) Next i A. 100 B. 150 C. 200 D. 210 【答案】D 【解析】Preserve 保留 a(1~4)=10,20,30,40，新增 a(5)=50,a(6)=60，sum=10+20+30+40+50+60=210。 30.使用 Array 函数给 Variant 变量赋值时，以下说法正确的是 A. Array 函数可以创建任意类型的数组 B. Array 函数返回一个 Variant 类型的数组 C. Array 函数只能创建一维数组 D. Array 函数创建的数组下标从 1 开始 【答案】B 【解析】Array 函数返回 Variant 类型的数组，默认下标从 0 开始（受 Option Base 影响）。 二、填空题（本题共10道小题，每题2分，共20分） 1.数组名后圆括号中的数字称为______，用于访问特定的数组元素。 【答案】下标（索引） 【解析】下标（也叫索引）是访问数组元素的编号，如 a(3) 中的 3。 2.在 Visual Basic 6.0 中，使用______语句可以清除静态数组的元素值。 【答案】Erase 【解析】Erase 语句对静态数组清除各元素值并恢复默认值，对动态数组释放内存。 3.使用 Array 函数创建的数组，其元素类型为______型。 【答案】Variant 【解析】Array 函数返回 Variant 类型的数组。 4.控件数组中各元素具有相同的______属性。 【答案】Name 【解析】控件数组中所有元素的 Name 属性相同，通过 Index 属性区分。 5.使用 ReDim 语句时，若要保留原数组数据，应加上关键字______。 【答案】Preserve 【解析】ReDim Preserve 在改变数组大小的同时保留已有数据。 6.动态数组在声明时不指定下标大小，使用空的______来表示。 【答案】圆括号 【解析】动态数组声明为 Dim a() As Integer，空圆括号表示大小待定。 7.卸载运行时动态添加的控件数组元素，应使用______语句。 【答案】Unload 【解析】Unload 语句用于卸载运行时通过 Load 添加的控件元素。 8.在数组中查找指定值是否存在的算法中，从第一个元素逐个比较的方法称为______查找。 【答案】顺序 【解析】顺序查找从头到尾逐个比较，适用于无序数组。 9.对 n 个元素进行选择排序，总共的比较次数为______次。 【答案】n*(n-1)/2 【解析】选择排序第 i 轮比较 n-i 次，共 n-1 轮，总比较次数为 n(n-1)/2。 10.在有序数组中采用二分查找，每次比较后将搜索范围______。 【答案】缩小一半 【解析】二分查找每次比较中间元素后，根据大小关系将搜索范围缩小一半。 三、程序填空题（本题共2道小题，每题10分，共20分） 1.以下程序的功能是：定义并初始化一个包含 8 个整数的数组，找出其中的最大值和最小值并输出。请补充完善程序。 Private Sub Command1_Click() Dim a As Variant Dim i As Integer, maxVal As Integer, minVal As Integer a = Array(23, 67, 12, 89, 45, 6, 78, 34) maxVal = a(0) minVal = [1]______ For i = 1 To 7 If a(i) > [2]______ Then maxVal = a(i) If a(i) < minVal Then [3]______ Next i Print "最大值："; maxVal Print "最小值："; minVal End Sub 【答案】a(0)；maxVal；minVal = a(i) 【解析】最小值初始也为 a(0)；当 a(i) > maxVal 时更新最大值；当 a(i) < minVal 时更新最小值。 2.以下程序的功能是：对数组 a 中 6 个整数进行升序选择排序并输出结果。请补充完善程序。 Private Sub Command1_Click() Dim a As Variant Dim i As Integer, j As Integer, k As Integer, t As Integer a = Array(45, 12, 78, 3, 56, 21) For i = 0 To 4 k = [1]______ For j = i + 1 To 5 If a(j) < [2]______ Then k = j Next j If k <> i Then t = a(i) a(i) = [3]______ a(k) = t End If Next i For i = 0 To 5 Print a(i); Next i End Sub 【答案】i；a(k)；a(k) 【解析】选择排序每轮先假设最小值下标 k=i；内层循环找比 a(k) 更小的元素并更新 k；最后将 a(i) 与 a(k) 交换。 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $