《Visual Basic 程序设计》数组（2）-知识点训练卷 2026版内蒙古计算机类 考纲百套卷 第14卷

编写说明：2026版内蒙古对口招生《计算机类考纲百套卷》依据《内蒙古自治区高等职业院校对口招收中等职业学校毕业生计算机类专业课综合考试指导纲要》编写。本套试卷共100份，分为三个部分，第一部分是根据考试大纲的各考点范围与要求，编写的70份知识点训练卷，第二部分是针对每门课程的重点内容，编写的20份常考题训练卷，第三个部分是参考近几年内蒙古考试真题，编写了10份专业综合训练卷。 本试卷是2026版内蒙古对口招生《计算机类考纲百套卷》的第14卷，是知识点训练卷，按考纲中的《Visual Basic程序设计》的第7章 数组的范围与要求编写。具体内容如下： 数组基础知识 静态数组 动态数组 控件数组 常用算法实例 2026版内蒙古对口招生《计算机类考纲百套卷》 第14卷 《Visual Basic 程序设计》 数组（2） 知识点训练卷 考试时间60分钟 满分100分 班级 姓名 学号 成绩 一、单项选择题（本大题共25小题，每题2分，共50分） 1. 在 Option Base 1 环境下声明 Dim x(5)，其可用下标范围是（ ） A. 0~5  B. 1~5  C. 1~6  D. 0~4 【答案】B 2. 设执行以下程序段时依次输入1、3、5，执行结果为（ ）。 Dim a(4) As Integer Dim b(4) As Integer For K =0 To 2 a(K+1) =Val(InputBox(“请输入数据：")) b(3-K) =a(K+1) Next K Print b(K) A. 1 B. 3 C. 5 D. 0 【答案】A 3.下列函数可返回数组某维下限的是（ ） A. LBound B. LLimit C. Min D. Lower 【答案】A 4. 若声明 Dim a(3,4) As Double，则 UBound(a,2) 返回（ ） A. 3  B. 4  C. 2  D. 1 【答案】B 5. 数组作为形参时，若要按地址传递，应在形参前加（ ） A. ByRef B. ByVal  C. ParamArray  D. Optional 【答案】A 6. 若声明 Dim a(5) As Integer，则合法最大下标是（ ） A. 5  B. 4  C. 6  D. 0 【答案】A 7.声明三维数组 Dim c(1,2,3) As Long，元素个数为（ ） A. 6  B. 12  C. 24  D. 8 【答案】C 8. 定义数组Array(1 to 5,5)后，下列哪一个数组元素不存在（ ）。 A. Array(1,1) B. Array(1,0) C. Array(0,1) D. Array(5,5) 【答案】C 9. 语句：Dim student(10,5 to 100) 定义的是一个（ ）维数组。 A.2 B.3 C.5 D.10 【答案】A 10. 下列程序段错误的是（ ）。 A. Dim a As Integer B.Dim a(),b() a = array(1,2,3,4) a = array(1,2,3,4):b = a C. Dim a As Variant D. Dim a() As Variant a = array(1,"asd",true) a = array(1,2,3,4) 【答案】A 11.如有以下程序代码： Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i, j As Integer For i = 1 To 3 For j = 2 To 4 array1(i, j) = i + j Next j Next i Text1.Text = array1(2, 3) + array1(3, 4) End Sub 运行程序后，在窗体上输出的内容为（ ） A.12 B.13 C.14 D.15 【答案】A 12.程序中的不同过程之间，不能通过（ ）进行数据传递。 ①全局变量 ②窗体或模块级变量 ③形参与实参结合 ④静态变量 A．①②④ B．①②③ C．②④ D．④ 【答案】D 13. 在窗体的通用声明处有语句“Dim A() As Single”，以下在某事件过程中重定义此数组的一组正确语句是（ ）。 A．ReDim A(3，3) B．ReDim A(3，3) ReDim A(4，4) As Integer ReDim Preserve A(4, 4) C．ReDim A(3) D．ReDim A(3, 3) ReDim A(3，3) As Integer ReDim Preserve A(3, 4) 【答案】D 14.下列定义Sub过程的语句中，正确的语句是（ ）。 ①Private Sub Test(St As String*8) ②Private Sub Test(Sarray() As String*5) ③Private Sub Test(Sarray() As String) ④Private Sub Test(St As String) A．①② B．①④ C．②③④ D．①②③④ 【答案】C 15. 下面有关数组处理的叙述中，错误的是（ ）。 ①在过程中用ReDim语句定义的动态数组，其下标的上下界可为赋了值的变量。 ②在过程中，可以使用Dim、Private和Static语句定义数组。 ③用ReDim语句重新定义动态数组时，不得改变该数组的数据类型。 ④可用Public语句在窗体模块的通用说明处定义一个全局数组。 A．①②③④    B．①③④    C．①②③    D．②④  【答案】D 16.以下有关数组作为形参的说明中，错误的是（ ）。 A．调用过程时，只需把要传递的数组名填入实参表 B．使用动态数组时，可用ReDim语句改变形参数组的维界 C．在过程中也可用Dim语句对形参数组进行说明 D．形参数组只能按地址传递 【答案】C 17.以下有关ReDim语句用法的说明中，错误的是（ ）。 A．ReDim可用于定义一个新数组 B．ReDim语句既可以在过程中使用，也可以在模块的通用声明处使用 C．无Perserve关键字的ReDim语句，可重新定义动态数组的维数 D．在ReDim语句中，可使用变量说明动态数组的大小 【答案】B 18. 下列语句所声明的数组的元素个数为（ ）。 Dim a(3 To 6, - 2 To 2) A．20 B．16 C．24 D．25 【答案】A 19. 下面有关数组处理的叙述中，不正确的是（ ）。 ①控件数组可由多个控件组成，这些控件具有相同的名字 ②控件数组中的元素可以是不同类型的控件 ③用ReDim语句重新定义动态数组时，不得改变该数组的数据类型 ④可用Public语句在窗体模块的通用说明处定义一个全局数组 A．①②③④ B．②④ C．①②③ D．①③④ 【答案】B 20. 以下对数组参数的说明中，错误的是（ ）。 A．在过程中可以用Dim语句对形参数组进行声明 B．形参数组只能按地址传递 C．实参为动态数组时，可用Redim语句改变对应形参数组的维界 D．只需把要传递的数组名作为实参，即可调用过程 【答案】A 21.如下数组声明语句中数组a包含的元素个数为（ ）。 Dim a(2, -1 To 1, 5) A. 84 B. 54 C. 72 D. 18 【答案】B 22.能使一维动态数组arr(6)元素个数加1，但不保留数组中原有元素的语句是（ ）。 A.ReDim arr(7) B. ReDim Preserve arr(7) C .Public arr(1 To 7) D.Static arr(7) 【答案】A 23.以下有关数组的说明中，正确的是（ ）。 A.在过程中可以用Private 语句定义数组 B.无论是动态数组还是静态数组，数组一旦定义，其维数是不能重新定义的 C. 用ReDim语句重新定义维数后，原有的数组元素内容将不予保留 D. 用ReDim语句重新定义维数时，不得改变该数组的数据类型 【答案】C 24.设一维数组a的下标从1开始，有如下过程Fun： Private Sub Fun(a() As Integer) Dim T Dim J As Integer J = UBoun(a) \ 2 For i = 1 To J T = a(i) a(i) = a(UBound(a) - i + 1) a(UBound(a) - i + 1) = T Next i End Sub 下列对其功能的叙述正确的是（ ）。 A. 该过程能对传入数组进行升序排序 B. 该过程能对传入数组进行降序排序 C. 该过程能对传入数组进行逆序存放 D. 该过程能对传入数组逆序存放后又顺序存放 【答案】C 25.以下程序段执行的结果是（ ）。 Private Sub Command1_Click() Dim a Dim i As Integer, j As Integer a = Array(1, 3, 5, 7, 9, 11) For i = 1 To a(4) j = j + 1 Next i Print j End Sub A. 5 B. 7 C. 9 D. 11 【答案】C 二、填空题（本大题共10小题，每题2分，共20分） 1. 有数组定义语句：dim I(99,99) as Integer，则数组I中共包含有______个元素。 【答案】10000 2.声明动态数组时，应使用关键字 ________ 后再用 ReDim 分配空间。 【答案】Dim 3.获取数组 arr 上界的函数是 ________。 【答案】UBound(arr) 4.用 ReDim ________ arr(10) 可在改变大小时保留原数据。 【答案】Preserve 5.声明二维数组 Dim a(2,3) As Integer，其元素个数是 ________。 【答案】12 6.若 Dim a(3 To 7) As Long，则元素个数为 ________。 【答案】5 7.获取二维数组 a 第 2 维上限的表达式是 ________。 【答案】UBound(a, 2) 8.数组作为过程参数传递时，默认的传递方式是_______。 【答案】按地址传递（ByRef） 9.数组元素的访问通过数组名和_______来实现。 【答案】下标 10.使用_______关键字可以保留动态数组中已有的数据，同时改变其大小。 【答案】Preserve 三、程序填空题（本大题共2小题，每题15分，共30分） 1.程序功能：将一个5位以内的正整数逆序输出。 Option Base 1 Private Sub Form_Click() Dim num As Long Dim a(5), i, j As Integer i = 1: j = 1 Do Number = Val(InputBox("请输入一个五位数：")) Loop While Number > 99999 Do While Number > 0 a(i) = Number Mod 10 ______(1)______________ i = i + 1 Loop Print "五位数逆序输出，结果为：" While j < i Print a(j); j = j + 1 Wend End Sub 【答案】 (1) Number = Number \ 10 2.以下程序代码实现单击命令按钮Command1时生成20个（0，100）之间的随机整数，存于数组中，打印数组中大于50数，并求这些数的和。 Private Sub Command1_Click() Dim arr(1 To 20) For i = 1 To 20 arr(i) =____(1)_________ Text1.Text = Text1.Text & arr(i) & Chr(13) & Chr(10) Next i Sum = 0 For Each x In arr If x > 50 Then Print Tab(20); x ______（2）______________ End If Next x Print Tab(20); "Sum="; Sum End Sub 【答案】 (1) Int(Rnd * 99 + 1) (2) Sum = Sum + x 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $$ 编写说明：2026版内蒙古对口招生《计算机类考纲百套卷》依据《内蒙古自治区高等职业院校对口招收中等职业学校毕业生计算机类专业课综合考试指导纲要》编写。本套试卷共100份，分为三个部分，第一部分是根据考试大纲的各考点范围与要求，编写的70份知识点训练卷，第二部分是针对每门课程的重点内容，编写的20份常考题训练卷，第三个部分是参考近几年内蒙古考试真题，编写了10份专业综合训练卷。 本试卷是2026版内蒙古对口招生《计算机类考纲百套卷》的第14卷，是知识点训练卷，按考纲中的《Visual Basic程序设计》的第7章 数组的范围与要求编写。具体内容如下： 数组基础知识 静态数组 动态数组 控件数组 常用算法实例 2026版内蒙古对口招生《计算机类考纲百套卷》 第14卷 《Visual Basic 程序设计》 数组（2） 知识点训练卷 考试时间60分钟 满分100分 班级 姓名 学号 成绩 一、单项选择题（本大题共25小题，每题2分，共50分） 1. 在 Option Base 1 环境下声明 Dim x(5)，其可用下标范围是（ ） A. 0~5  B. 1~5  C. 1~6  D. 0~4 2. 设执行以下程序段时依次输入1、3、5，执行结果为（ ）。 Dim a(4) As Integer Dim b(4) As Integer For K =0 To 2 a(K+1) =Val(InputBox(“请输入数据：")) b(3-K) =a(K+1) Next K Print b(K) A. 1 B. 3 C. 5 D. 0 3.下列函数可返回数组某维下限的是（ ） A. LBound B. LLimit C. Min D. Lower 4. 若声明 Dim a(3,4) As Double，则 UBound(a,2) 返回（ ） A. 3  B. 4  C. 2  D. 1 5. 数组作为形参时，若要按地址传递，应在形参前加（ ） A. ByRef B. ByVal  C. ParamArray  D. Optional 6. 若声明 Dim a(5) As Integer，则合法最大下标是（ ） A. 5  B. 4  C. 6  D. 0 7.声明三维数组 Dim c(1,2,3) As Long，元素个数为（ ） A. 6  B. 12  C. 24  D. 8 8. 定义数组Array(1 to 5,5)后，下列哪一个数组元素不存在（ ）。 A. Array(1,1) B. Array(1,0) C. Array(0,1) D. Array(5,5) 9. 语句：Dim student(10,5 to 100) 定义的是一个（ ）维数组。 A.2 B.3 C.5 D.10 10. 下列程序段错误的是（ ）。 A. Dim a As Integer B.Dim a(),b() a = array(1,2,3,4) a = array(1,2,3,4):b = a C. Dim a As Variant D. Dim a() As Variant a = array(1,"asd",true) a = array(1,2,3,4) 11.如有以下程序代码： Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i, j As Integer For i = 1 To 3 For j = 2 To 4 array1(i, j) = i + j Next j Next i Text1.Text = array1(2, 3) + array1(3, 4) End Sub 运行程序后，在窗体上输出的内容为（ ） A.12 B.13 C.14 D.15 12.程序中的不同过程之间，不能通过（ ）进行数据传递。 ①全局变量 ②窗体或模块级变量 ③形参与实参结合 ④静态变量 A．①②④ B．①②③ C．②④ D．④ 13. 在窗体的通用声明处有语句“Dim A() As Single”，以下在某事件过程中重定义此数组的一组正确语句是（ ）。 A．ReDim A(3，3) B．ReDim A(3，3) ReDim A(4，4) As Integer ReDim Preserve A(4, 4) C．ReDim A(3) D．ReDim A(3, 3) ReDim A(3，3) As Integer ReDim Preserve A(3, 4) 14.下列定义Sub过程的语句中，正确的语句是（ ）。 ①Private Sub Test(St As String*8) ②Private Sub Test(Sarray() As String*5) ③Private Sub Test(Sarray() As String) ④Private Sub Test(St As String) A．①② B．①④ C．②③④ D．①②③④ 15. 下面有关数组处理的叙述中，错误的是（ ）。 ①在过程中用ReDim语句定义的动态数组，其下标的上下界可为赋了值的变量。 ②在过程中，可以使用Dim、Private和Static语句定义数组。 ③用ReDim语句重新定义动态数组时，不得改变该数组的数据类型。 ④可用Public语句在窗体模块的通用说明处定义一个全局数组。 A．①②③④    B．①③④    C．①②③    D．②④  16.以下有关数组作为形参的说明中，错误的是（ ）。 A．调用过程时，只需把要传递的数组名填入实参表 B．使用动态数组时，可用ReDim语句改变形参数组的维界 C．在过程中也可用Dim语句对形参数组进行说明 D．形参数组只能按地址传递 17.以下有关ReDim语句用法的说明中，错误的是（ ）。 A．ReDim可用于定义一个新数组 B．ReDim语句既可以在过程中使用，也可以在模块的通用声明处使用 C．无Perserve关键字的ReDim语句，可重新定义动态数组的维数 D．在ReDim语句中，可使用变量说明动态数组的大小 18. 下列语句所声明的数组的元素个数为（ ）。 Dim a(3 To 6, - 2 To 2) A．20 B．16 C．24 D．25 19. 下面有关数组处理的叙述中，不正确的是（ ）。 ①控件数组可由多个控件组成，这些控件具有相同的名字 ②控件数组中的元素可以是不同类型的控件 ③用ReDim语句重新定义动态数组时，不得改变该数组的数据类型 ④可用Public语句在窗体模块的通用说明处定义一个全局数组 A．①②③④ B．②④ C．①②③ D．①③④ 20. 以下对数组参数的说明中，错误的是（ ）。 A．在过程中可以用Dim语句对形参数组进行声明 B．形参数组只能按地址传递 C．实参为动态数组时，可用Redim语句改变对应形参数组的维界 D．只需把要传递的数组名作为实参，即可调用过程 21.如下数组声明语句中数组a包含的元素个数为（ ）。 Dim a(2, -1 To 1, 5) A. 84 B. 54 C. 72 D. 18 22.能使一维动态数组arr(6)元素个数加1，但不保留数组中原有元素的语句是（ ）。 A.ReDim arr(7) B. ReDim Preserve arr(7) C .Public arr(1 To 7) D.Static arr(7) 23.以下有关数组的说明中，正确的是（ ）。 A.在过程中可以用Private 语句定义数组 B.无论是动态数组还是静态数组，数组一旦定义，其维数是不能重新定义的 C. 用ReDim语句重新定义维数后，原有的数组元素内容将不予保留 D. 用ReDim语句重新定义维数时，不得改变该数组的数据类型 24.设一维数组a的下标从1开始，有如下过程Fun： Private Sub Fun(a() As Integer) Dim T Dim J As Integer J = UBoun(a) \ 2 For i = 1 To J T = a(i) a(i) = a(UBound(a) - i + 1) a(UBound(a) - i + 1) = T Next i End Sub 下列对其功能的叙述正确的是（ ）。 A. 该过程能对传入数组进行升序排序 B. 该过程能对传入数组进行降序排序 C. 该过程能对传入数组进行逆序存放 D. 该过程能对传入数组逆序存放后又顺序存放 25.以下程序段执行的结果是（ ）。 Private Sub Command1_Click() Dim a Dim i As Integer, j As Integer a = Array(1, 3, 5, 7, 9, 11) For i = 1 To a(4) j = j + 1 Next i Print j End Sub A. 5 B. 7 C. 9 D. 11 二、填空题（本大题共10小题，每题2分，共20分） 1. 有数组定义语句：dim I(99,99) as Integer，则数组I中共包含有______个元素。 2.声明动态数组时，应使用关键字 ________ 后再用 ReDim 分配空间。 3.获取数组 arr 上界的函数是 ________。 4.用 ReDim ________ arr(10) 可在改变大小时保留原数据。 5.声明二维数组 Dim a(2,3) As Integer，其元素个数是 ________。 6.若 Dim a(3 To 7) As Long，则元素个数为 ________。 7.获取二维数组 a 第 2 维上限的表达式是 ________。 8.数组作为过程参数传递时，默认的传递方式是_______。 9.数组元素的访问通过数组名和_______来实现。 10.使用_______关键字可以保留动态数组中已有的数据，同时改变其大小。 三、程序填空题（本大题共2小题，每题15分，共30分） 1.程序功能：将一个5位以内的正整数逆序输出。 Option Base 1 Private Sub Form_Click() Dim num As Long Dim a(5), i, j As Integer i = 1: j = 1 Do Number = Val(InputBox("请输入一个五位数：")) Loop While Number > 99999 Do While Number > 0 a(i) = Number Mod 10 ______(1)______________ i = i + 1 Loop Print "五位数逆序输出，结果为：" While j < i Print a(j); j = j + 1 Wend End Sub 2.以下程序代码实现单击命令按钮Command1时生成20个（0，100）之间的随机整数，存于数组中，打印数组中大于50数，并求这些数的和。 Private Sub Command1_Click() Dim arr(1 To 20) For i = 1 To 20 arr(i) =____(1)_________ Text1.Text = Text1.Text & arr(i) & Chr(13) & Chr(10) Next i Sum = 0 For Each x In arr If x > 50 Then Print Tab(20); x ______（2）______________ End If Next x Print Tab(20); "Sum="; Sum End Sub 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $$