《VisulBasic程序设计课件chapter7》-课件设计（公开）.pptVIP

* 4.结构数组及应用 例5.9 利用结构类型，声明一个结构数组，输入不超过100个个学生的信息，显示全部信息和查询某学校的学生情况。 分析：自定义一个记录类型，由姓名、性别、电话、学校组成，声明一个存放最多100个记录的数组，在标准模块自定义类型如下 本章目录 代码说明 * 例5.10 输入一串字符，统计各字母出现的次数 统计26个字母出现的个数，必须声明一个具有26个元素的数组，每个元素的下标表示对应的字母，元素的值表示对应字母出现的次数。 从输入的字符串中逐一取出字符，判断前转换成大写字符(不区分大小写)，再进行判断。 本章目录 7.7 综合应用 * 思考题 1. 怎样声明一维数组？ 2.怎样确定数组中每一维的上界？ 3.怎样引用数组中的一个元素？ 4.如何防止数组越界错误的发生？ 5.怎样定义一个结构类型？ 6.结构类型与数组的区别是什么？ 本章目录 谢谢！ * * * * * * * * * * * * * * * * * * * * * * * * * * 第7章 数 组 7.1 数组的概念 7.2 数组的定义和使用 7.3 多维数组 7.4 数组的基本操作和排序 7.5 数组的常用方法 7.6 结构类型及其数组 7.7 综合应用 本章目录 * 7.1 数组的概念 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 + 1 Next i MsgBox (平均分: aver 高于平均分人数: overn) 本章目录 * 数组不是一种数据类型，而是一组相同类型的变量的集合； 数组是用一个数组名代表逻辑上相关的一批数据； 用下标表示该数组中的各个元素，和循环语句结合使用，使得程序书写简洁。 本章目录 * 7.2 数组的定义和使用  7.2.1数组的定义 格式： Dim 数组名(下标上界) [As 类型] 例如： Dim a(10) As Integer Dim st$(5) 说明： 下标下界为0，上界为常数、已有值的表达式或变量。 一维数组的大小为：下标上界+1。 不要越界使用数组的元素 本章目录 * 7.2.2 数组的输入输出 1、定义时赋初值。 例 Dim a%( )={1,5,4,6} 本章目录 * 2、 数组的输入 通过TextBox控件或InputBox函数逐一输入，或者通过随机产生 本章目录 例如：产生10个100以内的整数放入数组a中 Dim a(9) AS Integer For i = 0 To 9 a(i) = Int(Rnd*100) Next i * For i = 0 To 9 textbox1.text =a(i) space(3) Next i 3、数组的输出 * 7.2.3改变数组大小 对已经存在的数组可用ReDim语句改变数组大小 ReDim 数组名 (下标[,下标2…]) 例 Dim sArray(2 ) As Single Sub Form_Load( ) … ReDim sArray(6) … End Sub 在过程外声明了数组sArray，在Form1_Load事件中重新指明数组的大小为7。 本章目录 * 重定义数组大小注意： Dim 是说明语句，可出现在程序的