vb 数组.ppt

5.1 数组的概念 数组：是具有相同数据类型的元素所成的有序集合，每个数组是用一个统一的名称表示数组元素的集合，数组中的每一元素具有唯一索引号（即下标），可以用数组名及下标唯一地识别一个数组的元素，。 数组必须遵循先声明后使用的原则，声明一个数组就是声明其数组名、类型、维数和数组的大小。下标的个数决定数组的维数，各维下标之间用逗号分开。在VB中有一维数组、二维数组等，最多可以达到60维。按声明时是否可以确定数组的大小将数组分为静态数组和动态数组，前者大小固定，后者大小不确定，以后在使用前需要重定义。 5.2.1 静态数组 在声明数组时，给定了数组元素个数的数组称为静态数组。 数组声明的形式为： Public| Private| Dim 数组名（维数定义）[As类型] 5.2.2 动态数组 静态数组的大小在定义数组时，已经通过指定上、下界确定下来。有时，可能事先无法确认到底需要多大的数组，而希望能够在运行时改变数组的大小，这就要用到动态数组。动态数组可以在任何时候由Redim语句指出维数的大小。 创建动态数组的步骤： （1）用Public语句（公用数组）、Dim语句（模块级数组）、Static或Dim语句（局部数组）在过程中声明数组。给数组附以一个空维数表，这样就将数组声明为动态数组。 （2）在过程中用ReDim语句为声明的动态数组分配实际的元素个数，格式为： ReDim [Preserve] 数组名〈维数定义）[As 类型] 5.2.3 数组在内存中存放的顺序 数组在内存中存放时，首先变化的是最后一维的下标，然后变化倒数第二维的下标。 5.2.4 数组的清除 经过定义的数组将为其分配相应的存储空间，其大小不能改变。为了重新初始化静态数组的元素，或者释放动态数组的存储空间，可以使用Erase 语句，其语法格式为： Erase arraylist 其中：参数arraylist是一个或多个用逗号隔开的需要清除的数组变量。 5.3 数组的基本操作 5.3.1 给数组元素赋初值 可以使用循环结果和Array函数给数组赋初值。 1．使用循环结构 如给数组strMark（100）的元素赋初值： For i = 1 To 100 strName(i) = 0 Next 2．使用Array 函数 Array 函数Variant的作用返回一个Variant型的数组，其语法格式为： 变量名=Array(列表)  5.4.1 控件数组的概念 5.4.2 控件数组的建立 1．设计时创建控件数组 5.5 自定义数据类型数组的应用 5.6 综合实例 1.冒泡法排序 2.选择法排序 3.插入法排序 5.6.2 数据分类统计 插入法排序的思路是（假设将有数组A(1 To n)升序排列）： 第一轮：将A(2)取出与A(1)进行比较，如A(2) A(1)，则将A(1)与 A(2)换位。 第二轮：将A(3)取出与A(1)、 A(2)进行比较，按顺序确定A(3)应放的位置。 以后依次将后面的数插入到排好序的数列中，直到所有的数按顺序排列。 For I=2 To N A(J+1)=T 将A(I)的值插入到A(J+1)中 Do While TA(J) And J0 J=J-1 再看前面一个 A(J+1)=A(J) A(J)后移 T=A(I) J=I-1 图5-9 插入法排序流程图 * 5.1 数组的概念 5.2 静态数组和动态数组 5.3 数组的基本操作 5.4 控件数组 5.5 自定义数据类型数组的应用 数 组 返回 退出 5.6 综合实例 例5-1：求35名学生的平均成绩以及最高成绩。 程序1： Dim aver As Integer, mark As Integer For i = 1 To 35 mark = InputBox(输入第 i 位学生的成绩, 数据输入) If mark maxmark Then maxmark = mark aver = aver+mark Next Print aver = aver/35; maxmark 程序2： Dim aver As Integer, mark(1 To 35) As Integer For i = 1 To 35 mark(i) = InputBox(输入第 i 位学生的成绩, 数据输入) If mark(i) maxmark Then maxmark = mark(i