第4章 数组和控件数组课件.ppt

数 组;Visual Basic中的数组，按不同的方式可分为以下几类： 按数组的大小（元素个数）是否可以改变来分为：静态数组（定长数组）、动态（可变长）数组。 按元素的数据类型可分为：数值型数组、字符串数组、日期型数组、变体数组等。 按数组的维数可分为：一维数组、二维数组、多维数组。 对象数组：控件数组。 ; 一、一维数组 只有一个下标的数组，称为一维数组;说明： 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所示：;2.一维数组元素的引用 （注意：VB6.0中所有使用的数组在引用前，必须先声明）;（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.一维数组的基本操作;（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;二、 二维数组; 2. 二维数组的引用 ; ■ 二维数组在计算机内存中像一维数组一样占有一串连续的存储单元，存放顺序是按行排列。即行号小的排在前面，行号大的排在后边。如，x(2,3) ,假设两维下界都从1开始，如图所示：;2. 二维数组的基本操作 1.给数组元素赋初始值 使用for循环语句实现在数组中为n1*n2个元素赋初始值，可分