第 7章 数组与自定义类型 第7章数组与自定义类型 7.1数组的基本概念 7.2数组的声明 7.3数组的基本操作 7.4常用算法 7.5控件数组 7.6自定义数据类型
第7章数组与自定义类型 第 7 章 数组与自定义类型 7.1 数组的基本概念 7.2 数组的声明 7.3 数组的基本操作 7.4 常用算法 7.5 控件数组 7.6 自定义数据类型
第 章 数 组 5 求某门课6个学生成绩中，高于平均分的学生人数 方法一：用6个变量分别存放6个学生的成 定 型
第 7 章 数 组 与 自 定 义 类 型 引例 求某门课6个学生成绩中，高于平均分的学生人数 方法一：用6个变量分别存放6个学生的成 绩
Private Sub Command2_Click() Dim x As Single,y As Single,z As Single,u As Single,v As Single,w As Single Dim avg As Single,t As Integer ×=Val(InputBox("请输入第1个学生的成绩"，"输入"，0) y=Vl(InputBox("请输入第2个学生的成绩"，"输入"，O)》 z=Val(InputBox("请输入第3个学生的成绩"，"输入"，0) u=Val(InputBox("请输入第4个学生的成绩"，"输入"，0) v=Vl(InputBox("请输入第5个学生的成绩"，"输入"，0) W=Vl(InputBox("请输入第6个学生的成绩"，"输入"，O) Print x;y;z;u;v;w avg=(x +y+z+u+v+w)/6 If x avg Then t=t+1 If y avg Thent=t+1 If z avg Then t=t+1 If u avg Then t=t+1 If v avg Then t=t+1 If w>avg Then t=t+1 Print"平均成绩为："；avg Print"高于平均成绩的有"&t&"人" End Sub
第 7 章 数 组 与 自 定 义 类 型 Private Sub Command2_Click() Dim x As Single, y As Single, z As Single, u As Single, v As Single, w As Single Dim avg As Single, t As Integer x = Val(InputBox("请输入第1个学生的成绩", "输入", 0)) y = Val(InputBox("请输入第2个学生的成绩", "输入", 0)) z = Val(InputBox("请输入第3个学生的成绩", "输入", 0)) u = Val(InputBox("请输入第4个学生的成绩", "输入", 0)) v = Val(InputBox("请输入第5个学生的成绩", "输入", 0)) w = Val(InputBox("请输入第6个学生的成绩", "输入", 0)) Print x; y; z; u; v; w avg = (x + y + z + u + v + w) / 6 If x > avg Then t = t + 1 If y > avg Then t = t + 1 If z > avg Then t = t + 1 If u > avg Then t = t + 1 If v > avg Then t = t + 1 If w > avg Then t = t + 1 Print "平均成绩为："; avg Print "高于平均成绩的有" & t & "人" End Sub
第 7 章 数 组求 某门课6个学生成绩中的高于平均分的学生人数 马 法一：用6个变量分别存放6个学生的成绩。 定 缺点：如果处理的数据增多，需要定义许多变量， 义 给程序的编写带来极大的不方便。 型 法二：用一个变量来接收6个学生的成绩（多次 值
第 7 章 数 组 与 自 定 义 类 型 引例 求某门课6个学生成绩中的高于平均分的学生人数 方法一：用6个变量分别存放6个学生的成绩。 缺点：如果处理的数据增多，需要定义许多变量， 给程序的编写带来极大的不方便。 方法二：用一个变量来接收6个学生的成绩（多次 赋值）
第 Private Sub Command1_Click() Dim avg As Single,x As Single,i As Integer,sum As Single,t As Integer For i=1To 6 X=Val(InputBox("请输入第"&i&"个学生的成绩"，"输入"，O)》 sumsum x Print x; Next i avg sum/6 For i=1 To 6 X=Val(InputBox("请输入第"&i&"个学生的成绩"，"输入"，O) If x>avg Then t=t+1 Next i Print Print"平均成绩为："&avg Print"高于平均成绩的有："&t&"人" End Sub
第 7 章 数 组 与 自 定 义 类 型 Private Sub Command1_Click() Dim avg As Single, x As Single, i As Integer, sum As Single, t As Integer For i = 1 To 6 x = Val(InputBox("请输入第" & i & "个学生的成绩", "输入", 0)) sum = sum + x Print x; Next i avg = sum / 6 For i = 1 To 6 x = Val(InputBox("请输入第" & i & "个学生的成绩", "输入", 0)) If x > avg Then t = t + 1 Next i Print Print "平均成绩为：" & avg Print "高于平均成绩的有：" & t & "人" End Sub
第 7 章 数 求某门课6个学生成绩中的高于平均分的学生人数 5 自方 一 用6个变量分别存放6个学生的成绩。 定 缺点：如果处理的数据增多，需要定义许多变量，给程序 义 的编写带来极大的不方便。 型方 法二：用一个变量来接收6个学生的成绩（多次赋 缺点：已处理过的数值不保存，再次对数据处理时，要重 新输入
第 7 章 数 组 与 自 定 义 类 型 引例 求某门课6个学生成绩中的高于平均分的学生人数 方法一：用6个变量分别存放6个学生的成绩。 缺点：如果处理的数据增多，需要定义许多变量，给程序 的编写带来极大的不方便。 方法二：用一个变量来接收6个学生的成绩（多次赋 值）。 缺点：已处理过的数值不保存，再次对数据处理时，要重 新输入
第 1数组概述 章 组 1、数组的有关概念 马 (1)数组：是一个由多个同类型变量组成的集合，简单 定 的讲就是一组同类型的变量。 (2)数组名：这组变量有统一的名称，就是数组名。 (3)数组元素：构成数组的成员。每个数组元素和一个 型 普通变量一样能存放一个数据。 (4)下标：用来标识数组中的每一个元素的序号。 如，有一个数组a,数组元素可分别表示为： ...a(1),a(2),a(3),a(4)
第 7 章 数 组 与 自 定 义 类 型 7.1 数组概述 1、数组的有关概念 （1）数组：是一个由多个同类型变量组成的集合，简单 的讲就是一组同类型的变量。 （2）数组名：这组变量有统一的名称，就是数组名。 （3）数组元素：构成数组的成员。每个数组元素和一个 普通变量一样能存放一个数据。 （4）下标：用来标识数组中的每一个元素的序号。 如，有一个数组a，数组元素可分别表示为： ……a(1), a(2), a(3), a(4)……
第 7章 7.1数组概述 数组 2、数组的特点 与 自定 (1)数组由若干个数组元素组成，数组元 素的数据类型一致。 (2)数组元素是有次序存放的，下标代表 美型 它在数组中的位置。 (3)数组中各元素之间有内在联系，在内 存中占连续的一段存储单元
第 7 章 数 组 与 自 定 义 类 型 7.1 数组概述 2、数组的特点 （1）数组由若干个数组元素组成，数组元 素的数据类型一致。 （2）数组元素是有次序存放的，下标代表 它在数组中的位置。 （3）数组中各元素之间有内在联系，在内 存中占连续的一段存储单元
第 7章 7.1数组概述 组 3、数组的分类 (1)按照定义时数组元素个数确定与否，数组 定 可分为： ·静态数组：定义时数组元素的个数就已经确定 ·动态数组：定义时数组元素的个数不确定，在 型 程序运行时根据需要才确定数组元素的多少 (2) 按照数组元素下标的个数，数组可分为： ·一维数组：数组元素有一个下标 二维数组：数组元素有两个下标 多维数组：数组元素有多个下标
第 7 章 数 组 与 自 定 义 类 型 7.1 数组概述 3、数组的分类 （1）按照定义时数组元素个数确定与否，数组 可分为： ◼ 静态数组：定义时数组元素的个数就已经确定 ◼ 动态数组：定义时数组元素的个数不确定，在 程序运行时根据需要才确定数组元素的多少 （2）按照数组元素下标的个数，数组可分为： ◼ 一维数组：数组元素有一个下标 ◼ 二维数组：数组元素有两个下标 ◼ 多维数组：数组元素有多个下标
第 7章 7.2一维静态数组 组 1、一维静态数组的定义： 马 Dim数组名（下界To上界）[As] 自定 其中： ()数组名：数组的名称，命名要符合变量命名规则 美型 (2)下界T。上界：维说明，确定数组元素下标的取值 范围及数组元素的个数（上界-下界+1）。 (3)[As]：用来指明数组元素的类型，默认 为变体类型。 2
第 7 章 数 组 与 自 定 义 类 型 7.2 一维静态数组 1、一维静态数组的定义： Dim 数组名(下界 To 上界)[As ] 其中： （1）数组名：数组的名称，命名要符合变量命名规则 （2）下界 To 上界：维说明，确定数组元素下标的取值 范围及数组元素的个数(上界-下界+1)。 （3）[As ]：用来指明数组元素的类型，默认 为变体类型