第5章 数组.ppt

单击此处编辑母版标题样式,2012,5.,*,士不厌学,故能成其圣,第,5,章 数 组,主要内容,数组变量、静态数组、动态数组、控件数组的定义、区别及使用方法，通过应用举例强化对数组的理解。,重点内容,静态数组、动态数组的定义与使用,为什么要使用数组,唉，有这么多不同主题的书。在哪里才能找到有关中国音乐的书呢？,为什么要使用数组,文学类,计算机类,西方音乐类,中国音乐类,为什么要使用数组,数组,内存,120,65,98,4,数组的元素,容器中保,存的物品,日常生活中的容器,程序中的数组,VB,语言中的数组,Rate,1.5,3.2,0.09,45.3987,0,1,2,3,Rate,(3),数组名,下标,标明了元素在数组中的,位置,数组元素,下标,数组,是可以在内存中,连续存储,多个元素的结构,1.,引例,例,5.1,若我们要求一个班,100,个学生的平均成绩，然后统计高于平均分的人数。,求平均成绩的,程序段,如下：,aver=0,For i=1 To 100,mark=,InputBox,(,输入第,&,Str,(i)&,位学生的成绩,),aver=aver+mark,Next i,aver=aver/100,在该程序段中，,mark,变量只能存储一个学生的成绩，所以,高于,平均分的学生人数无法统计。,5.1,数组的基本概念,对例,5.1,利用数组来进行求解：,Private Sub Command1_Click(),Dim mark(1 To 100)As Integer,Dim aver!,overn%,i%,aver=0,For i=1 To 100,mark(i)=,InputBox,(,输入第,&i&,位学生的成绩,),aver=aver+mark(i),Next i,aver=aver/100,5.1,数组的基本概念,对例,5.1,利用数组来进行求解：,overn,=0,For i=1 To 100,If mark(i)aver Then,overn,=,overn,+1,Next i,Print aver,overn,End Sub,说明：,输入成绩的操作需要进行一百次，对于大量的数据输入，可以采用随机函数来产生一定范围内的数据。,格式,为：,int,(,rnd*,范围,+,基数）,例如,:,本例要产生,0-100,的分数，,语句,为,mark(i),=int,(rnd*101),5.1,数组的基本概念,2.,数组的概念：,数组是由一定数据的同类元素按一定顺序排列而成的结构类型数据,是一组具有,同一名字,、,不同下标,的下标变量,形式如下,:,S(n),其中,:S,是数组名,n,是下标,1,）数组声明：,定义一个数组就是声明其数组名、类型、维数、数组的大小。,通知计算机为该数组分配一定的内存区域,数组名也就是这个区域的名。,例,:,Dim mark(1 To 100)As Integer,5.1,数组的基本概念,数组的分类：,下标的个数,决定数组的维数，各维下标之间用,逗号,分开。,在,VB,中有,:,一维数组（如,a(2),二维数组,(,如,Score(1,2),等，,最多可以达到,60,维。,5.1,数组的基本概念,73,90,33,45,80,87,成绩,学号,1,2,1,2,3,示例：学生三门课程的成绩,例：用数组元素表示,1,号同学三门成绩：,Score(,1,1,)=73;score(,1,2,)=90;score(,1,3,)=33,2),数组元素,:,数组元素的,形式,为：数组名（下标,1,下标,2),其中：,下标表示顺序号，不能超出数组声明时的上、下界范围。,下标可以为整型常数、变量、表达式或者是一个数组元素。,例,5.1,中的数组声明后，包括数组元素：,mark(10),mark(3+4),mark(i),等。,5.1,数组的基本概念,静态数组：,声明时已经确定了大小的数组。,1.,一维数组,Dim,数组名,(,下标下界,to,下标上界）,As,类型,5.2,静态数组及声明,说明：,1,）下标必须为常数。,下标的下界省略时，默认值为,0.,3,）,类型名省略时，数组为变体类型,.,例：,Dim a(10)As Integer,意义如下：表示了定义了一个整型的一维数组,a,，其中,数组名：,a,类型：整型,维数：,一维,下标下界：,0,下标上界：,10,大小：,11,个,一维数组的大小计算公式：,下标的上界,-,下标的下界,+1,例：,Dim A(-5 to 2)As Double,大小：,2-(-5)+1=8,类型：双精度型,数组元素依次为,a(-5),a(-4),a(-3),a(-2),a(-1),a(0),a(1),a(2),常见错误：,例：,Dim a(-5 to 2)As Double,a(1)=,计算机,a(,3,)=67.9,Dim b,10,as string,n=10,dim x(,n,)as single,左右数据类型不匹配,下标越界,不能用中括号,下标不能是变量,52,静态数组及声明,5.2,静态数组及声明,写运行结果,Private Sub,Form_Click,(),Dim a(20),For j=1 To 20 Step 2,a(j)=j,Next j,Print a(1)+a(2)+a(3),End Sub,A.4 B.5 D.6 D.7,5.2,静态数组及声明,2.,二维数组的定义形式：,Dim,数组名（,第一维下标下界,to,第一维下标上界）,，,第二维下标下界,to,第二维下标上界）,As,类型名称,二维数组大小计算公式,:,(,一维下标上界,一维下标下界,+1)(,二维下标上界,二维下标下界,+1),例如,:,定义一个二维数组,:,Dim x(0 to 3,0 to 4)As long,或,D,im x(3,4)As long,数组,x,大小：,(3-0+1)(4-0+1)=20,例,:,Dim x(0 to 4,0 to 3)As long,则,数组,x(,4,3),在内存中的分配如下,：,若,:,Option Base 1,Dim,x(4,3),As long,则数组元素的个数为,12,个,定义后的排列顺序,:,以,行,的大小顺序排列,X,（,0,0,）,x,（,0,1,）,x,（,0,2,）,x,（,2,0,）,x,（,2,1,）,x,（,2,2,）,A,（,2,3,）,x,（,1,0,）,x,（,1,1,）,x,（,1,2,）,x,（,1,3,）,x,（,0,3,）,x,（,3,0,）,x,（,3,1,）,x,（,3,2,）,x,（,3,3,）,x,（,4,0,）,x,（,4,1,）,x,（,4,2,）,x,（,4,3,）,5.2,静态数组及声明,(,实验指导书,P129-8,题,),在窗体上画一个名称为,Text1,的文本框和一个名称为,Command1,的命令按钮，然后编写如下事件过程：,Private Sub Command1_Click(),Dim array1(10,10)As Integer,Dim i,k As Integer,For i=1 To 3,For k=2 To 4,array1i,k)=i+k,Next k,Next i,Text1.Text=array1(2,3)+array1(3,4),End Sub,程序运行后，单击命令按钮，在文本框中显示的值是,_,。,A)12 B)13 C)14 D)15,正确答案,:A,1.,动态数组：,声明数组时，不指定数组下标的上下界，,运行,时大小可以改变,的,数组,。,2.,创建动态数组的步骤：,1,）用,Dim,声明数组,但不指定数组的大小,Dim,数组名（）,As,类型,2,）用,ReDim,语句动态地分配元素个数,ReDim,Preserve,数组名（,下标,1,下标,2,）,5.3,动态数组及声明,下标可以是常量,也可以是有了,确定值的变量,说明,:,1),使用,ReDim,只能重新定义,动态数组,的维数与大小，而,不能改变类型,，定义时可以使用变量。,例：,Private Sub Command1_Click(),Dim a()As,Integer,n=,InputBox,(,请输入一个数,),ReDim,a(n),ReDim,a(n,n+2),ReDim,a(n,n+2)As,String,End Sub,5.3,动态数组及声明,实验指导书,P129-7,下列数组声明正确的是,_,。,A)n=5 B)Dima(10)AsInteger,Dim a(1ton)As Integer,ReDima,(1to12),C)Dima()AsSingle,ReDima,(3,4)AsInteger,D),Dima()AsInteger,n=5,ReDima,(1ton)AsInteger,分析,:A,中,dim,中不能用变量,n,B,中,dim,中不能有下标值,10,C,中不能改变数组类型,选,D,5.3,动态数组及声明,2).,使用,ReDim,及,Preserve,重新定义动态数组会,保留以前数组元素的,值，默认情况下，使用,ReDim,而不使用,preserve,定义数组时，会清除重新定义之前动态数组所有元素中的数据。,Private Sub Command1_Click(),Dim a()As Integer,n=,InputBox,(,输入,n,的值,),ReDim,a(1 To n),For i=1 To n,a(i)=i,Print a(i);,Next i,Print,ReDim,Preserve a(1 To 2+n),For i=1 To 2+n,Print a(i);,Next i,End sub,若去掉,Preserve,，,则运行结果是下图,定义动态数组,5.3,动态数组及声明,例,5.2,要求输入若干个学生的成绩，计算的平均分和高于平均分的人数还是放在该数组的最后。,5.3,动态数组及声明,分析,:,输入学生人数,定义动态数组,Dim Mark()as integer,n=inputbox,(“,输入学生人数,”,),Redim,Mark(1 to n),用循环给数组元素赋值,求总和,循环后统计平均分,:,成绩,0,100:Mark(i),=Int,(rnd*101),成绩累加和,:,aver=aver+Mark,(i),重新定义数组保存平均分,再次循环统计并保,存高于平均分的人数,Redim,Preserve,mark(1 to n+2),Mark(n+1)=aver/n,Mark(n+2):,保存高于平均分的学生个数,Mark(i)Mark(n+1):Mark(n+2)=Mark(n+2)+1,输出,:,5.3,动态数组及声明,例,5.2,要求输入若干个学生的成绩，计算的平均分和高于平均分的人数还是放在该数组的最后。,Private Sub,Form_Click,(),Dim mark()As Integer,i%,n%,aver!,n=,InputBox,(,输入学生的人数,),ReDim,mark(1 To n),aver=0,For i=1 To n,mark(i)=,Int,(,Rnd,*101),aver=aver+mark(i),Next i,ReDim,Preserve mark(1 To n+2),mark(n+1)=aver/n,mark(n+2)=0,For i=1 To n,If mark(i)mark(n+1)Then mark(n+2)=mark(n+2)+1,Next i,For i=1 To n,Print mark(;i;)=;mark(i),Next i,Print,平均分,=;mark(n+1),高于平均分人数,=;mark(n+2),End Sub,5.4,数组的基本操作,P124,以下操作中所使用的数组和简单变量的声明,Dim ia(1 to 10)as integer,Dim sb(3,4)as single,sc(4,4)as single,Dim,i%,j%,t%,1.,给数组元素赋初值和有关函数,1,）利用循环结构,For i=1 to 10,ia,(i)=0,Next i,5.4,数组的基本操作,P124,2,）利用,Erase,语句,形式,：,Erase,数组名,功能：,对静态数组进行初始化：,数值型置为,0;,字符型置为,;,对动态数组，则释放动态数组的存储空间。,Private Sub,form_Click,(),Dim a(1 To 10)As Integer,For i=1 To 5,a(i)=i,Print a(i);,Next i,Print,Erase a,For i=1 To 5,Print a(i);,Next i,End Sub,数组初始化：,给数组的各元素赋初值称为数组,初始化。,初始化方法：,赋值语句,Inputbox,函数,Array,函数（*）,Private Sub Form_Click(),dim b(1),b(0)=,InputBox,(,请输入姓名,),b(1)=#7/23/1984#,text1=b(0),text2=b(1),End Sub,5.4,数组的基本操作,3,）利用,Array,函数,格式：,数组名,=Array(,数据列表）,条件：,定义数组时，按,变体类型变量,定义,或直接使用数组变量,注意：,Array,函数只能,初始化一维数组,Private Sub Form_Click(),Dim,a,或,Dim a(),a=Array(80,90.9,95,78.6),For i=0 To 3,Print a(;i;)=;a(i),Next I,将数组定义为变体类型,此句也可省略,5.4,数组的基本操作,4,）,Lbound,和,Ubound,函数,Lbound,(,数组名,维数,),：,求数组对应下标的下界,Ubound,(,数组名,维数,),：,求数组对应下标的上界,Private Sub,Form_Click,(),Dim a(3,4),Print,LBound,(a),UBound,(a,2),End Sub,5.4,数组的基本操作,Private Sub Form_Click(),Dim a As Variant,b As Variant,i%,a=Array(1,2,3,4,5),bArray(,abc,def,67),For i=0 To,UBound,(a),Picture1.Print a(i);,Next i,For i=0 To,UBound,(b),Picture1.Print b(i);,Next i,End Sub,5.4,数组的基本操作,实验书,P138-31,在窗体上画一个命令按钮，名称为,Command1,，然后,编写如下事件过程：,Option Base 0,Private Sub Command1_Click(),Dim city As Variant,city=Array(,北京,上海,天津,重庆,),Print city(1),End Sub,程序运行后，如果单击命令按钮，则在窗体上显示的,内容是,_,。,A),空白,B),错误提示,C),北京,D),上海,D,3.,数组的输出,形成,5*5,的方阵，分别输出方阵中各元素和下三角元素。,5.4,数组的基本操作,3.,数组的输出,Private Sub,Form_Click,(),Dim sc%(4,4),For i=0 To 4,For j=0 To,4,sc,(i,j)=i*5+j,Picture1.Print Tab(j*5);,sc,(i,j);,Next j,Picture1.Print,Next i,For i=0 To 4,For,j=0 To i,Picture2.Print Tab(j*5);,sc,(i,j);,Next j,Picture2.Print,Next i,5.4,数组的基本操作,For i=0 To 4,For j=,i,To 4,Picture3.Print Tab(j*4);,sc,(i,j);,Next j,Picture3.Print,Next i,End Sub,5.4,数组的基本操作,3.,数组的输出,4.,求数组中最大元素和所在下标及各元素之和,编程思想,:,求数组中最大的元素及下标：假设第一个元素为最大，其下标也为最大元素的下标，将该数与数组中其他元素比较，若有比最大值大的元素，马上交换，同时交换最大值下标。,5.4,数组的基本操作,例如,:,随机产生,10,个,1,100,之间的数,保存到一维数组中,求这十个数的和,并找出其中的最大值及所在的位置,Option Base 1,Private Sub,Form_Click,(),Dim ia(10)As Integer,Dim max As Integer,imax,As Integer,sum As Integer,For i=,1,To,10,ia,(i)=,Int,(,Rnd,*100+1),Print,ia,(i);,Next i,max=ia(1):,imax,=1:sum=ia(1),Print,For i=,2,To 10,sum=sum+,iai),If,ia,(i)max Then,max=,ia,(i),imax,=i,End If,Next i,Print,最大数：,;max,Print,位置：,;,imax,Print,累加和,:;sum,End Sub,P127,程序不完整,5.,交换数组中各元素,交换的要求：第一个元素与最后一个元素交换,第二个元素与倒数第二个元素交换,以此类推,.,Option Base 1,Private Sub,Form_Click,(),Dim a(),a=Array(a,b,c,d,e,f,g,h,i,j),Print,交换前,:;,For i=1 To 10,Print a(i);,Next i,For,i=1 To,10 2,t=a(i),a(i)=,a(10-i+1),a(10-i+1)=t,Next i,Print:Print:Print,交换后,:;,For i=1 To 10,Print a(i);,Next i,End Sub,5.5,控件数组,1.,控件数组的概念,控件数组是由一组相同类型的控件组成,它们共用一个控件名,具有相同的属性和方法和事件。,在程序中，通过,Index,属性来对控件数组中的成员进行区别和引用。,注意：,控件数组的,Index,属性取值,从,0,开始。,5.5,控件数组,2.,控件数组的建立,1),在设计时建立,建立的步骤：,（,1,）在窗体上画出某控件，可进行控件名的,属性设置。,（,2,）选中该控件，进行拷贝和粘贴操作，系,统会出现如下提示,（,3,）进行事件的编程。,5.5,控件数组,2.,控件数组的建立,1),在设计时建立,例,5.3,分别利用多个控件和一个控件数组的方法建立四个命令按钮，当单击各个命令按钮时，分别显示不同的图形或结束操作。,方法一：利用四个命令按钮,Private Sub,Form_Load,(),Picture1.Scale(0,0)-(10,10),Picture1.FillStyle=6,End Sub,5.5,控件数组,2.,控件数组的建立,方法一：利用四个命令按钮,Private Sub Command1_Click(),Picture1.Cls,Picture1.Print,画直线,Picture1.Line(2,2)-(7,7),End Sub,Private Sub Command2_Click(),Picture1.Cls,Picture1.Print,画矩形,Picture1.Line(2,2)-(7,7),BF,End Sub,5.5,控件数组,2.,控件数组的建立,方法一：利用四个命令按钮,Private Sub Command3_Click(),Picture1.Cls,Picture1.Print,画圆,Picture1.Circle(4.5,4.5),3.5,1.4,End Sub,Private Sub Command4_Click(),End,End Sub,5.5,控件数组,2.,控件数组的建立,1),在设计时建立,例,5.3,分别利用多个控件和一个控件数组的方法建立四个命令按钮，当单击各个命令按钮时，分别显示不同的图形或结束操作。,方法二：利用控件数组,Private Sub,Form_Load,(),Picture1.Scale(0,0)-(10,10),Picture1.FillStyle=6,End Sub,5.5,控件数组,2.,控件数组的建立,方法二：利用控件数组,Private Sub Command1_Click(Index As Integer),Picture1.Cls,Select Case,Index,Case,0,Picture1.Print,画直线,Picture1.Line(2,2)-(7,7),Case,1,Picture1.Print,画矩形,Picture1.Line(2,2)-(7,7),BF,Case,2,Picture1.Print,画圆,Picture1.Circle(4.5,4.5),3.5,1.4,Case Else,End,End Select,End Sub,5.5,控件数组,2.,控件数组的建立,2),运行时添加控件数组,建立步骤：,（,1,）在窗体上添加控件，设置,Index,属性值为,0,。,（,2,）通过,load,方法添加其余的若干个元素，,通过,Unload,方法来删除某个添加的元素。,（,3,）每个添加的控件数组元素通过,left,和,top,属性来确定其在窗体中的位置，并将,Visible,属性设置为,True,。,5.5,控件数组,2.,控件数组的建立,2),运行时添加控件数组,例,5.4,建立一个专门用于输入账号的数字按钮。,要求,：,（,1,）在设计时往窗体上放置一个标签控件，背景色为白色，边框样式为,1,，有边框线，用于显示数字键按下后的数字。,（,2,）窗体上放置一个命令按钮，,Index,为,0,，程序运行时自动产生,1-9,的,9,个控件数组元素，,Caption,为下标对应的数字。,（,3,）窗体上放置一个命令按钮，,Caption,为”,C“,，用于清除标签控件的内容。,5.5,控件数组,2.,控件数组的建立,2),运行时添加控件数组,例,5.4,建立一个专门用于输入账号的数字按钮。,Private Sub,Form_Load,(),For i=1 To 9,Load,Command1(i),Command1(i).,Caption,=i,Command1(i).,Left,=Command1(i-1).Left+Command1(i-1).Width,Command1(i).,Visible,=True,Next i,Label1.Caption=,End Sub,5.5,控件数组,2.,控件数组的建立,2),运行时添加控件数组,例,5.4,建立一个专门用于输入账号的数字按钮。,Private Sub Command1_Click(Index As Integer),Label1.Caption=Label1.Caption&,Index,End Sub,Private Sub Command2_Click(),Label1.Caption=,End Sub,5.6,自定义数据类型及其数组,1.,自定义类型的定义,:,自定义类型通过,Type,语句来实现,形式：,Type,自定义类型名,元素名,As,类型名,元素名,（下标）,As,类型名,End Type,5.6,自定义数据类型及其数组,1.,自定义类型的定义,:,例如：要定义一个有关学生信息的自定义类型,Type,StudType,No As Integer,学号,Name As String*20,姓名,Sex As String*1,性别,Mark(1 To 4)As Single,4,门课程成绩,Total As Single,总分,End Type,5.6,自定义数据类型及其数组,2.,自定义类型变量的声明和使用,声明：,Dim,变量名,As,自定义类型名,例如：声明两个自定义类型,StudType,的变量,Dim,student,as,StudType,Dim,mystud,as,StudType,使用,:,变量名,.,元素名,例如：要表示,student,变量中的姓名，第,4,门课程,的成绩，表示如下：,student,.,name,student,.,mark(4),使用步骤小结,:,用,type,定义,定义自定义类型的变量或数组,引用：变量名,.,元素名,5.6,自定义数据类型及其数组,2.,自定义类型变量的声明和使用,With,语句作用,:,With,语句可以对某个对象执行一系列的语句,而不用重复指出该对象的名称,形式：,With,对象名,语句块,End with,5.6,自定义数据类型及其数组,2.,自定义类型变量的声明和使用,例如：,对,student,变量的各元素赋值，计算总分，并显示结果；然后再把各元素的值赋给,mystud,变量进行保存，有关语句如下：,方法一：,With,student,.no=2001,.Name=“,张华,.sex=“,男,.total=0,For i=1 To 4,.mark(i)=,Int,(,Rnd,*101),.total=.total+.mark(i),Next i,Print.no,.total,End With,mystud,=student,方法二：,student.,no,=2001,student,.name,=,student,.sex,=,student,.total,=0,For i=1 To 4,studen,t.mark,(i)=,Int,(,Rnd,*101),student,.total,=,student,.total,+,student,.mark,(i),Next i,Print,student,.no,studen,t.total,mystud,=student,5.6,自定义数据类型及其数组,3.,自定义数据类型数组的应用：,自定义类型,数组,就是数组中的每个元素是自定义类型。,例,5.5:,利用自定义类型数组，编写一个程序，输入若干个职工的姓名、工资、职称、显示最高工资的职工和统计总工资。运行界面如下图。,在标准模块中定义自定义类型,Type,zgtype,name As String*10 ,存姓名,title As String*10 ,存职称,salary As Single ,存工资,End Type,Dim n%,Dim,zg(1 To 100),As,zgtype,定义自定义类型数组,zg,保存,100,个职工信息,Private Sub Command1_Click(),新增职工,If n Max Then,Max,=,zg,(j).salary,：,maxi,=j,End If,Next j,With,zg,(,maxi,),输出最高工资的职工信息,Label4.Caption=.name&title&.salary,End With,End Sub,For.Next,是对数组中的每一个元素重复执行。,1.,格式：,For Each,成员,In,数组,循环语句序列,Exit for,循环语句序列,Next ,成员,2.,说明：,1)“,成员”是一个,Variant,型循环变量，它为循环提供，并在,For EachNext,语句中重复使用，,它实际上代表的是数组中的每个元素。,2)“,数组”是一个数组名，没有括号和上下界。,3),循环次数由,数组元素的个数,决定,.,补充,For Each.Next,语句,实验书,P131-15,Private Sub Command1_Click(),Dim A(1 To 4),For I=1 To 4,A(I)=I,Next I,For Each x In A(),Print 2*x;,Next x,End Sub,补充,For Each.Next,语句,5.7,综合应用,1.,分类统计：,在一批数据中按分类的条件，统计每一类所,包含的数据量。,例,5.6,：要求输入一串字符，统计各字母出现的次数（不区分字母大小写），并对出现的字母显示其出现的个数和总的字母个数。,Private Sub Command1_Click(),Dim a(1 To 26)As Integer,c As String*1,le=Len(Text1),求串长,For i=1 To le,c=UCase(Mid(Text1,i,1),取第,i,个字符，并转为大写,If c=A And c 0 Then,sumc,=,sumc,+a(j),统计总字母数,Picture1.Print,Chr$,(j,+64,);=;a(j);,End If,Next j,Picture1.Print,Picture1.Print,共有,;,sumc,;,个字母,显示总字母个数,End Sub,5.7,综合应用,与数组有关的函数,:p66,Join(A,D):,将数组,A,各元素按,D(,或空格,),分隔符连接成字符串变量,函数,:Split(C,D):,将字符串,C按分隔符,D,或空格分隔成字符数组,.,与,Join,作用相反,Private Sub,form_Click,(),A=Array(123,ab,c),Print,Join,(A,),Print Join(A,),Print Join(A,),s=,Split,(123,56,ab,),Print s(0),Print s(1),Print s(2),End Sub,5.7,综合应用,2.,大量数据的输入和编辑,例,5.7,输入一系列数据,输入结束将它们按分隔符分离后存放在数组中,.,对输入的数据允许修改和自动识别非数字数据,.,5.7,综合应用,Dim a()As String,Private Sub Command1_Click(),Dim temp As String,i As Integer,temp=Replace(temp,),去除出现的连续分隔符,a=Split(Text1.Text,),For i=,LBound,(a)To,UBound,(a),Picture1.Print a(i),Next i,End Sub,Private Sub Text1_KeyPress(KeyAscii As Integer),Dim s As String*1,s=,Chr,(,KeyAscii,),ASCII,码转换成字符,Select Case s,Case 0 To 9,.有效字符串,Case Else,输入非数字字符，去除非法字符，再输入,KeyAscii,=0,空字符的,ASCII,码为,0,End Select,End Sub,3.,数组排序,:,将一组数按递增或递减的次序排列,选择法排序算法：假设有,n,个数的序列，要求按,递增的次序排序,，,1,）从,n,个数中选出最小数所在的数组元素的,下标值,，结束循环后，,最小数与,第一个数,交换位置,2,）除第一个数外，其余,n-1,个数再按步骤,1),选出次小的数（,n-1,个,数中的最大值，,n,个数中的第二大的数,3,）以此类推，最后构成递增序列,5.7,综合应用,6,个,原始数据,8 6 9 3 2 7,a(1)a(2)a(3)a(4)a(5)a(6),第,1,轮比较,2,6 9 3,8,7,a(2)a(3)a(4)a(5)a(6),第,2,轮比较,2,3,9,6,8 7,a(3)a(4)a(5)a(6),第,3,轮比较,2 3,6,9,8 7,a(4)a(5)a(6),第,4,轮比较,2 3 6,7,8 9,a(5)a(6),第,5,轮比较,2 3 6 7,8,9,定义一个数组,ia(6),并赋值,For i=1 to 5,For j=i+1 to 6,a,(,iMin,)a(j,),True,False,iMin,=j,输出排序后的,6,个数,iMin,=i,交换,a(i),与,aiMin,),选择法升序算法分析：,1,）,用外循环控制轮数,如,6,个数需要比较,5,轮,.,所以外循环,for i=1 to 5,。,2,）,iMin,初值的确定,iMin,是代表每轮比较过程中，比较过的数中最小的值所在的,下标,，初值应该为,i,如第,1,轮，开始比较前,iMin,=1,第,2,轮,开始比较前,iMin,=2.,3,）,用内循环控制每轮比较的次数,for j=i+1 to 6,4),比较元素：,该轮,比较过的最小值,a(,iMin,),与,a(j),的比较,比较过程中,iMin,值代表比较过的所有数 中最小值所在的下标，比较过程中,如果,a(,iMin,)a(j),则iMin,=j,6,）第,i,轮,找到最小值,a(,iMin,),后，应将,a(i),与,a(,iMin,),交换，最后输出,例,5.8,对已知存放在数组中的,6,个数,用选择法按递增顺序排序,Option,Base 1,Private Sub Command1_Click(),Dim ia%(1 To 10),imin%,n%,i%,j%,t%,ia(1)=8:ia(2)=6:ia(3)=9:ia(4)=3:ia(5)=2:ia(6)=7,n=6,For i=1 To,n-1,imin,=i,For j=i+1 To n,If,ia,(j)ia(j+1),True,False,换,ia,(j),，,ia,(j+1),输出排序后的,6,个数,3),比较对象的确定,冒泡法采用的是,相邻两个数,的比较，所以在内循环中比较对象为,ia,(j),和,ia(j+1),比较,例,5.9,对已知存放在数组中的,6,个数,用冒泡法法按递增顺序排序,Option Base 1,Private Sub Command1_Click(),Dim ia(10):n=6,ia(1)=8:ia(2)=6:ia(3)=9:ia(4)=3:ia(5)=2:ia(6)=7,For i=1 To n 1,进行,n-1,轮比较,For j=1 To n i,每轮都从第一个数比较，最后是,n-i,与,n,比较,If,ia,(j),ia,(j+1),Then,相邻数比较，大者下，小者上,t=,ia,(j),ia,(j)=,ia,(j+1),ia,(j+1)=t,End If,Next j,Next i,For i=1 To 6 ,输出排序后的结果,Picture1.Print,ia,(i);,Next i,End Sub,5.7,综合应用,4.,插入数据,在一组有序数据中插入一个数,使这组数据仍然有序,.,假定有数组,a(1 to n),已按递增次序排列,插入的基本步骤是,:,1.,确定位置,:,查找待插入数据在数组中的位置,K,2.,从最后一个元素开始往前直到下标为,K,的元素依次往后,移动一个位置,3.,第,K,个元素的位置腾出,将数据插入,5.7,综合应用,-,4.,插入数据,Private Sub Command1_Click(),Dim a%(1 To 10),i%,k%,x=14,要插入的数,For i=1 To 9,a(i)=i*3-2,Picture1.Print a(i);,Next i,Picture1.Print,For k=1 To 9,查找位置,If x n Then,MsgBox,找不到此数据,:Exit Sub,For i=k+1 To n,往前移,a(i-1)=a(i),Next i,n=n-1,ReDim,Preserve a(n),For i=1 To n,Pi