《VisulBasic程序设计课件chapter7》精选·课件.pptVIP

第7章 数 组 7.1 数组的概念 7.2 数组的定义和使用 7.3 多维数组 7.4 数组的基本操作和排序 7.5 数组的常用方法 7.6 结构类型及其数组 7.7 综合应用 7.1 数组的概念 7.2 数组的定义和使用  7.2.1数组的定义 7.2.2 数组的输入输出 例如：产生10个100以内的整数放入数组a中 Dim a(9) AS Integer For i = 0 To 9 a(i) = Int(Rnd*100) Next i 3、数组的输出 For i = 0 To 9 textbox1.text =a(i) space(3) Next i 7.2.3改变数组大小 重定义数组大小注意： 7.3 数组的基本操作1、求数组和、最值、位置 2、交换元素 3、数组排序 选择法排序 冒泡法排序 5、插入数据 6、删除数据 7.4 多维数组 7.4.1 多维数组声明 7.4.2 多维数组赋值 例 Dim x(,) As Integer = {{1,2,3,4}, {5,6,7,8}} 例如： Dim b(3,4) AS Integer For i = 0 To 3 For j = 0 To 4 b(i,j) = InputBox(输入 i “, j 元素) Next j Next i 7.4.3 多维数组输出 提示:杨辉三角形 7.5 数组的常用方法 7.5.1 Array.*方法 1、Array.sort(a) 2、Array.Reverse(a) 3、Array.IndexOf(a,key，k，n) 在数组a中从下标k开始的n个元素中找为key的元素，返回其下标 *4、Array.Rank(a) :返回数组a的维数 *5、Array.clear(a,k,n): 清除数组a中从k开始的n个元素 7.5.2其它常用方法 1、 Filter筛选 功能:从一维字符串数组中找到符合条件的元素 例如:res=Filter(Source,Match,Include,Compare) 说明: Source: 要筛选的数组名 Match: 要搜寻的字符串(或子串) Res:返回的符合条件的内容(一般是动态数组) 2 CopyTo方法 3 GetLength方法 7.6 结构类型及其数组 结构类型 2、结构变量的声明 3、结构变量成员的引用 4.结构数组及应用 思考题 例5.9 利用结构类型，声明一个结构数组，输入不超过100个个学生的信息，显示全部信息和查询某学校的学生情况。 分析：自定义一个记录类型，由姓名、性别、电话、学校组成，声明一个存放最多100个记录的数组，在标准模块自定义类型如下 本章目录 代码说明 例5.10 输入一串字符，统计各字母出现的次数 统计26个字母出现的个数，必须声明一个具有26个元素的数组，每个元素的下标表示对应的字母，元素的值表示对应字母出现的次数。 从输入的字符串中逐一取出字符，判断前转换成大写字符(不区分大小写)，再进行判断。 本章目录 7.7 综合应用 1. 怎样声明一维数组？ 2.怎样确定数组中每一维的上界？ 3.怎样引用数组中的一个元素？ 4.如何防止数组越界错误的发生？ 5.怎样定义一个结构类型？ 6.结构类型与数组的区别是什么？ 本章目录 * * 本章目录 1. 引例 例5.1 求100个学生的平均成绩，并统计高于平均分的人数。用简单变量和循环，求平均成绩程序段如下： aver = 0 For i = 1 To 100 mark = InputBox(输入学生成绩) aver = aver + mark Next i aver = aver / 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