第6章- 数组ppt课件.pptx

《第6章- 数组ppt课件.pptx》由会员分享，可在线阅读，更多相关《第6章- 数组ppt课件.pptx（49页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第6章- 数组第 6 章 数 组目录6.1 数组的概念数组的概念6.2 定长数组定长数组6.3 动态数组动态数组6.5 For EachNext循环循环6.4 数组的常用属性和方法数组的常用属性和方法6.6 自定义数组类型自定义数组类型Structure目录目录目录6.1 数组的概念数组的概念6.1.1 引例引例6.1.2 数组的概念数组的概念目录在实际应用中，常常需要处理同一类型的成批数据。在实际应用中，常常需要处理同一类型的成批数据。例如，为了处理例如，为了处理100100个学生某门课程的考试成绩，可以用个学生某门课程的考试成绩，可以用S1S1、S2S2、S3S3S100S100分别代表每

2、个学生的分分别代表每个学生的分数，其中数，其中S1S1代表第一个学生的分数，代表第一个学生的分数，S2S2代表第二个学生的分数代表第二个学生的分数。需要。需要S1S1、S2S2、S3S3S100S100共共100100个变量来存储个变量来存储, ,显然增加了应用程序的复杂度。然而，我们可以显然增加了应用程序的复杂度。然而，我们可以用一批具有相同名字、不同下标的下标变量来表示同一属性的一组数据，能用一批具有相同名字、不同下标的下标变量来表示同一属性的一组数据，能更清楚地表示它们之间的关系。更清楚地表示它们之间的关系。 【例【例6-1】输入】输入100名学生的成绩，求其平均成绩，然后统计高于平均分

3、的人数。名学生的成绩，求其平均成绩，然后统计高于平均分的人数。 考虑这个问题时，如果还用以前的简单变量，代码如下：考虑这个问题时，如果还用以前的简单变量，代码如下：56.1.1 6.1.1 引例引例Dim score1,score2,score3,score100, average As Single此处省略了变量名称score1=Val(InputBox(请输入第1位学生的成绩)score2=Val(InputBox(请输入第2位学生的成绩) 此处省略了部分代码score100=Val(InputBox(请输入第100位学生的成绩)average=(score1+score2+score3+

4、score100)/100目录如果用数组来解决这一问题，仅需一条语句：如果用数组来解决这一问题，仅需一条语句：Dim score(99) As Single即可定义一个包含即可定义一个包含100个元素的数组，而且每个数组元素个元素的数组，而且每个数组元素score(0)，score(1)，score(99)都可以像简单变量一样使用，分别存放一个学生的都可以像简单变量一样使用，分别存放一个学生的成绩，之后就可以利用循环来完成想要完成的任务。成绩，之后就可以利用循环来完成想要完成的任务。6目录 数组是具有相同数据类型且按一定次序排列的一组变量的集合数组是具有相同数据类型且按一定次序排列的一组变量的

5、集合体，构成数组的这些变量称为数组元素。数组元素之间是通过体，构成数组的这些变量称为数组元素。数组元素之间是通过下标来区分的。下标来区分的。6.1.2 6.1.2 数组的概念数组的概念目录6.2 定长数组定长数组6.2.1 定长数组的概念定长数组的概念6.2.2 一维数组的定义、赋值与引用一维数组的定义、赋值与引用6.2.3 二维数组的定义、赋值与引用二维数组的定义、赋值与引用目录6.2.1 6.2.1 定长数组的定长数组的概念概念 定长数组是在定义时就确定数组长度的数组。定长数组是在定义时就确定数组长度的数组。 定长数组的元素个数是固定不变的。定长数组的元素个数是固定不变的。目录6.2.2

6、6.2.2 一维数组的定义、赋值与引用一维数组的定义、赋值与引用一维数组：如果用一个下标就能确定数组中的不同元素，这种数组称为一维数组。一维数组：如果用一个下标就能确定数组中的不同元素，这种数组称为一维数组。（1）一维数组的定义）一维数组的定义 声明一维数组形式如下：声明一维数组形式如下： dim 数组名（下标上界）数组名（下标上界） as 数据类型数据类型 下标下界为下标下界为0，一维数组的大小为：上界，一维数组的大小为：上界+1（2）一维数组的赋值）一维数组的赋值 定义了数组之后，可以给它赋值。定义了数组之后，可以给它赋值。 通常可以通过一个通常可以通过一个for循环给该数组赋值。循环给该

7、数组赋值。 数组定义时，可直接赋值。数组定义时，可直接赋值。 dim a() as integer=100,100,100,100,100VB.NET是用基于所提供的值来计算上界的。是用基于所提供的值来计算上界的。下面的声明是不允许的：下面的声明是不允许的： dim a(4) as integer=100,100,100,100,100显式声明了长度的数组不能直接在初始化时赋值。显式声明了长度的数组不能直接在初始化时赋值。 10目录访问一维数组访问一维数组只需要在数组变量名后加上小括号，并且括号内指定访问第只需要在数组变量名后加上小括号，并且括号内指定访问第几个元素。其语法如下：几个元素。其语

8、法如下： Name(index)例如：例如： dim a(10) as integer则：则：a(4), a(8)等都可以访问。但要注意：下标不能超界。等都可以访问。但要注意：下标不能超界。11目录一维数组应用举例一维数组应用举例 【例【例6-1】输入】输入100名学生的成绩，求其平均成绩，然后统计高于平均名学生的成绩，求其平均成绩，然后统计高于平均分的分的人数。人数。12分别对“输入成绩”和“统计”按钮编写事件处理程序，代码如下：目录程序代码：程序代码：13Public Class Form1 在窗体模块的通用声明部分声明的编程元素，在各个过程中都有效 Dim score(99) As Si

9、ngle 声明定长一维数组，数组有100个元素 Dim flag As Boolean=False 设置标记，用于判断是否输入了分数 Dim i As Integer Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1. Click 输入成绩 For Me.i=0 To 99 循环控制变量i也就是数组元素的下标 score(i)=Val(InputBox(请输入第+(i+1).ToString+个学生的成绩) 从键盘输入分数 Next flag=True 输入分数后，将标记的值改为True Ms

10、gBox(输入结束) End Sub目录程序代码：程序代码： Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2. Click 统计Dim aver As Single=0.0 定义变量aver，放平均分 Dim n As Integer=0 定义变量n，放高于平均分的人数 If flag=False Then 如果一个分数也没有输入，则用消息框提示 MsgBox(请先输入成绩) Else For Me.i=0 To 99 本循环结构求分数总和 aver+=score(i) Next aver=

11、aver/100 求100人的平均分数 For Me.i=0 To 99 本循环结构统计高于平均分的人数 If score(i)aver Then n=n+1 End If Next TextBox1.Text=aver.ToString 输出平均分 TextBox2.Text=n.ToString 输出高于平均分的人数 End If End SubEnd Class目录 【例【例6-2】求一维整型数组】求一维整型数组A（数组长度任意）的最大值和最小值（数组长度任意）的最大值和最小值。15分析：按照题目要求，需要定义两个整型变量来存储数组的最大值和最小值，假设变量名为Max和Min。不管是求最

12、大值还是最小值，都要将数组A中的每一个元素和最大值变量Max或者最小值变量Min比较，不满足大小要求的，修改Max值或Min值。由于整型变量定义后被自动初始化为0，也就是说Max和Min的初值都是0，如果直接将数组元素与Max、Min比较，那么当数组元素均为负值时求最大值或者当数组元素均为正值时求最小值，将导致结果不正确。如何为变量Max、Min赋一个合理的初值是本例中需要首要考虑的地方。题目要求的是数组所有元素中的最大值和最小值，只有将Max、Min的初值设为数组元素值之一才是最简单合理的，那么就用数组首元素为其赋值。目录程序代码：程序代码：Private Sub Button1_Click

13、(sender As Object, e As EventArgs) Handles Button1.Click Dim A() As Integer Dim n, i, Max, Min As Integer Dim stroutput As String= n=Val(InputBox(请输入n值) ReDim A(n-1) For i=0 To n-1 A(i)=Val(InputBox(请输入第 & i+1 & 个数组元素) stroutput=stroutput & Str(A(i) Next Max=A(0) : Min=A(0) 将Max和Min的初值设为第一个数组元素 For

14、i=1 To n-1 从第二个数组元素开始进行遍历比较 If A(i)Max Then Max=A(i) If A(i)mark(n) Then mark(n+1)=mark(n+1)+1 Next i For i=0 To n-1 str1=str1 & mark(i) & vbCrLf Next i str2=平均分= & mark(n) & vbCrLf & 高于平均分的人数= & mark(n+1) TextBox1.Text=str1 MsgBox(str2, , 成绩统计结果)End Sub目录 【例【例6-7】编程输出斐波那契数列（】编程输出斐波那契数列（Fibonacci）的前

15、）的前N项。斐波那契数列为项。斐波那契数列为1、1、2、3、5、8分析：如果题目要求输出的是数列的前20项、30项，可以使用定长数组，但题目要求输出前N项，N是一个不确定的值，只能使用动态数组。斐波那契数列的前两项值为1，从第三项开始，每一项的值都是其相邻前两项的值之和。目录 程序代码如下：程序代码如下：Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim fib() As Long Dim i, N As Integer Dim stroutput As String N=V

16、al(InputBox(请输入斐波那契数列的项数n(n1) ReDim fib(N-1) 声明存放n个斐波那契数列值的数组 fib(0)=1:fib(1)=1 为数列前两项赋初值 stroutput=Str(fib(0)&Str(fib(1) For i=2 To N-1 fib(i)=fib(i-2)+fib(i-1)从第三项开始依次计算数列值 stroutput=stroutput&Str(fib(i) Next MsgBox(当N= & N & 时，斐波那契数列为: & vbCrLf & stroutput, , MsgBox(当N= & N & 时，斐波那契数列为: & vbCrLf

17、& stroutput, , 斐波 那契数列) End Sub 例6-7运行结果目录 在在VB.NET中，所有数组都是从中，所有数组都是从System命名空间中的命名空间中的Array类继承的，用户可以在任何数组类继承的，用户可以在任何数组中访问中访问System.Array类的方法和属性。下面列出的是类的方法和属性。下面列出的是Array类的常用属性、方法及说明。类的常用属性、方法及说明。 （1）Rank属性：数组的维数称为数组的属性：数组的维数称为数组的“秩秩”，Rank 属性返回数组的秩。属性返回数组的秩。 （2）Length属性：获取数组所有维度中的元素总数。可以通过更改单个维的大小来

18、更改属性：获取数组所有维度中的元素总数。可以通过更改单个维的大小来更改数组的总大小，但是不能更改数组的秩。数组的总大小，但是不能更改数组的秩。 （3）GetLength( )方法：获取数组指定维度的长度，其中作为该方法参数的维度是从零开方法：获取数组指定维度的长度，其中作为该方法参数的维度是从零开始的。始的。 （4）GetLowerBound( )方法和方法和GetUpperBound( )方法。获取数组指定维度的索引下界和上方法。获取数组指定维度的索引下界和上界。每个维度的最小索引值始终为界。每个维度的最小索引值始终为0，而，而GetUpperBound( )方法返回指定维的最大索引值。方法

19、返回指定维的最大索引值。对于每个维，对于每个维，GetLength( )的返回值都比的返回值都比GetUpperBound的返回值大的返回值大1。与。与GetLength( )一样，一样，为为GetUpperBound( )指定的维度也是从零开始的。例如：指定的维度也是从零开始的。例如： （5）方法：对一维数组中的元素按升序进行排序。方法：对一维数组中的元素按升序进行排序。6.4 数组的常用属性和方法数组的常用属性和方法目录 【例【例6-8】定义一维数组】定义一维数组A和二维数组和二维数组B（数组长度任意），使用（数组长度任意），使用System.Array类类的方法和属性输出数组的秩和数组的

20、长度。的方法和属性输出数组的秩和数组的长度。程序代码如下： Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim A() As Integer Dim B(,) As Single Dim n As Integer, stroutput As String n=Val(InputBox(请输入n值) ReDim A(n-1), B(n-1, n-1) stroutput=一维数组A的秩为 & A.Rank & ,长度为 & A.Length & vbCrLf stroutput

21、=stroutput & 二维数组B的秩为 & B.Rank & ,长度为 & B.Length MsgBox(stroutput)End Sub目录6.5 For Each Next循环6.5.1 For Each Next循环的格式6.5.2 For Each Next循环的执行过程目录6.5.1 For Each Next6.5.1 For Each Next循环的格式循环的格式 For Each 元素元素 As 数据类型数据类型 In 组合组合 循环体循环体 Exit For 循环体循环体 Next 元素元素目录6.5.2 For Each Next6.5.2 For Each Nex

22、t循环的执行循环的执行过程过程 1进入循环进入循环 当执行当执行For EachNext循环时，如果组合所表示的集合或数组中至少有一个元素，循环时，如果组合所表示的集合或数组中至少有一个元素，就执行循环体。如果不是，将引发异常。进入循环后，程序对组合中第一个元就执行循环体。如果不是，将引发异常。进入循环后，程序对组合中第一个元素执行循环中的所有语句。如果组合中还有其他的元素，则针对它们继续执行素执行循环中的所有语句。如果组合中还有其他的元素，则针对它们继续执行循环中的语句，当组合中的所有元素都执行后退出循环，执行循环中的语句，当组合中的所有元素都执行后退出循环，执行Next语句之后的语句之后的

23、语句。语句。 2循环的迭代循环的迭代 每次遇到每次遇到 Next 语句时，系统都返回至语句时，系统都返回至For Each语句。根据组合中是否还有元素来语句。根据组合中是否还有元素来再次执行循环体或者终止循环。再次执行循环体或者终止循环。 3循环的终止循环的终止 当组合中的所有元素都执行过循环体后，当组合中的所有元素都执行过循环体后，For EachNext循环终止，并将控制传循环终止，并将控制传递给递给 Next 语句后面的语句。如果在循环体中包含语句后面的语句。如果在循环体中包含Exit For语句，则有可能没有遍语句，则有可能没有遍历到组合中的所有元素。历到组合中的所有元素。目录【例【例

24、6-96-9】使用】使用For EachNextFor EachNext循环在一维字符数组循环在一维字符数组A A中搜索字符串中搜索字符串HelloHello，并，并给出相应报告。给出相应报告。Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim A() As String=hi, hey, Hello, please, student Dim found As Boolean=False 设置变量初始值 Dim strelement As String For Each st

25、relement In A 对每个成员作一次迭代 If strelement=Hello Then 如果找到Hello found=True 将变量found的值设成True Exit For 退出循环 End If Next strelement If found Then MsgBox(找到) Else MsgBox(没找到) End IfEnd Sub 目录【例【例6-106-10】定义二维数组】定义二维数组A(5,5)A(5,5)，为其所有元素赋值后使用，为其所有元素赋值后使用For EachNextFor EachNext循环循环求所求元素的和。求所求元素的和。程序代码如下： Pri

26、vate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim i, j As Integer Dim intsum As Integer=0 Dim A(5, 5) As Integer Randomize() For i=0 To 5 For j=0 To 5 A(i, j)=Rnd()*30 Next Next For Each i In A intsum=intsum+i Next MsgBox(所有元素的和是 & intsum.ToString)End Sub目录6.6 自定义数据类

27、型Structure6.6.1 结构的定义6.6.2 结构的使用6.6.3 结构与数组目录6.6.1 6.6.1 结构的定义结构的定义 当需要一个能包含好几个相关信息的变量时，使用自定义类型是十分有用的，即结构。结构当需要一个能包含好几个相关信息的变量时，使用自定义类型是十分有用的，即结构。结构的声明必须在模块的声明部分以的声明必须在模块的声明部分以Structure语句开头，以语句开头，以End Structure语句结尾，其类型常用的语句结尾，其类型常用的有有Private和和Public两种两种。 结构的声明方法如下：结构的声明方法如下： privatepublic Structure

28、结构名结构名 Dim 成员名成员名1 As 数据类型数据类型 Dim 成员名成员名N As 数据类型数据类型 End StructurePublic Structure students Dim name As String 学生的姓名 Dim age As Integer 学生的年龄 Dim code As String 学生的电话号码 Dim score As Double 学生的分数End Structure目录6.6.2 6.6.2 结构的使用结构的使用 【例【例6-11】声明结构】声明结构students，并进行简单应用，要求用到整体赋值的方法。，并进行简单应用，要求用到整体赋值的方

29、法。Public Structure students 在窗体模块的通用声明部分定义结构 Dim name As String 学生的姓名 Dim age As Integer 学生的年龄 Dim code As String 学生的电话号码 Dim score As Double 学生的分数End StructurePrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim Jack, Jone As students 定义students结构变量 给每个成员赋值 Jack.nam

30、e=Jack Jack.age=18 Jack.score=589 Jone=Jack 结构变量整体赋值 Debug.WriteLine(Jone.name) 显示结果为Jack Jone.name=Jone 改变name成员值 Debug.WriteLine(Jack.name) 显示结果为Jack Debug.WriteLine(Jone.name) 显示结果为JoneEnd Sub目录6.6.3 6.6.3 结构与数组结构与数组 1结构成员包含数组结构成员包含数组 在定义结构时，可以将数组作为其成员之一。例如：在定义结构时，可以将数组作为其成员之一。例如： Structure compu

31、terinfo Dim CPU As String Dim Memory As Long Dim DiskDrives() As String 可变大小的数组可变大小的数组 Dim PurchaseDate As Date End Structure目录6.6.3 6.6.3 结构与数组结构与数组2结构数组结构数组定义定义结构数组的一般格式为：结构数组的一般格式为： Dim 数组名数组名(下标上界下标上界) As 结构名结构名例如例如，定义以下常量和结构类型：，定义以下常量和结构类型： Const MAX_MEM=99Private Structure mail Dim num As Shor

32、t Dim name As String Dim title As String Dim addr As String Dim zip As String Dim tel As StringEnd Structure 之后之后可以使用可以使用mail类型定义一个结构数组，如下所示：类型定义一个结构数组，如下所示： Dim list(MAX_MEM) As mail目录【例【例6-126-12】编程实现会员通信录的数据登录和显示输出操作】编程实现会员通信录的数据登录和显示输出操作。 程序代码如下：程序代码如下： Public Class Form1 Const MAX_MEM=2 会员的总人数会

33、员的总人数 Private Structure mail Public num As Short Public name As String Public title As String Public addr As String Public zip As String Public tel As String End Structure Dim list(MAX_MEM) As mail 定义结构数组定义结构数组目录Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim i

34、As Short 依次录入每个会员的各成员项的值 For i=0 To MAX_MEM list(i).num=InputBox(请输入编号) list(i).name=InputBox(请输入姓名) list(i).title=InputBox(请输入职称) list(i).addr=InputBox(请输入地址) list(i).zip=InputBox(请输入邮编) list(i).tel=InputBox(请输入电话号码) Next i 在输出窗口中输出数据 Debug.WriteLine() Debug.Write(=) Debug.WriteLine(=) Debug.Write(

35、编号 姓名 职称 地址) Debug.WriteLine( 邮政编码 电话号码) 依次显示已录入数据的各成员值 Dim spa As String= For i=0 To MAX_MEM Debug.Write(=) Debug.WriteLine(=) Debug.Write( & list(i).num & spa & list(i).name) Debug.Write(spa & list(i).title & spa & list(i).addr) Debug.WriteLine( & list(i).zip & spa & & list(i).tel) Next Debug.Write(=) Debug.WriteLine(=) End SubEnd Class例6-12程序运行结果目录本章小结 本章主要介绍数组的相关概念及应用本章主要介绍数组的相关概念及应用