新Visual Basic 6.0程序设计教程 第4版 普通高等教育“十一五”国家级规划教材 教学课件 罗朝盛 第4章 数组及应用.pptVIP

输入10个数，输出它们的平均值及大于平均值的那些数？ 输入10个数，输出它们的平均值及大于平均值的那些数。 4.1 概 述 数组的概念：数组并不是一种数据类型，而是一组相同类型数据的集合。用一个统一的名字（数组名）代表逻辑上相关的一批数据，每个元素用下标变量来区分；下标变量代表元素在数组中的位置。 一维数组形式: 说明： 1．数组名的命名规则与变量的命名相同。 2．数组的元素个数：上界-下界+1。 3．缺省下界为0，若希望下标从1开始，可在模块的通用部分使用Option Base语句将设为1。其使用格式是： Option Base 0|1 ‘ 后面的参数只能取 0 或 1 例如： Option Base 1 ‘ 将数组声明中缺省下界下标设为 1 5.如果省略As子句，则数组的类型为变体类型。 6．数组中各元素在内存占一片连续的存储空间。 4.3.5 多维数组的声明和引用 定义多维数组的格式如下： Dim 数组名([下界] to 上界，[下界 to ]上界，……) [As 数据类型] 例如： Dim a(5,5,5) As Integer 声明a是三维数组 Dim b(2,6,10,5) As Integer 声明b是四维数组 4.3 二维数组及多维数组 动态数组：在声明时未给出数组的大小。在程序执行时分配存储空间。 4.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) 4.4 动态数组 说明： （1）ReDim语句是一个可执行语句，只能出现在过程中，并且可以多次使用，改变数组的维数和大小。 （2）定长数组声时中的下标只能是常量，而动态数组ReDim 语句中的下标是常量，也可以是有了确定值的变量。 例： Private Sub Form_Click() Dim N As Integer N=Val(InputBox(“输入N=？”)) Dim a(N) As Integer ……. End sub × 4.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 参数来保留数组中的数据。但此时 只能改变最后一维的大小。 4.4 动态数组 例4.5 通过输入对话框输入一批正整数，将其中的偶数存入数组a中，然后分别以每行10个输出。 4.4 动态数组 Private Sub Form_Click() Dim a() As Integer 声明两个可变数组 Dim os%,n%, i% n = Val(InputBox(输入一个，输入-1结束)) Do While n -1 当输入-1时结束 If n Mod 2 = 0 Then 判断是不是偶数