第7章 数 组用

第7章数组
教学目标：
本章主要介绍使用VB中一些简单却又极其重要的操作。

学习本章时应注意以下几点：
本章主要内容：
数组的概念
控件数组
For Each…Next语句
滚动条控件
重点难点：
数组的概念控件数组 For Each…Next语句滚动条控件
教学方法：
演示教学法、实例教学法，讲解操作方法和操作步骤--→让学生记笔记--→留作业-→学生动手操作，教师循徊指导--→教师归纳总结
教学手段：
多媒体教学系统，机房现场教学，边演示，边讲解，边操作
教学过程：
7.1 数组的概念
7.1.1 数组元素
数组是一组用一个统一的名称表示的、顺序排列的变量。

数组中的变量称为数组元素，用数字（下标）来标识它们，因此数组元素又称为下标变量。

①数组的命名与简单变量的命名规则相同。

②下标必须用括号括起来，不能把数组元素x(2)写成x2，后者是简单变量。

③下标可以是常数、变量或表达式。

下标还可以是下标变量（数组元素），如y(x(2))，若x(2)=10，则y(x(2))就是y(10)。

④下标必须是整数，否则将被自动取整（舍去小数部分）。

如a(5.6)将被视为a(5)。

⑤下标的最大和最小值分别称为数组的上界和下界。

数组的元素在上下界内是连续的。

由于对每一个下标值都分配空间，所以声明数组的大小要适当。

7.1.2 数组的维数
如果一个数组的元素只有一个下标，则称这个数组为一维数组。

例如，数组a有10个元素：a(1)、a(2)、a(3)、…、a(10)，依次保存10个学生的一门功课的成绩，则a为一维数组。

一维数组中的各个元素又称为单下标变量。

一维数组中的下标又称为索引（Index）。

如果有10个学生，每个学生有5门功课的成绩，如表7-1所示。

7.1.3 数组的声明
声明数组的格式为：
Dim 数组名(〈维数定义〉) [ As 〈类型〉]
说明：
①〈维数定义〉指定数组的维数以及各维的范围：
[〈下标下界1〉To ]〈下标上界1〉[，[〈下标下界2〉To ]〈下标上界2〉] . . .
如果不指定〈下标下界〉，则数组的下界由Option Base语句控制。

如使用Option Base 1，则表示缺省的下界为1。

如果没有使用Option Base语句，则缺省的下界为0，例如：
Dim a(10) As Integer ' 11个元素，索引值从0到10
Dim b(5) As Double ' 6个元素，索引值从0到5
亦可以用关键字To显式提供下标的下界（为Long数据类型），例如：
Dim c( 1 To 6 ) As Integer ' 6个元素，索引值从1到6
Dim s( 10 To 14 ) As String ' 5个元素，索引值从10到14
②下标的上、下界不得超过Long数据类型的范围（–2 147 483 648～2 147 483 647）。

③二维数组的声明：
Dim a( 2 , 3 ) As Double
声明了一个3×4的二维数组a，亦可用显式下界来声明两个维数或两个维数中的任何一个，如：
Dim a( 1 To 3 , 1 To 4 ) As Double
④可以将所有这些推广到二维以上的数组，例如：
Dim b( 2 , 1 To 3 , 1 To 4 )
这个声明建立了三维数组b，大小为3 × 3 × 4。

元素总数为三个维数的乘积，即36。

7.1.4 对数组元素的操作
对数组元素的操作与对简单变量的操作基本一样，但在引用数组元素的时候要注意以下几点：
①数组声明语句不仅定义数组、为数组分配存储控件，而且还能对数组进行初始化，使得数值型数组的元素值初始化为0，字符型数组的元素值初始化为空等等。

②引用数组元素的方法是在数组名后的括号中指定下标，如：
t = a(2) : s = b(3,4)
其中a(2)表示数组a中索引值为2的元素，b(3,4)表示二维数组b中行下标为3，列下标为4的元素。

③数组名、数组类型和维数必须与数组声明时一致。

④下标值应在数组声明时所指定的范围之内。

⑤在同一过程中，数组与简单变量不能同名。

7.2 控件数组
7.2.1 控件数组的概念
如果在应用程序中用到一些类型相同且功能类似的控件，则可将这些相同的控件视为一个数组——“控件数组”。

控件数组的使用类似数组变量的使用，也具有如下特点：
①相同的名称（Name）。

②以下标索引值（Index）来识别各个控件。

7.2.2 建立控件数组的方法
建立控件数组的方法有3种：
l给控件起相同的名字。

l将现有的控件复制并粘贴到窗体或框架、图片框上。

l将控件的Index属性设置为非Null数值。

下面分别讲述创建控件数组的方法。

1. 给控件起相同的名称
通过改变已有控件的名称，可以将一组控件组成控件数组，具体步骤如下：
①画出控件数组中要添加的控件（必须为同一类型的控件），并且决定哪一个控件作为数组中的第一个元素。

②选定控件并将其Name属性设置成数组名称。

③在为数组中的其他控件输入相同名称时，VB将显示一个对话框，要求确认是否要创建控件数组。

此时选择“是”，确认操作。

例如，若控件数组第一个元素名为Command1，则选择另一个CommandButton将其添加到数组中，并将其名称也设置为Command1，此时将显示这样一段信息：“已经有一个控件为'Command1'。

创建一个控件数组吗？”。

选择“是”，确认操作，如图7-6。

用这种方法添加的控件仅仅共享Name属性和控件类型，其他属性与最初画出控件时的值相同。

2. 复制现存控件
利用复制、粘贴的功能建立控件数组，如同文本编辑一样方便。

具体步骤如下：
①画出控件数组中的第一个控件。

②当控件获得焦点时，单击“复制”按钮，或按〈Ctrl〉+〈C〉组合键。

③单击“粘贴”按钮，或按〈Ctrl〉+〈V〉组合键。

VB将显示一个对话框询问是否确认创建控件数组。

选择“是”，确认操作（如图7-6），将得到控件数组中的第二个控件。

④继续单击“粘贴”按钮（或按〈Ctrl〉+〈V〉组合键），可得到控件数组中的其他控件。

每个新数组元素的索引值与其添加到控件数组中的次序相同，如图7-7中第二次粘贴的Option1，其Index的值为2。

并且添加控件时，大多数可视属性，例如高度、宽度和颜色，将从
数组中第一个控件复制到新控件中。

3. 指定控件的索引值
直接指定控件数组中第一个控件的索引值为0，然后利用前两种方法中的任何一种添加控件数组的成员，将不会出现对话框询问是否创建控件数组。

7.2.3 控件数组的使用
7.3 For Each…Next语句
语法为：
For Each 〈成员〉 In 〈数组〉
[〈语句组〉]
[Exit For]
Next [〈成员〉]
说明：
①〈成员〉是一个Variant变量，它为循环提供，并在For Each...Next语句中重复使用，它实际上代表的是数组中每个元素。

②〈数组〉是一个数组名，没有括号和上下界。

用For Each...Next语句可以对数组元素进行处理，包括查询、显示或读取。

它所重复执行的次数有数组中元素的个数确定，也就是说，数组中有多少个元素，就自动重复执行多少次。

例如：
Dim a(1 To 6)
For Each x In a
Print x;
Next x
7.4 滚动条控件
7.4.1 水平滚动条和垂直滚动条
滚动条有水平和垂直两种，可以通过水平滚动条（HScrollBars）和垂直滚动条（VScrollBars）工具来建立，如图7-16所示。

除了方向之外，水平滚动条和垂直滚动条的动作是相同的。

7.4.2 滚动条的属性
1. Min、Max属性
返回或设置滚动条所能代表的最小、最大值，其取值范围为–32768～32767。

Min属性的默认值为0，Max属性的默认值为32 767。

2. Value属性
返回或设置滚动条的当前位置，其返回值始终介于Max和Min属性值之间，包括这两个值。

3. LargeChange属性
返回和设置当用户单击滚动框和滚动箭头之间的区域时，滚动条控件Value属性值的改变量。

比如，若设置LargeChange属性值为10，则单击水平滚动框左边的区域时，滚动条的Value属性值将递减10，若单击滚动框右边的区域，则Value将递增10。

该属性的默认值为l。

4. SmallChange属性
返回和设置当用户单击滚动箭头时，滚动条控件Value属性值的改变量。

当单击滚动条两端的箭头按钮时，滚动条的值将按最小改变量进行递增或递减。

该属性的默认值为1。

7.4.3 滚动条的事件
滚动条可以识别多种事件，但最重要的是Change和Scroll事件。

7.4.4 滚动条的应用
可以使用滚动条来提供简便的定位，还可以作为输入设备，或者速度、数量的指示器来使用。