第五章[单选题]定义10个单精度实型一维数组正确的语句是__________。
数组：前面章节中程序涉及的数据量都比较小，简单变量（即每个变量都使用一个独立的名称，变量间不存在联系）就可以很方便地进行存取，但是在实际问题中往往会有大量的相关数据需要存取，如果用简单变量来存取这些数据，不但繁琐，而且效率低，为了在程序中能方便高效地处理大批量的数据，充分发挥循环控制结构的作用，VB中引入了数组。本章将着重介绍数组的特点以及在实际问题中的应用。 本章学习目标： （1）掌握数组的基本概念以及数组的分类； （2）掌握静态数组与动态数组的声明方法； （3）掌握Ubound、Lbound函数的格式及其应用； （4）掌握数组的基本操作方法及其常见错误和注意事项。 （5）掌握列表框和组合框的常用属性、事件和方法； （6）掌握列表框和组合框的应用； （7）掌握控件数组的概念； （8）掌握控件数组的建立方法； （9）掌握控件数组的应用。 （10）掌握几个问题的常用算法。 重点：静态数组与动态数组的声明方法，数组的基本操作方法及其常见错误和注意事项。列表框和组合框的常用属性、事件和方法，控件数组的建立方法。 难点：数组的灵活应用，列表框和组合框的应用，控件数组的应用。 学习方法： 先看课本，再看相关知识点的微课。在看微课时，看不懂的同学可以反复看，直到看懂为止，实在看不懂的，把不懂的问题记录下来，在讨论群里讨论得到解决，或者反映给助教，助教反映给教师，教师在课堂上统一讲解面上问题。在学习的过程中要养成记笔记的好习惯。所有的同学都要在看完书和微课后，做网站里布置的作业以验证是否掌握所学知识，最后提交作业。 参考教材： （1）《面向对象程序设计基础——Visual Basic》，清华大学出版社，第5章 数组。 （2）《全国计算机等级考试二级教程——Visual Basic语言程序设计（2018年版）》，高等教育出版社。 （3）《全国计算机等级考试教程二级Visual Basic》，人民邮电出版社。5.1数组的基本概念:要求：（1）掌握数组的基本概念以及数组的分类；（2）掌握静态数组与动态数组的声明方法；（3）掌握Ubound、Lbound函数的格式及其应用。
5.2数组的基本操作:要求：掌握数组的基本操作方法及其常见错误和注意事项。
5.3列表框与组合框控件:要求：掌握列表框和组合框的常用属性、事件和方法；掌握列表框和组合框的应用；
5.4控件数组:要求：掌握控件数组的概念；掌握控件数组的建立方法；掌握控件数组的应用。
选项:[Dim #(9), Option Base 1：Dim a(9), Dim a(9) As Single, Dim a(10) As Integer]
[单选题]
在窗体上画一个名称为List1的列表框和一个名称为Text1的文本框，然后编写如下两个事件过程：
Private Sub Form_Load()
List1.AddItem "100"
List1.AddItem "200"
List1.AddItem "300"
List1.AddItem "400"
Text1.Text = ""
End Sub
Private Sub List1_DblClick()
a = List1.Text
Print a + Text1.Text
End Sub
程序运行后，在文本框中输入"500"，然后双击列表框中的"400"，则输出结果为________。
, 500400]
[单选题]在窗体模块的通用声明段中声明变量时，不能使用__________关键字。
选项:[Dim, Public, Private, Static]
[单选题]
设窗体上有一个列表框控件List1，含有若干列表项。以下能表示当前被选中的列表项内容的是________。
选项:[List1.List, List1.ListIndex, List1.Index, List1.Text][单选题]下列说法中正确的是________。
选项:[用Erase语句可以清除静态数组中各元素的值，但不释放其所占的内存空间, 当按下键盘上任意键时都会触发KeyPress事件, 用Array函数可以对任何数组初始化, 语句Dim x[1 To 5] As Double能够定义一个一维数组x]
[单选题]组合框兼有两种控件的特性，这两种控件是________。
, 标签和列表框, 标签和文本框, 复选框和单选按钮]
[单选题]以下属于Visual Basic合法的数组元素是__________。
选项:[s(0), x8, v[8], x[8]]
[单选题]
在窗体上画一个名称为Command1的命令按钮和一个名称为Label1的标签，然后编写如下程序代码：
Option Base 0
Private Sub Command1_Click()
Dim a(5) As Integer, n As Integer
For i = 0 To 5
a(i) = i
n = n + a(i)
Next i
Label1 = n
End Sub
运行程序，单击命令按钮，在标签中显示的内容是________。
[单选题]
假定列表框List1中没有被选中的项目，则执行List1.RemoveItem List1.ListIndex 语句的结果是________。
选项:[删除最后加入列表中的一项, 删除最后一项, 删除第一项, 出错][单选题]下列关于ReDim的说法中错误的是__________。
选项:[可以用ReDim语句直接定义数组。, ReDim语句只能改变元素的个数，但不能改变数组的维数。, ReDim语句可以改变数组类型。, 在一个程序中，可以多次用Redim 语句定义同一个数组。]
[单选题]
运行如下程序
Private Sub Command1_Click()
Dim a(5, 5) As Integer
For i = 1 To 5
For j = 1 To 4
a(i, j) = i * 2 + j
If a(i, j) / 7 = a(i, j) 7 Then
n = n + 1
End If
Next j
Next
Print n
End Sub
则n的值是________。
, 5
, 3]
[单选题]下面的数组声明语句中正确的是__________。
选项:[Dim A[3,4] As Integer, Dim a[3;4] As Integer, Dim A(3,4) As Integer, Dim A(3;4) As Integer]
[单选题]用Dim b(-2 To 4) As String 语句所定义的数组元素个数是__________个。
选项:[2, 4, 6, 7]
[单选题]以Dim x(6，2 To 5)来声明一个二维数组，错误的选项是__________。
选项:[UBound(x,1)的返回值是6, UBound(x,2)的返回值是5, LBound(x,2)的返回值是1, LBound(x,1)的返回值是0]
[单选题]
在窗体上画一个列表框List1、一个组合框Combo1和一个文本框Text1，编写如下程序代码：
Private Sub Form_Load()
List1.AddItem "111"
List1.AddItem "222"
List1.AddItem "333"
Combo1.AddItem "444"
Combo1.AddItem "555"
Combo1.AddItem "666"
Text1.Text = ""
End Sub
程序运行后，如果单击窗体，要求在文本框中显示"222555"，以下能实现该操作的事件过程是________。
选项:[Private Sub Form_Click() Text1.Text = List1.ListIndex(1) + Combo1.ListIndex(1) End Sub, Private Sub Form_Click() Combo1.ListIndex = 1 List1.ListIndex = 1 Text1.Text = List1.Text + Combo1.Text End Sub, Private Sub Form_Click() Text1.Text = List1.ListIndex(2) + Combo1.ListIndex(2) End Sub, Private Sub Form_Click() Combo1.ListIndex = 2 List1.ListIndex = 2 Text1.Text = List1.Text + Combo1.Text End Sub][单选题]
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序代码：
Option Base 1
Dim arr() As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim s As Integer
ReDim arr(4, 2)
s = 0
For i = 1 To 3
For j = 1 To 2
arr(i, j) = i + j
Next j
Next i
ReDim Preserve arr(4, 4)
For j = 3 To 4
arr(3, j) = j + 10
Next j
For i = 1 To 4
s = s + arr(i, i)
Next i
Print s
End Sub
程序运行过程中，当单击Command1时，输出结果为________。
选项:[19, 0, 程序出错, 18]
[单选题]使用ReDim Preserve可以改变数组__________。
选项:[改变维数和所有维的大小, 所有维的大小, 第一维的大小, 最后一维的大小]
[单选题]
若在窗体上画了一个名称为List1的列表框，并编写了如下事件过程：
Private Sub Form_Load ( )
List1.AddItem "数学"
List1.AddItem "物理"
List1.AddItem "化学"
List1.AddItem "外语"
List1.AddItem "语文"
End Sub
Private Sub Form_Click()
List1.RemoveItem 1
List1.RemoveItem 2
End Sub运行程序后，单击窗体，则列表框中显示的项目是________
选项:[数学化学语文, 物理外语语文, 数学外语语文, 化学外语语文][单选题]下面的数组声明语句中正确的是__________。
选项:[Dim gg(1 To 5) As String, Dim gg[1:5,1:5] As String, Dim gg[1 To 5,1 To 5] As String, Dim gg[1,5] As String]
[单选题]设组合框 Combo1 中有5 个项目，则以下能删除最后一项的语句是________。
选项:[Combo1.RemoveItem Combo1.ListCount, Combo1.RemoveItem 5, Combo1.RemoveItem Combo1.ListCount+1, Combo1.RemoveItem 4]
[单选题]列表框控件List1中已有若干个列表项，以下能表示被选中列表项内容的表达式是________。
选项:[List1.List(List1.ListIndex), List1.List(ListIndex), List1.ListIndex, List1 (List1.ListIndex)]
[单选题]
设窗体上有一个名称为Option1的单选按钮数组（其下标从0开始），共有4个单选按钮，并有下面事件过程：
Private Sub Option1_Click(Index As Integer)
n = Index
If Index < 3 Then n = n + 1
Print Option1(n).Caption
End Sub
程序运行时，单击其中一个单选按钮，则在窗体上显示的是________。
选项:[被选中的单选按钮的标题, 被选中单选按钮的下一个按钮的标题，但如果选中的是最后一个，则显示最前面一个单选按钮的标题, 被选中单选按钮的上一个按钮的标题，但如果选中的是最前面的一个，则显示最后面按钮的标题, 被选中单选按钮的下一个按钮的标题，但如果选中的是最后一个，则显示该单选按钮的标题][单选题]设在程序开始处有语句：Option Base 0，则下面定义的数组中正好有12个元素的是________。
选项:[Dim a%( 12 ), Dim s%( 3 , 2 ), Dim s%( 3 , 4 ), Dim a%( -6 To 6 )]
[单选题]语句Dim abc(-2 To 4,0 To 4,5)As Long定义的三维数组，其数组元素有__________ 。
选项:[210个, 112个, 96个, 140个]
[单选题]
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序代码：
Option Base 1
Private Sub Command1_Click()
Dim a(5) As String
Dim i As Integer
Dim b As Variant
For i = LBound(a) To UBound(a)
a(i) = Chr(Asc("a") + (26 - i))
Next i
For Each b In a
Print b;
Next
End Sub
程序运行时，单击Command1，则输出结果是________。
