数组和自.pptVIP

第5章 数组和自定义类型 5.1 数组的概念 5.2 数组的基本操作和排序 5.3 列表框和组合框控件 5.4 自定义类型及其数组 5.5 综合应用 5.1 数组的概念 1. 引例 例5.1 求100个学生的平均成绩，并统计高于平均分的人数。用简单变量和循环，求平均成绩程序段如下： aver = 0 For i = 1 To 100 mark = InputBox(输入学生成绩) aver = aver + mark Next i aver = aver / 100 问题 （1）mark只能放一个学生的成绩，无法统计高于平均分的人数。 （2）若用简单变量保存100个学生的成绩，则需定义100个变量和使用100句输入语句。由此引入了数组。 用数组解决问题的程序如下： Dim mark(99) As Integer 声明数组mark Dim aver!, overn%, i% aver = 0 For i = 0 To 99 输入成绩，求分数和 mark(i) = InputBox(输入学生的成绩) aver = aver + mark(i) Next i aver = aver / 100 求100人的平均分 overn = 0 For i = 0 To 99 统计高于平均分的人数 If mark(i) aver Then overn = overn + 1 Next i MsgBox (平均分: aver 高于平均分人数: overn) 数组 数组: 不是一种数据类型，而是一组相同类型的变量的集合。 数组中的所有元素都具有相同的数据类型 作用：用一个数组名代表逻辑上相关的一批数据，用下标表示该数组中的各个元素，和循环语句结合使用，使得程序书写简洁。 两类数组： 静态(定长)数组 动态(可变长)数组 使用：必须先声明后使用 5.1.2定长数组及声明 在声明一个具有固定大小的数组时，要在数组名称后的圆括号中输入上边界值。 上边界不能超出整型数据类型的范围 形式： Dim 数组名(下标1[,下标2…]) [As 类型] 声明了数组的名、维数、大小、类型 维数：几个下标为几维数组，最多60维。 下标：[下界 To ] 上界 省略下界为0 ,必须为常数。 每一维大小：上界－下界+1 数组大小： 每一维大小的乘积 5.1.2定长数组及声明 一维数组 Dim 数组名([下标下界 To] 上界) [As 类型] 说明：下标下界缺省为0，下标上界为常数。 作用：声明了数组名、类型、维数、数组大小 在内存分配一块连续的区域。 2.多维数组声明 Dim 数组名(([下标1下界 To] 上界1， ([下标下界2 To] 上界2…) [As 类型] 下标数决定了数组的维数，数组的大小为每一维大小的乘积。 每一维大小：上界－下界+1 数组大小： 每一维大小的乘积 可用下界声明两个或两个维数的中任何一个 Static aa(8,8) as double 声明二维的9*9的数组 Dim bb(1 to 5,1 to 6) as double 声明二维的5*6的数组 Dim x(2,4) As Long 声明了一个长整型的二维数组 x；共占据3×5个长整型变量的空间 2.多维数组 Dim lArray( 0 To 3， 0 To 4) As Long 共有 4×5个元素 等价于: Dim lArray(3， 4) As Long 注意： (1)VB中数组默认下界为0，也可在窗体层或标准模块层重新定义数组的下界。例如： Option Base 1 (2)Dim语句中的下标只能是常量,不能是变量. 错误的声明，下标是变量 n =Inputbox(输入n ）：Dim x(n) As Single (3)在数组声明中的下标说明了数组的整体，即每维的大小；而在程序其他地方出现的下标表示数组中的一个元素。两者写法形式相同，但意义不同。 例如： Dim x(10) As Integer 声明了x数组有11个元素 x(10)=100 对x(10)这个数组元素赋值 5.1.3 动态数组及声明 若不清楚要使用多在的数组,就可以使用动态数组，该数组能在任何时间缩放.最初声明动态数组后，可根据需要给它添加新的元素，它不是在编写程序时就确定大小的. 5.1.3 动态数组及声明