数组和自定义类型.pptVIP

1,第5章 数组和自定义类型,5.1 数组的概念 5.2 数组的基本操作 5.3 列表框和组合框控件 5.4 自定义类型及其数组 5.5 综合应用 5.6 常见错误,2,5.1 数组的概念,5.1.1 数组的概念 1.引例 例5.1 求100个学生的平均成绩，并统计高于平均分的人数。用简单变量和循环，求平均成绩程序段如下： aver = 0 For i = 1 To 100 mark = InputBox(“输入学生成绩“) aver = aver + mark Next i aver = aver / 100 由于循环体内变量mark只能放一个学生的成绩，无法统计高于平均分的人数。若用简单变量保存100个学生的成绩，则需定义100个变量和使用100句输入语句。,3,用数组解决问题的程序如下： Dim mark(99) As Integer 声明数组mark Dim ave!, n%, i% ave = 0 For i = 0 To 99 输入成绩，求分数和 mark(i) = InputBox(“输入学生的成绩“) ave = ave + mark(i) Next i ave = ave / 100 求100人的平均分 n = 0 For i = 0 To 99 统计高于平均分的人数 If mark(i) ave Then n = n + 1 Next i MsgBox (“平均分:“ & ave & “高于平均分人数:“ & n),4,2.数组的概念 概念：在VB中，把一组相互关系密切的数据放在一起并用一个统一的名字作为标志，就是数组。 一般来说，数组就是一组相同类型的变量的集合。 数组的分类： 按数组的大小分为定长数组（静态）和变长数组（动态）。 按元素的类型分为数值型、字符型、日期型、变体数组等。 按数组的维数分为一维数组、二维数组、多维数组。 按对象不同分为菜单对象数组和控件数组。 数组必须先声明后使用。声明数组名、类型、维数和数组大小。 使用数组元素时，下标不能超出上下界范围，,5,5.1.2 静态数组及声明 在声明时确定了大小的数组称为静态数组。静态数组从建立到消亡整个阶段中数组的大小是固定的。 静态数组的声明形式： Dim 数组名(下标1,下标2) As 类型 声明了数组的名、维数、大小、类型（省略时为变体类型） 维数：几个下标为几维数组，最多60维。 下标：下界 To 上界 省略下界为0，必须为常数。 每一维大小：上界下界+1 数组大小： 每一维大小的乘积 例：Dim mark(1 to 100) As Integer,6,Dim lArray( 0 To 3， 0 To 4) As Long 共有 45个元素 等价于: Dim lArray(3， 4) As Long,注意：(1)下界缺省为0，也可重新定义数组的下界。例如： Option Base 1 (2)错误的声明：下标是变量 n =Inputbox(“输入n “ ）：Dim x(n) As Single (3)在数组声明中的下标说明了数组的整体，即每维的大小； 而在程序其他地方出现的下标表示数组中的一个元素。两者写法形式相同，但意义不同。 例如： Dim x(10) As Integer 声明了x数组有11个元素 x(10)=100 对x(10)这个数组元素赋值,7,5.1.3 动态数组及声明,动态数组指在声明数组时未给出数组的大小(省略括号中的下标)，当要使用它时，随时用ReDim语句重新指出数组大小。 建立动态数组要分两步： （1）用Dim 语句声明数组，但不能指定数组大小 Dim 数组名( ) As 数据类型 （2）用ReDim语句动态地分配元素个数 ReDim 数组名 (下标,下标2) 例：Dim s ( ) As Single Sub Form_Load( ) ReDim s(4，8) End Sub,8,定义动态数组大小注意：,1.Dim 是说明语句，可出现在程序的任何地方，而ReDim是执行语句，只能在过程中。 2.在过程中可多次使用ReDim语句来改变数组的大小和维数，但不能改变类型。 3.可在ReDim后加Preserve参数用来保留数组中的数据，若使用Preserve参数后，只能改变最后一维的大小。 4.Dim语句中的下标只能是常量，ReDim中的下标可以是常量，也可以是有了确定值的变量或表达式。 5.静态数组在程序编译时分配存储单元，动态数组在运行时分配存储单元。 例5.2编一个程序，显示有n个数的非波那契数序列。,9,1. 数组赋初值 (1)用循环 For i = 1 To 10 A(i)=i+3 Next i,注意： （1）利用Array对数组各元素赋值，声明的数组是动态数组或连圆括号都可省的变量，并且其类型只能是Variant。 （2）数组的下界为零，也可由Option Base决定。上界可由Array函数括号内的参数个数决定，也可通过函数Ubound获得。下界可由LBound函数获得。格式：UBound(数组名，N）其中N指定返回哪一维的上界。,(2) Array函数(只能是一维变体数组) Dim b As Variant b = Array(“abc“, “def“, “67“) For i = 0 To UBound(b) Print b(i); “ “; Next i,5.2 数组的基本操作,10,2.数组的整体赋值 在VB6.0中，提供了数组直接对数组的赋值。例如： Dim a() As Variant, b() As Variant, i% a = Array(1, 2, 3, 4, 5) b = a,注意：赋值号左边的数组只能声明为Variant的动态数组或简单变量。,3.数组的输入 对于数组的输入，可用文本框加些技术处理，也可用InputBox函数。例如： For i=0 to 3 for j=0 to 4 a(i,j)=InputBox(“输入” & i & “,” & j & “的值”) next j Next i,11,4.数组的输出,例5.3 形成55的方阵，分别输出方阵中各元素、上三角和下三角元素。,方阵规律：第一行的元素为04，以后每一行是前一行对应元素增加5,即s(i,j) = i*5+j 上三角规律: 每一行的起始列与行号相同,只要控制内循环的初值。 用Tab函数或Space定位控制输出的空格。,12,5.求数组和、最值、位置,例5.4 求一维数组中各元素之和、最小数组元素，并将最小值数组元素与数组中第一个元素交换。 求元素和：通过循环将每个元素进行累加。 求数组中最小元素：假设第一个元素为最小，然后将该数与其他元素逐一比较，若发现小于最小值，就用新值替换最小值，同时记录下标值。 求最大值的方法与求最小值相似。,13,6.数组排序,排序是将一组数按递增或递减的次序排列，例如按学生的成绩、球赛积分等排序。排序的算法有许多，常用的有选择法、冒泡法、插入法、合并排序等。 （1）选择法排序 基本思想：每次在若干个无序数中找最小(大)数，并放在相应的位置。,14,N个数的序列，用选择法按递增次序排序的步骤： 1) 从n个数中找出最小数的下标，出了内循环，最小数与第0个数交换位置；通过这一轮排序，第0个数已确定好。 2) 除已排序的数外，其余数再按步骤1)的方法选出最小的数，与未排序数中的第1个数交换位置。 3) 重复步骤 2)，最后构成递增序列。,15,例5.5 对已知存放在数组中的6个数，用选择法按递增顺序排序。,选择法排序过程示意,选择法演示,16,（2）冒泡法排序,基本思想是：从第一个元素开始，对数组中两两相邻的元素比较，将值较小的元素放在前面，值较大的元素放在后面，一轮比较比较完毕，一个最大的数沉底成为数组中的最后一个元素，一些较小的数如同气泡一样上浮一个位置。n个数，经过n-1轮比较后完成排序。,17,例5.6 用冒泡排序法实现例5.5的问题。,冒泡法演示,18,7.在有序数组中插入数据,插入数据基本思想是： 1）首先查找待插入数据在数组中的位置k； 2）然后从最后一个元素开始往前到下标为k的元素依次往后移动一个位置； 3) 第k个元素的位置腾出，将数据插入。,19,Private Sub Form_Click() Dim a(), i%, k%, x%, n% a = Array(1, 4, 7, 9, 12, 23, 56) n = UBound(a) x = InputBox(“输入要插入的数“) For k = 0 To n 查找欲插入数x在数组中的位置 If x a(k) Then Exit For Next k ReDim Preserve a(n + 1) 数组增加一个元素 For i = n To k Step -1 数组元素后移一位，腾出位置 a(i + 1) = a(i) Next i a(k) = x 数x插入在对应的位置，使数组保持有序 For i = 0 To n + 1 显示插入后的各数组元素 Print a(i); Next i End Sub,例5.7在有序数组a中插入数值x。,20,8.删除数据,删除操作首先也是要找到欲删除的元素的位置k；然后从k+1到n个位置开始向前移动；最后将数组元素减1。,例5.8将任意输入的值进行判断是否存在，若存在就将此元素删除。,数据删除演示,21,Private Sub Form_Click() Dim a(), i%, k%, x%, n% a = Array(1, 6, 8, 3, 5, 9, 10, 2, 7, 4) n = UBound(a) 获得数组的上界 x = InputBox(“输入要删除的数“) For k = 0 To n 查找欲删除的数组元素位置 If x = a(k) Then Exit For Next k If k n Then MsgBox (“找不到此数据“): Exit Sub For i = k + 1 To n 将x后的元素左移 a(i - 1) = a(i) Next i n = n - 1 ReDim Preserve a(n) 数组元素减少一个 For i = 0 To n 显示删除后的各数组元素 Print a(i); Next i End Sub,22,5.3 列表框和组合框,列表框：可显示多个选项供用户选择，不能直接修改其中的内容。 组合框：组合了文本框和列表框的特性而形成的一种控件。组合框有3种式样。,23,1. 共有的重要属性 (P：可在程序中设置或引用，D：可在设计状态设置。) （1）List ：PD 字符型数组，存放列表框的项目，下标是从0开始。 （2）ListIndex：P 选中的项目的序号，没有项目被选定时为-1 （3）ListCount：P 项目的数量，ListCount-1是最后一项的下标。 引用最后一个数据项：List1.List(List1.ListCount-1) （4）Sorted：D True：按字母顺序排列。 False：按加入先后顺序排列。 （5）Text：P 列表项中被选定的内容，默认属性。 List 1.List(List 1.ListIndex) = List1.Text。,24,2. 列表框的特有属性 MultiSelect： 0-None：禁止多项选择。 1-Simple：简单多项选择。 2-Extended：扩展多项选择。 SelCount: 返回在列表框中被选中项的数量。 Selected：P 逻辑数组。 Selected(i)的值为True表示第i+1项被选中。 3. 组合框的特有属性 Style：,25,4. 方法 AddItem：把一个选项加入到列表框或组合框。 对象.AddItem item , index 省略index，则新增选项添加在最后；第一个选项的index为0。 RemoveItem：删除指定的选项。 对象.RemoveItem index Clear：清除列表框或组合框的所有内容。 对象.Clear 5. 事件 列表框：Click、DblClick。 组合框：Click，只有简单组合框才有DblClick事件。 一般不需要编写Click事件过程。 通常在单击命令按钮或发生DblClick事件时才读取Text属性。,26,例5.9编写一个能对列表框进行项目添加、删除和清除的应用程序。,6.列表框和组合框的应用,27,例5.10编写一个使用屏幕字体、字号的程序,例5.11使用列表框实现数据的插入、查找、删除。,例5.12使用组合框对省和直辖市名称进行添加和修改的管理。,28,5.4 自定义类型及数组,5.4.1 自定义类型的定义 数组存放性质相同的数据集合。若不同类型信息作为一个整体来描述，例如姓名、性别、出生年月等，通过Type语句来实现。 Type 自定义类型名 元素名1 As 类型名 元素名n As 类型名 End Type,其中： 元素名：表示自定义类型中的一个成员，可以是简单变量，也可以是数组。 类型名：可以是标准类型，也可以是自定义类型。,29,例如，定义一个有关学生信息的类型： Type StudType StudType为自定义类型名 Name As String*5 姓名 Sex As String*1 性别 Telephone As Long 电话 School As String*10 学校 End Type 自定义类型不能在过程内定义，一般放在标准模块文件，默认为Public；若在窗体模块的通用声明段定义，必须加Private。,30,5.4.2自定义类型变量的使用,1.自定义类型变量的声明 定义了自定义类型，就可在变量的声明时使用。 Dim 变量名 As 自定义类型名 例如，如下语句： Dim S1 As StudType，S2 As StudType 声明S1、S2为两个同种类型的变量 注意： （1）不要混淆StudType 和S1 ，前者如同Integer等的类型名，后者根据该类型分配所需的内存空间，存储各成员数据。 （2） 类型变量和数组相同之处它们都是由若干个成员组成；不同之处，前者的成员代表不同性质、不同类型的数据，以各个不同的成员名表示；而数组一般存放的是同种性质、同种类型的数据，以下标表示不同的元素。,31,2.自定义类型变量成员的引用,引用自定义类型变量中的某个成员，形式如下： 自定义类型变量名.成员名 例如， S1.Name S1变量中的姓名 S1.Sex 性别 可利用With语句简化成员引用： With 变量名 语句块 End With,With S1 .Name = “张华“ .Sex = “男“ .School=“同济大学“ End With,32,5.4.3 自定义类型数组及应用,自定义类型数组就是数组中的每个元素是自定义类型。 例5.13用自定义类型数组,查询和显示学生信息。 分析：自定义一个记录类型，由姓名、性别、电话、学校组成，声明一 个存放100个记录的数组。,33,5.5 综合应用-分类统计,1.分类统计 将一批数据按条件统计每一类中包含的个数。例如，统计学生成绩优、良、