清华大学VB经典教案第六节——数组

（4）下标必须是整数，如果不是整数自动四舍五入； （5）某维下标的最大值和最小值称为该维下标的上界和下 界。 6.1.2 数组的数据类型 数组的数据类型指的是数组元素的数据类型。 6.1.3 数组的维数 数组的维数指的是数组所具有的下标个数，有1个下标 的称为一维数组，有2个下标的称为二维数组，以此类推， 在Visual Basic中，最多可以使用60维的数组。
【例6-1】Fibonacci数列为：1，1，2，3，5，8， 13，……，其中，第一项为1，第二项为1，其余任何一项都 是其前两项的和，即 f(n)=f(n-1)+f(n-2) n≥3 编写程序，定义一个有30个元素的数组，将Fibonacci 数列的30个数赋给数组元素，并在窗体上按6行5列输出这30 个元素，如图6-1所示。
6.2 元素个数固定大小的数组 元素个数固定大小的数组指的是：定义数组时就确定了 数组的维数以及每一维的上下界，从此，不得更改，只能在 规定的维数和上下界内引用数组元素。
6.2.1 元素个数固定大小的数组的定义 根据数组的作用域不同，定义元素个数固定大小的数组的 方法有三种： （1）过程级数组：在过程的开始位置用关键字Dim或Static 定义（两个关键字的含义不同，决定了数组的生存期），过程 级数组的作用域仅仅是其所在的过程，在其他过程中无效。其 语法格式如下： Dim|Static <数组名>(<维数定义>) [As <数据类型>],… （2）模块级数组：在模块的通用声明段用关键字Dim或 Private定义（两个关键字的含义完全相同），为了与关键字 Public相对应，建议使用关键字Private定义，模块级数组的 作用域仅仅是其所在的模块，在其他模块中无效。其语法格式 如下： Dim|Private <数组名>(<维数定义>) [As <数据类型>],…
6.1.4 数组的形式
在Visual Basic中，数组的形式有两种：元素个数固定 大小的Fra bibliotek组和动态数组。
6.1.5 数组元素的引用 对数组元素的引用与简单变量的引用类似，但引用数组 元素时需要注意： （1）数组定义语句不仅可以定义数组，为数组分配存储空 间，而且还能对数组中的所有元素初始化，当数组的数据类 型为数值型时，数组中的所有元素自动初始化为0；当数组的 数据类型为字符型或可变类型时，数组中的所有元素自动初 始化为空串；当数组的数据类型为布尔型时，数组中的所有 元素自动初始化为False； （2）引用数组元素的方法是在数组名后的圆括号中指定下 标； （3）引用数组元素时，数组名、数组的数据类型和维数必 须与定义时一致； （4）引用数组元素时，下标值必须在定义时所指定的下标 的上、下界范围之内。
第6章 数 组
6.1 数组的基本概念 数组是由多个数据组成的集合，它们在内存中连续顺序 存放，一般情况下，数组中各个数据的数据类型完全相同， 但在Visual Basic中，当数组的数据类型为Variant时，可以 包含数据类型不同的数据。 注意：数组必须先定义后使用，定义的目的是通知系统 为其保留所需要的存储空间。 6.1.1 数组与数组元素 数组中的每一个数据称为数组的元素，数组有一个统一 的名字称为数组名，引用数组中的元素时，数组名相同，用 下标区分不同的元素。使用数组和数组元素时需要注意： （1）数组名的命名与标识符的命名规则相同，但在同一个 过程中，数组名与简单变量名不能同名； （2）下标必须用圆括号括起来，如：a(1)； （3）下标可以是常量、变量或表达式；
【例6-6】记录类型数组。在窗体模块的通用声明段定义一个 记录类型（用户自定义数据类型）电话号码簿，其中包括姓 名、电话号码两个字段或成员，定义这种记录类型的数组 （包含5个数组元素），输入5个人的姓名、电话号码并在窗 体上显示，如图6-6所示。
6.3 动态数组 6.3.1 动态数组的定义及使用 动态数组的定义与元素个数固定大小的数组的定义相同， 惟一的区别是：动态数组定义时，在圆括号中没有数组的维数 和每一维的上、下界，即只有关键字、数组名、空的圆括号和 数据类型。定义动态数组的关键字、数组名、数据类型以及动 态数组的作用域，都与元素个数固定大小的数组完全相同。 真正使用动态数组时，用ReDim语句为动态数组分配元素 个数，其语法格式如下：
分析：设数组为a，要实现数组元素互不相同，每产生一个元素 a(i)，将a(i)与它前面的每一个元素，即a(1)～a(i-1)比较，如果不相同则 保留该元素值，否则，重新产生一个随机的两位正整数赋给a(i)，再将 a(i)与它前面的每一个元素比较，直到不重复为止，然后，再产生下一 个数组元素，……。 顺序查找法的查找过程是：假设输入的数为n，从数组的第一个元 素开始，将数组元素依次与n比较，如果找到某个元素与n相等，则数组 元素的下标即为n的位置，否则，该数在数组中不存在。
a(n)，将这n个元素用冒泡排序法按从大到小的顺序排列，需 要经过n-1遍扫描，每一遍扫描都从第1个元素开始，对相邻元
素比较。
第一遍扫描，从a(1)开始到a(n)，比较相邻元素，如果后 面的元素大于前面的元素则交换，经过第一遍扫描，a(n)就是
n个元素中最小的元素；第二遍扫描，从a(1)开始到a(n-1)，比
【例6-3】设有一个10×10的方阵（行值和列值相等的矩阵）， 其中，元素值为-100～100之间的随机整数，将这些值赋给数 组元素，在窗体上按10行10列输出，求出这些数中的最大值、 最小值和平均值并输出，如图6-2所示。
【例6-4】随机产生80个互不相同（不重复）的两位正整数放 入一个一维数组中，并在标签中按8行10列输出，如图6-3所示， 任意输入一个整数，并用顺序查找法找出该数是数组中的第几 个元素并输出，如果找不到，则显示“该数在数组中不存 在！”，如图6-4所示。
较相邻元素，如果后面的元素大于前面的元素则交换，经过第 二遍扫描，a(n-1)就是n个元素中第二小的元素；……。 n个元素需要扫描n-1遍，每一遍扫描中需要比较不同的次 数。
【例6-8】输入一个正整数n，在窗体上输出具有n行n列的杨 辉三角形，如图6-8所示。 分析：杨辉三角形是一个方阵的下三角（由方阵中主对角 线及其以下部分元素构成），其第一列的所有元素和斜边（方 阵中主对角线）上的所有元素均为1；其余各元素的值为其上 一行同一列元素与上一行前一列元素之和，用公式表示如下：
ReDim [Preserve] <数组名>(<维数定义>) [As <数据类型>],…
【例6-7】输入数组元素的个数n，随机产生n个1～100之间
的整数放入一个一维数组中，并将这n个元素用冒泡（起泡） 排序法按从大到小的顺序排列并输出，如图6-7所示。
冒泡（起泡）排序法：设数组a的n个元素分别为：a(1)～
（3）全局级数组：只能在标准模块的通用声明段用关键字
Public或Global定义（两个关键字的含义完全相同），全局 级数组在整个应用程序的所有模块中都有效。其语法格式如 下： Global|Public <数组名>(<维数定义>) [As <数据类型>],…
说明：
（1）定义数组维数的形式：[<下界1> To] <上界1>,[<下界 2> To] <上界2>,…
6.1.6 数组元素的存放及其元素个数的计算 数组由多个数组元素组成，一个数组元素实际上就是一个 内存变量，代表了相应数据的存储单元，一个数组的所有元素 是按次序连续顺序地存放在内存中。 在Visual Basic中，数组元素是按行的顺序连续顺序存放 的，如果是一维数组，按照数组元素下标递增次序连续顺序存 放；如果是二维及二维以上数组，按照行序方式，即先存放第 一行的数组元素，再存放第二行的数组元素，……，对于每一 行，则首先以最后一维下标的递增变化为序，然后以倒数第二 维下标的递增变化为序，其他维以此类推。
素。For Each…Next循环每循环一次，将数组中的一个元素 连续顺序地分别赋值给成员变量，数组中有多少个元素，将 循环多少次，直到将最后一个元素赋值给成员变量后结束循 环。 注意：用For Each…Next循环编写程序处理数组时，既 不需要关心数组有多少维，也不需要关心数组每一维的上、 下界是多少。
【例6-5】随机产生20个1～100之间的整数放入一个一维数 组中，并将这20个元素用比较排序法按从大到小的顺序排列并 输出，如图6-5所示。 比较排序法：设数组为a，数组a的n个元素分别为： a(1)～a(n)，将这n个元素用比较排序法按从大到小的顺序排 列，假设a(1)～a(n) 这n个元素的顺序就是从大到小的顺序， 即a(1)是n个元素中最大的元素，a(2)是第二大的元素，……， a(n)是最小的元素。 第一遍扫描，用a(1)与a(2)～a(n)之间的每一个元素比较， 只要存在某个元素大于a(1)，则将a(1)与该元素交换，经过第 一遍扫描，a(1)就是n个元素中最大的元素；第二遍扫描，用 a(2)与a(3)～a(n)之间的每一个元素比较，只要存在某个元素 大于a(2)，则将a(2)与该元素交换，经过第二遍扫描，a(2)就 是第二大的元素；……。 n个元素需要扫描n-1遍，每一遍扫描中需要比较不同的 次数。
说明：如果要将一维数组中的这20个元素用比较排序法 按从小到大的顺序排列，只需要将排序语句中进行比较的条 件判断语句“If a(j) > a(i) Then”改成“If a(j) < a(i) Then”即 可实现，以下排序算法相同。 因此，对于一维数组中的元素，只要写出从大到小排序 的程序，要实现从小到大排序的程序，仅仅改变排序语句中 进行比较的条件判断语句，将其中的关系运算符改为相反的 关系运算符：“>”→“<”或“<”→“>”即可实现；同理，要将 从小到大排序的程序改成从大到小排序的程序，也是如此。
6.2.3 数组有关的函数 1．Array()函数 Array()函数可以定义一个一维数组，并根据其参数的个 数确定数组元素的个数，然后对数组中的元素初始化，其语法 格式如下：