第4章 数组与控件数组.ppt

数 组 数组的概念：数组是一组相同类型数据的集合。用一个统一的名字（数组名）代表逻辑上相关的一批数据，每个元素用下标来区分；下标代表元素在数组中的位置。 一、一维数组 只有一个下标的数组，称为一维数组 说明： 1．数组名的命名规则与变量的命名相同。 2．数组的元素个数：上界-下界+1。 3．缺省下界为0，若希望下标从1开始，可在模块的通用部分使用Option Base语句将设为1。其使用格式是： Option Base 0|1 后面的参数只能取0或1 例如： Option Base 1 将数组声明中缺省下界下标设为1 4．下界和上界不能使用变量，必须是常量，常量可以是直接常量、符号常量，一般是整型常量。 5．如果省略As子句，则数组的类型为变体类型。 6．数组中各元素在内存占一片连续的存储空间，所需的内存容量是元素个数乘上数据类型所需的字节数， 若声明的语句为Dim a(10) As Integer,则元素个数为11，因为每个元素声明为整型变量，需2个字节，因此数组变量所需的内存容量为11*2=22个字节。 一维数组在内存中存放的顺序是下标大小的顺序，如图5-1所示： （1）数组元素的赋值 ① a(5)=“123” ② 使用InputBox函数对数组元素赋值，例如 a(5)=InputBox(“请输入一个正数”) ③ 使用随机函数Rnd对数组元素赋值，例如 a(i)=int(rnd*90)+10表示将任意两位正整数赋值于数组下标为i的元素。 int(rnd*90)+10 ’表示10~99的任意两位正整数 （2）数组元素的输出 可以用Print命令或MsgBox函数来输出数组中的元素值，例如 Print a(5) ,表示在窗体中输出数组中下标为5的元素值。 3.一维数组的基本操作 1.给数组元素赋初始值 使用For循环语句实现在数组中为n个元素赋初始值，可分成如下3种情况； （1）使用键盘给每个元素输入数据。其基本语句为： Option Base 1 Dim a(10) As Integer For i = 1 To 10 a(i) = Val(InputBox(请输入第 i 个元素)) Next i （2）给每个元素赋予随机数。 Option Base 1 Dim a(10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Next i 2.计算所有数组元素的和或平均值 Option Base 1 Dim a(10) As Integer Dim s As Integer, aver As Single …… For i = 1 To 10 s = s + a(i) Next i aver = s / 10 …… 3. 计算数组元素的最大值、最小值 Option Base 1 Dim a(10) As Integer Dim max As Integer, min As Integer …… max = a(1) min = a(1) For i = 2 To 10 If a(i) max Then max = a(i) End If If a(i) min Then min = a(i) End If Next i …… 4. 数组元素的输出 使用For循环结构和Print语句实现在窗体中输出数组中的n个元素值。其基本语句如下： For i = 1 To n Print a(i); Next I 上述语句是将a数组中的n个元素输出在窗体的同一行。 若将数组元素以每行10个元素进行输出，则应采用如下语句进行描述： For i = 1 To n Print a(i); If i Mod 10 = 0 Then Print Next i ■ 二维数组在计算机内存中像一维数组一样占有一串连续的存储单元，存放顺序是按行排列。即行号小的排在前面，行号大的排在后边。如，x(2,3) ,假设两维下界都从1开始，如图所示： 2. 二