VisualBasic6.0程序设计教程(第3版) 第5章 数组及应用.pptVIP

输入10个数，输出它们的平均值及大于平均值的那些数？ 输入10个数，输出它们的平均值及大于平均值的那些数。 5.1 概 述 数组的概念：数组并不是一种数据类型，而是一组相同类型数据的集合。用一个统一的名字（数组名）代表逻辑上相关的一批数据，每个元素用下标变量来区分；下标变量代表元素在数组中的位置。 一维数组形式: 说明： 1．数组名的命名规则与变量的命名相同。 2．数组的元素个数：上界-下界+1。 3．缺省下界为0，若希望下标从1开始，可在模块的通用部分使用Option Base语句将设为1。其使用格式是： Option Base 0|1 ‘ 后面的参数只能取 0 或 1 例如： Option Base 1 ‘ 将数组声明中缺省下界下标设为 1 5.如果省略As子句，则数组的类型为变体类型。 6．数组中各元素在内存占一片连续的存储空间。 动态数组：在声明时未给出数组的大小。在程序执行时分配存储空间。 5.4.1 动态数组的建立及使用 建立动态数组包括声明和大小说明两步： 1．在使用Dim、Private或Public语句声明括号内为空的数组。 格式：Dim | Private|Public 数组名（）As 数据类型 例：Dim a() As Integer 2．在过程中用ReDim语句指明该数组的大小。 格式：ReDim [Preserve] 数组名（下标1[，下标2…]） Preserve参数：保留数组中原来的数据 例：Redim A(10) Redim Preserve A(20) 5.4 动态数组 说明： （1）ReDim语句是一个可执行语句，只能出现在过程中，并且可以多次使用，改变数组的维数和大小。 （2）定长数组声时中的下标只能是常量，而动态数组ReDim 语句中的下标是常量，也可以是有了确定值的变量。 例： Private Sub Form_Click() Dim N As Integer N=Val(InputBox(“输入N=？”)) Dim a(N) As Integer ……. End sub × 5.4 动态数组 （3）在过程中可以多次使用ReDim来改变数组的大小，也可 改变数组的维数。 例：ReDim x(10) ReDim x(20) x(20) = 30 Print x(20) ReDim x(20, 5) x(20, 5) = 10 Print x(20, 5) （4）每次使用ReDim语句都会使原来数组中值丢失，可以在ReDim后加Preserve 参数来保留数组中的数据。但此时 只能改变最后一维的大小。 5.4 动态数组 例5.5 通过输入对话框输入一批正整数，将其中的偶数和奇数分别存入数组a和数组b中，然后分别以每行10个输出数组a和b。 5.4 动态数组 ☆☆ 第5章 数 组 * 第5章 数组及应用 数组定义及引用方法，与数组有关的一些常用算法 本章要求： 重点： 1.掌握数组的概念 2.掌握数组（一、二维）的定义及其引用， 3.掌握控件数组的建立及使用。 5. 掌握与数组有关的常用算法，如排序、查找、插入等。 难点： 与数组有关的一些常用算法 引例： 输入 A 当 N=10 N=N+1 打印 Ave S=0： N=1 S=S+A Ave=S/10 Dim N%, S!, A!, Ave! For N=1 to 10 A=Val(InputBox(“Enter A Number”)) S=S+A Next N Ave=S/10 Print Ave 引例： 如果使用：A1，A2，A3，A4，A5，A6，A7，A8，A9，A10 Dim N%, S!, Ave!,