1、1感谢你的观看2019年8月21 利用数组可以有效地存储和处理成批数据利用数组可以有效地存储和处理成批数据 本章主要内容 数组的概念数组的概念 数组的声明和应用数组的声明和应用 动态数组动态数组 For Each.NextFor Each.Next循环语句循环语句 控件数组控件数组 程序举例程序举例 第第6 6章章 数数 组组2感谢你的观看2019年8月21 6.1.1 数组与数组元素数组与数组元素 简单变量用一个变量名标识，不同的变量使用不同的简单变量用一个变量名标识，不同的变量使用不同的变量名表示。处理成批的数据时，必须使用数组来处理表变量名表示。处理成批的数据时，必须使用数组来处理表示示
2、100个学生的成绩，采用简单变量来表示：个学生的成绩，采用简单变量来表示：s1，s2，s3，s99，s100 采用数组来表示：采用数组来表示：t(0),t(1),t(2),t(98),t(99)t(k)(k=0,1,2,99)为数组元素为数组元素(或称或称下标变量下标变量)，它表，它表示第示第k个学生的成绩个学生的成绩,k称为下标变量的称为下标变量的下标下标 数组的一个主要特点是通过下标数组的一个主要特点是通过下标(相当于索引相当于索引)来引用来引用数组元素数组元素 6.1 数组的概念数组的概念3感谢你的观看2019年8月21 例如计算这例如计算这100个学生成绩的平均分，可用：个学生成绩的平
3、均分，可用：S S0 0 For k=0 To 99For k=0 To 99 S=S+t(k)S=S+t(k)累加分数累加分数 Next kNext k Aver=S/100 Aver=S/100 求平均分求平均分4感谢你的观看2019年8月21 数组是一组按一定顺序排列的数据的集合数组是一组按一定顺序排列的数据的集合 例如，学生成绩例如，学生成绩t(0),t(1),t(99)是一个数组是一个数组 三元一次方程组的系数矩阵三元一次方程组的系数矩阵 a11 a12 a13 A a21 a22 a23 a31 a31 a33 也是一个数组也是一个数组 数组名数组名(不能与简单变量同名不能与简单变
4、量同名)；数组类型；数组类型5感谢你的观看2019年8月21 又称有序的变量又称有序的变量下标变量下标变量 默认情况下，下标从默认情况下，下标从0开始开始,option base n 必须在定义数组前使用。必须在定义数组前使用。例如，由一行共例如，由一行共5个元素组成的数组个元素组成的数组x，它的，它的5个下标变量个下标变量为：为：x(0)x(1)x(2)x(3)x(4)由三行四列元素组成的数组由三行四列元素组成的数组y，它的，它的12个下标变量可表个下标变量可表示为：示为：y(0,0)y(0,1)y(0,2)y(0,3)y(1,0)y(1,1)y(1,2)y(1,3)y(2,0)y(2,1)
5、y(2,2)y(2,3)下标变量下标变量与与简单变量简单变量具有基本相同的性质和作用具有基本相同的性质和作用 数组元素数组元素6感谢你的观看2019年8月21 下标用来标明该下标变量在数组中的位置下标用来标明该下标变量在数组中的位置 下标可以是常数值，也可以是变量下标可以是常数值，也可以是变量(包括下标变包括下标变量量)或数值表达式或数值表达式 例如：例如：若若x(2)=10,k=2，则，则y(x(2)就是就是y(10),y(x(2)+k)就是就是y(12)只要有规则地改变下标值，就可以很方便地使下标变量只要有规则地改变下标值，就可以很方便地使下标变量(如如a(i)成为所需要的具体下标变量成为
6、所需要的具体下标变量 数组的维数数组的维数 6.1.2 下标和数组的维数下标和数组的维数7感谢你的观看2019年8月21 6.2.1 数组声明语句数组声明语句 使用数组之前，一般需要定义数组，以便让系统分配相应使用数组之前，一般需要定义数组，以便让系统分配相应的存储单元。格式为：的存储单元。格式为：Dim Dim 数组名数组名(下界下界1 to1 to上界上界1,1,下界下界2 to2 to上界上界2)As 2)As 数据类型数据类型 功能：指定数组的维数、各维的上下界和数据类型功能：指定数组的维数、各维的上下界和数据类型 举例：举例：dim a%(10),b!(2 t0 8),c#(15),
7、b(3,4)as Long Dim Sum(10)As Long 下标号从下标号从010，共，共11个元素个元素Dim Ary(1 to 20)As Integer 下标号从下标号从120，共，共20个元素个元素Dim d(1 to 5,1 to 10)As Double 定义二维数组定义二维数组 dim c(-2 to 2)as string*20 还可以使用还可以使用Public、Static、Private等语句来声明数组等语句来声明数组 6.2 6.2 数组的声明和应用数组的声明和应用8感谢你的观看2019年8月21数组下标测试函数 Ubound(数组名，维)Lbound(数组名，维)
8、Dim y(1 to 12,5 to 20,-3 to 6)Print Lbound(y，1),Ubound(y，1)Print Lbound(y，2),Ubound(y，2)Print Lbound(y，3),Ubound(y，3)9感谢你的观看2019年8月21 设定下界的方法设定下界的方法 Option Base 1 设定下界为设定下界为1 Dim Data(10)As Single 下标号从下标号从110 6.2.2 Array函数函数 使用使用Array函数可以为数组元素赋值函数可以为数组元素赋值 示例示例 Dim D As Variant 定义数组名定义数组名(变体类型变体类型)D
9、=Array(1,2,3,4)执行结果：执行结果：1D(0)，2D(1),3D(2),4D(3)10感谢你的观看2019年8月21 数组刷新语句可以作用于动态数组和静态数组数组刷新语句可以作用于动态数组和静态数组 格式：格式：Erase 数组名数组名，数组名，数组名 功能：功能：该语句用来清除静态数组的内容，或者释放动态数该语句用来清除静态数组的内容，或者释放动态数组占用的内存空间组占用的内存空间 例如例如:Dim Array1(20)As IntegerDim Array1(20)As Integer Dim Array2()As SingleDim Array2()As Single Re
10、Dim ReDim Array2(9,10)Array2(9,10)Erase Array1,Array2Erase Array1,Array2 对静态数组，对静态数组，Erase语句将数组重新初始化语句将数组重新初始化;对动态数组，对动态数组，Erase语句将释放动态数组所使用的内存语句将释放动态数组所使用的内存 6.3.2 数组刷新语句数组刷新语句(Erase)11感谢你的观看2019年8月21 Erase 数组名,数组名，重新对静太数组进行初始化，数值置0，字符为空字符串，而原数组存在。释放动态数组存储空间，原有数组不再存在。变体数组，每个元素重新置为空。12感谢你的观看2019年8月2
11、1数组的引用和赋值：Option Base 1 Dim B1 As VariantB1=Array(89,96,81,67,79,90,63,85,95,83)y=B1(3)C=B1(5)+B1(7)数组的引用下标不能越界 数组的赋值：使用循环语句：13感谢你的观看2019年8月21 dim k(10)dim k(10)For k=0 To 10 For k=0 To 10 t(k)=2 t(k)=2*k+1k+1 Next kNext k Dim d(5)As Integer For i=1 To 5 输入成绩输入成绩 d(i)=Val(InputBox(请输入第请输入第&Str(i)&_
12、个学生的成绩个学生的成绩,输入成绩输入成绩)Next i14感谢你的观看2019年8月21数组输出数组输出For i=1 To 5 Print d(i);Next i15感谢你的观看2019年8月21 与前面的循环语句与前面的循环语句For.Next类似，都是用来执行指定重类似，都是用来执行指定重复次数的循环。但复次数的循环。但For Each.Next语句专门作用于数组或对语句专门作用于数组或对象集合中的每一成员。语法格式：象集合中的每一成员。语法格式：For Each 成员成员 In 数组名数组名 循环体循环体 Exit For Next 成员成员 “成员成员”是一个是一个Variant变
13、量，它实际上代表数组中每一变量，它实际上代表数组中每一个元素个元素 本语句可以对数组元素进行读取、查询或显示，它所重本语句可以对数组元素进行读取、查询或显示，它所重复执行的次数由数组中元素的个数确定复执行的次数由数组中元素的个数确定 在不知道数组中元素的数目时非常有用在不知道数组中元素的数目时非常有用 6.46.4 For Each.Next For Each.Next循环语句循环语句16感谢你的观看2019年8月21Private Sub Form_Load()Dim a(1 To 10)As Long,sum As Long,t As Long Dim n As Integer Show
14、t=1 For n=1 To 10 t=t*n a(n)=t Next n sum=0 For Each x In a sum=sum+x Next x Print 1!+2!+3!+10!=;sumEnd Sub输出结果：输出结果：1!+2!+3!+10!4037913 例例6.6 求求1!+2!+10!的值的值17感谢你的观看2019年8月21 两种形式的数组：两种形式的数组：静态数组静态数组和和动态数组动态数组 静态数组是指数组元素的个数固定不变；动态数组的元素个静态数组是指数组元素的个数固定不变；动态数组的元素个数，在程序运行时可以改变数，在程序运行时可以改变 动态数组可以在运行过程中
15、改变数组的大小，提高存储区的动态数组可以在运行过程中改变数组的大小，提高存储区的使用效率使用效率 6.3.1 建立动态数组建立动态数组 建立动态数组的步骤：建立动态数组的步骤：第一步：声明一个没有下标第一步：声明一个没有下标(或称空维数或称空维数)的数组为动态数组的数组为动态数组 第二步：在过程中用第二步：在过程中用ReDim语句重新定义带下标的动态数组语句重新定义带下标的动态数组 ReDim语句语句格式格式：ReDim Preserve 数组名数组名(下界下界1 T0 上界上界1，下界下界 T0 上界上界2)As数据类型数据类型 功能：功能：重新定义动态数组，按定义的上下界重新分配存储单元重
16、新定义动态数组，按定义的上下界重新分配存储单元 6.36.3 动态数组动态数组18感谢你的观看2019年8月21 声明声明F为动态数组的示例：为动态数组的示例：Private Sub Command1_Click()Dim F()As Integer 声明一个整型动态数组声明一个整型动态数组 Size=20 ReDim F(Size)End Sub 每次执行每次执行ReDim时，系统会清除指定数组的内容时，系统会清除指定数组的内容 若采用：若采用：ReDim Preserve F(Size)则能保留数组中原有的数据则能保留数组中原有的数据19感谢你的观看2019年8月21Private Sub
17、 Form_Load()Dim a()As Integer Show ReDim a(800)k=0 For x=200 To 600 Step 3 If x Mod 8=0 Then k=k+1 a(k)=x End If Next x ReDim Preserve a(k)For i=1 To k Print a(i)Next iEnd Sub 例例6.56.5 ReDim ReDim语句应用示例语句应用示例20感谢你的观看2019年8月21 两类数组：两类数组：一般数组一般数组和和控件数组控件数组 6.5.1 控件数组的概念控件数组的概念 控件数组是一组具有相同名称、类型和事件过程的控件
18、控件数组是一组具有相同名称、类型和事件过程的控件 例如，例如，Label1(0)，Label1(1)，Label1(2)，但但Label1,Label2,Label3,不是控件数组不是控件数组 控件数组具有以下特点：控件数组具有以下特点：(1)相同的控件名称相同的控件名称(即即Name属性属性)；(2)控件数组中的控件具有相同的一般属性；控件数组中的控件具有相同的一般属性；(3)所有控件共用相同的事件过程。所有控件共用相同的事件过程。以下标索引值以下标索引值(Index)来标识各个控件，第一个下标索引号为来标识各个控件，第一个下标索引号为0 6.5 6.5 控件数组控件数组21感谢你的观看20
19、19年8月216.5.2 控件数组的建立控件数组的建立 建立控件数组有三种方法：建立控件数组有三种方法：(1)给控件起相同的名称给控件起相同的名称 (2)将现有的控件复制并粘贴到窗体等上面将现有的控件复制并粘贴到窗体等上面 (3)将控件的将控件的Index属性设置为非属性设置为非Null数值数值 6.5.3 控件数组的使用控件数组的使用22感谢你的观看2019年8月21 例例6.7 按图按图6.46.4设计窗体，其中一组设计窗体，其中一组(共共5 5个个)单选按钮单选按钮构成控件数组，要求当单击某个单选按钮时，能够改变文构成控件数组，要求当单击某个单选按钮时，能够改变文本框中文字的大小本框中文
20、字的大小控件数组控件数组23感谢你的观看2019年8月21设计步骤：设计步骤：(1)设计控件数组设计控件数组Option1，其中包含，其中包含5个单选按钮对象个单选按钮对象 具体操作方法：具体操作方法：画出第一个单选按钮控件，名称采用默认的画出第一个单选按钮控件，名称采用默认的Option1。此。此时该控件处于选定状态。时该控件处于选定状态。单击工具栏上的单击工具栏上的“复制复制”按钮按钮(或按或按Ctrl+C)。单击工具栏上的单击工具栏上的“粘贴粘贴”按钮按钮(或按或按Ctrl+V)，此时系统弹，此时系统弹出一个如图出一个如图6.5所示的对话框所示的对话框 单击单击“是是”，就建立一个控件数
21、组元素，其，就建立一个控件数组元素，其Index属性为属性为1，而已画出的第一个控件的而已画出的第一个控件的Index属性值为属性值为0。通过鼠标拖放可以调整新控件的位置通过鼠标拖放可以调整新控件的位置24感谢你的观看2019年8月21 继续单击继续单击“粘贴粘贴”按钮按钮(或按或按Ctrl+V)和调整控件位置，和调整控件位置，可得到控件数组中的其他三个控件，其可得到控件数组中的其他三个控件，其Index属性值分别为属性值分别为2，3和和4(即从上而下为即从上而下为0，1，2，3，4)设置控件数组各元素设置控件数组各元素(从上而下从上而下)的的Caption属性分别为属性分别为10，14，18
22、，24和和28 (2)建立一个文本框建立一个文本框Text1，其，其Text属性设置为属性设置为“控件数组的使用控件数组的使用”。再建立一个标签再建立一个标签，其，其Caption属性为属性为“字号控制字号控制”(3)编写程序代码编写程序代码25感谢你的观看2019年8月21Private Sub Form_Load()Option1(0).Value=True 选定第一个单选按钮选定第一个单选按钮 Text1.FontSize=10 设定文本框中的字号设定文本框中的字号End SubPrivate Sub Option1_Click(Index As Integer)Select Case
23、Index 系统自动返回系统自动返回Index值值 Case 0 Text1.FontSize=10 Case 1 Text1.FontSize=14 Case 2 Text1.FontSize=18 Case 3 Text1.FontSize=24 Case 4 Text1.FontSize=28 End Select End Sub26感谢你的观看2019年8月21 例例6.1 输入某小组输入某小组5个同学的成绩，计算总分和个同学的成绩，计算总分和平均分平均分(取小数后一位取小数后一位)本例利用本例利用InputBox函数来输入成绩，输入完毕后函数来输入成绩，输入完毕后经过计算，再采用经过
24、计算，再采用Print直接在窗体上输出结果直接在窗体上输出结果 6.2.36.2.3 数组的应用数组的应用27感谢你的观看2019年8月21 Private Sub Form_Load()Dim d(5)As Integer Dim i As Integer,total As Single,average As Single Show For i=1 To 5 输入成绩输入成绩 d(i)=Val(InputBox(请输入第请输入第&Str(i)&_ 个学生的成绩个学生的成绩,输入成绩输入成绩)Next i total=0 For i=1 To 5 计算总分和平均分计算总分和平均分 total=
25、total+d(i)Next i average=total/5 Print 总分：总分：&total Print 平均分：平均分：&Format(average,#.0)End Sub 28感谢你的观看2019年8月21 程序中，先通过程序中，先通过Dim语句为数组语句为数组d定义维数及下定义维数及下标范围，也即为数组安排一块连续的内存存储区，标范围，也即为数组安排一块连续的内存存储区，但这并不意味着内存里该数组已建立了应有的内容但这并不意味着内存里该数组已建立了应有的内容 本例中输入数组中的数据是由本例中输入数组中的数据是由InputBox函数来函数来实现的，共循环了五次，输入的五个数依次
26、赋值给实现的，共循环了五次，输入的五个数依次赋值给下标变量下标变量d(1)d(5)建立了数组中的数据后，就可以按要求进行处理建立了数组中的数据后，就可以按要求进行处理29感谢你的观看2019年8月21 (1)创建应用程序的用户界面和设置对象属性创建应用程序的用户界面和设置对象属性例例6.26.2 输入输入1010名学生的成绩，求出最高分和最低分名学生的成绩，求出最高分和最低分30感谢你的观看2019年8月21 功能要求：功能要求：通过通过Array函数输入函数输入10个分数；单击个分数；单击“查找查找”按按钮钮(Command2)后，开始查找最高分和最低分，找到后显示在标后，开始查找最高分和最
27、低分，找到后显示在标签签Label1上上 Option Base 1 Dim score As Variant Private Sub Form_Load()Label1.Caption=单击单击“查找查找”按钮开始查找最高分和最低按钮开始查找最高分和最低分分 score=Array(89,96,81,67,79,90,63,85,95,83)End Sub (2)编写程序代码编写程序代码31感谢你的观看2019年8月21 Private Sub Command1_Click()Dim max As Integer,min As Integer max=score(1)设定初值设定初值 min
28、=score(1)For i=2 To 10 If max score(i)Then 找最低分找最低分 min=score(i)End If Next i Chr(13)起换行作用起换行作用 Label1.Caption=最高分：最高分：+Str(max)+_ Chr(13)+最低分：最低分：+Str(min)End Sub32感谢你的观看2019年8月21 例例6.3 6.3 分别计算分别计算5 5个学生和个学生和3 3门课的平均分门课的平均分 某学习小组有某学习小组有5名学生，成绩如表名学生，成绩如表6.1所示所示 分析：分析：用一个用一个二维数组二维数组a(5,3)来描述。程序中设置两重
29、循来描述。程序中设置两重循环，用以环，用以实现每行和每列上的累加实现每行和每列上的累加。本例采用赋值语句来输。本例采用赋值语句来输入学生成绩，并采用入学生成绩，并采用Print直接在窗体上输出结果直接在窗体上输出结果 r=1 c=1,2,3r=2 c=1,2,3r=3 c=1,2,3r=4 c=1,2,3r=5 c=1,2,3求求5个学生的平均分个学生的平均分 下标使用情况下标使用情况33感谢你的观看2019年8月21 Option Base 1 Private Sub Form_Load()Dim a(5,3)As Integer Dim r As Integer,c As Integer,
30、s As Integer k=Array(数学数学,英语英语,计算机计算机)输入课程名输入课程名 a(1,1)=69:a(1,2)=89:a(1,3)=74 输入学生成绩输入学生成绩 a(2,1)=94:a(2,2)=80:a(2,3)=90 a(3,1)=57:a(3,2)=62:a(3,3)=73 a(4,1)=98:a(4,2)=94:a(4,3)=90 a(5,1)=73:a(5,2)=76:a(5,3)=63 例例6.36.334感谢你的观看2019年8月21 Show Print 学生学生,平均分平均分“输出输出20个减号个减号“-”Print String(20,-)For r=
31、1 To 5 s=0 累加前清累加前清0 For c=1 To 3 累加同一行数据累加同一行数据 s=s+a(r,c)Next c Print r,Format(s/3,#.0)Next r Print Print 课程课程,平均分平均分 Print String(20,-)For c=1 To 3 s=0 For r=1 To 5 累加同一列数据累加同一列数据 s=s+a(r,c)Next r Print k(c),Format(s/5,#.0)Next cEnd Sub35感谢你的观看2019年8月21 程序运行结果程序运行结果 36感谢你的观看2019年8月21 解题方法：解题方法：(1
32、)利用利用Int(91*Rnd+10)产生值为产生值为10到到100的随机整数的随机整数 使用使用Randomize得到不同的随机数序列得到不同的随机数序列 (2)按值从小到大进行排序。排序方法：按值从小到大进行排序。排序方法：将将10个数放入数组个数放入数组a中，对下列下标变量进行排序处理：中，对下列下标变量进行排序处理：a(1),a(2),a(3),，a(10)从这从这10个下标变量中，选出最小值，通过交换把该值存入个下标变量中，选出最小值，通过交换把该值存入a(1)中中 除除a(1)之外之外(a(1)已存放最小值已存放最小值)，从其余，从其余9个下标变量中选出最小值个下标变量中选出最小值
33、(即即10个数中的次小值个数中的次小值)，通过交换把该值存入，通过交换把该值存入a(2)中中 选出选出a(3)a(10)中的最小值，通过交换，把该值存入中的最小值，通过交换，把该值存入a(3)中中 重复上述处理，重复上述处理，至至a(8)，可使，可使a(1)a(8)按小到大排列按小到大排列 第第9次处理，选出次处理，选出a(9)及及a(10)中的最小值，通过交换把该值存入中的最小值，通过交换把该值存入a(9)中，中，此时此时a(10)存放的就是最大值存放的就是最大值 例例6.46.4 随机产生十个随机产生十个1010100100的整数，用的整数，用“选择排序法选择排序法”按值按值从小到大顺序排
34、序，最后输出结果从小到大顺序排序，最后输出结果37感谢你的观看2019年8月21排列要求排列要求 小小 大大 示例：示例：a(1)a(2)a(3)a(4)90 64 65 59 1.a(1)与与a(2)a(4)比较，选出最小值，结果比较，选出最小值，结果 59 90 65 64 2.a(2)与与a(3)a(4)比较，选出次小值，结果比较，选出次小值，结果 59 64 90 65 3.a(3)与与a(4)比较，选出较小值，结果比较，选出较小值，结果 59 64 65 90 i=1 j=2,3,4 i=2 j=3,4 i=3 j=4For i=1 to 3 For j=i+1 to 4 Next
35、jNext i程程序序结结构构38感谢你的观看2019年8月21 完成上述比较及排序处理过程，可以采用两重循环结构，完成上述比较及排序处理过程，可以采用两重循环结构，外循环的循环变量外循环的循环变量i从从1到到9，共循环九次；内循环的循环变量，共循环九次；内循环的循环变量j从从i+1到到10。本例采用默认的用户界面，所需数据由随机函数产生，处本例采用默认的用户界面，所需数据由随机函数产生，处理后结果信息通过理后结果信息通过Print方法直接输出在窗体上。方法直接输出在窗体上。Private Sub Form_Load()Show Randomize Dim a(1 To 10)As Integ
36、er Print 原始数据：原始数据：For i=1 To 10 产生产生10个随机数个随机数 a(i)=Int(91*Rnd+10)Print a(i);Next i (3)程序结构程序结构39感谢你的观看2019年8月21 Print:Print For i=1 To 9 For j=i+1 To 10 If a(i)a(j)Then t=a(i):a(i)=a(j):a(j)=t 交换位置交换位置 End If Next j Next i Print 排序结果：排序结果：For i=1 To 10 Print a(i);Next i End Sub40感谢你的观看2019年8月21 改写
37、中间程序段改写中间程序段“For i=1 To 9”“Next i”(共共7个程序个程序行行)For i=1 To 9 k=i k用来记录每次选择的最小值的下标用来记录每次选择的最小值的下标 For j=i+1 To 10 If a(k)a(j)Then k=j End If Next j t=a(k):a(k)=a(i):a(i)=t 交换位置交换位置 Next i 变量变量k记录每一次选出的最小值的下标，在本次比较结束后，记录每一次选出的最小值的下标，在本次比较结束后，使使a(i)与与a(k)一次换位即可一次换位即可41感谢你的观看2019年8月21 6.6 程序举例程序举例 例例6.8
38、查找考场教室号查找考场教室号 某课程统考凭准考证入场，考场教室安排如表某课程统考凭准考证入场，考场教室安排如表6.2。编制程。编制程序，查找准考证号码所对应的教室号码序，查找准考证号码所对应的教室号码 (1)分析分析：为便于查找，通过二维数组：为便于查找，通过二维数组rm建立这两种号码对建立这两种号码对照表。照表。数组数组rm由由Form_Load事件过程来建立，它的每一行存放了事件过程来建立，它的每一行存放了一个教室资料一个教室资料(包含准考证号码范围和教室号码包含准考证号码范围和教室号码)。当判断到某。当判断到某个给定准考证号码落在某一行的准考证号码范围内时，则该行个给定准考证号码落在某一
39、行的准考证号码范围内时，则该行中的教室号码为所求中的教室号码为所求 (2)创建应用程序的用户界面和设置对象属性创建应用程序的用户界面和设置对象属性42感谢你的观看2019年8月21 (3)编写程序代码编写程序代码 功能要求：功能要求：用户在文本框用户在文本框Text1中输入准考证号码，单击中输入准考证号码，单击“查找查找”按钮按钮(Command1)后，则查找出对应的教室，并将教后，则查找出对应的教室，并将教室号码输出在文本框室号码输出在文本框Text2中中 Dim rm(6,3)As Integer Private Sub Form_Load()输入数组数据输入数组数据 rm(1,1)=21
40、01:rm(1,2)=2147:rm(1,3)=102 rm(2,1)=1741:rm(2,2)=1802:rm(2,3)=103 rm(3,1)=1201:rm(3,2)=1287:rm(3,3)=114 rm(4,1)=3333:rm(4,2)=3387:rm(4,3)=209 rm(5,1)=1803:rm(5,2)=1829:rm(5,3)=305 rm(6,1)=2511:rm(6,2)=2576:rm(6,3)=306 End Sub43感谢你的观看2019年8月21 Private Sub Command1_Click()Dim no As Integer,flag As Int
41、eger flag=0 查找标记，查找标记，0表示未找到表示未找到 no=Val(Text1.Text)For i=1 To 6 If no=rm(i,1)And no=rm(i,2)Then Text2.Text=rm(i,3)显示教室号码显示教室号码 flag=1 1表示找到表示找到 Exit For End If Next i If flag=0 Then Text2.Text=无此准考证号码无此准考证号码 End If Text1.SetFocus 设置焦点设置焦点 End Sub44感谢你的观看2019年8月21 某学习小组某学习小组10名学生的成绩情况如表名学生的成绩情况如表6.3
42、所示，现要求采所示，现要求采用折半查找法，通过学号查询学生成绩用折半查找法，通过学号查询学生成绩 (1)分析：分析：折半查找法也称对半查找法，是一种效率较高的折半查找法也称对半查找法，是一种效率较高的查找方法。对于大型数组，它的查找速度比顺序查找法查找方法。对于大型数组，它的查找速度比顺序查找法(例例6.8采用的是顺序查找法采用的是顺序查找法)快得多快得多 在采用折半查找法之前，要求将数组按查找关键字在采用折半查找法之前，要求将数组按查找关键字(如本如本例的学号例的学号)排好序排好序(从大到小或小到大从大到小或小到大)例例6.9 采用折半查找法查询学生成绩采用折半查找法查询学生成绩45感谢你的
43、观看2019年8月21 先从数组中间开始比较，先从数组中间开始比较，判别中间的那个元素是不是判别中间的那个元素是不是要找的数据：要找的数据：是，则查找成功是，则查找成功 否，若被查找的数据是在该数组的上半部，则从上半否，若被查找的数据是在该数组的上半部，则从上半部的中间继续查找，否则从下半部的中间继续查找部的中间继续查找，否则从下半部的中间继续查找 照此进行下去，不断缩小查找范围照此进行下去，不断缩小查找范围 至最后，因找到或找不到而停止查找至最后，因找到或找不到而停止查找 对于对于n个数据，若用变量个数据，若用变量Top、Bott分别表示每次分别表示每次“折半折半”的首位置和末位置，则中间位
44、置的首位置和末位置，则中间位置M为为 M=Int(Top+Bott)/2)这样就将这样就将Top,Bott分成两段分成两段，即，即Top,M-1和和M+1,Bott,若要找的数据小于由若要找的数据小于由M指示的数据，则该数据在指示的数据，则该数据在Top,M-1范围内，反之，则在范围内，反之，则在M+1,Bott范围内范围内 折半查找法的过程折半查找法的过程46感谢你的观看2019年8月21 折半查找法的过程折半查找法的过程学号学号 h()1201120212031205120612071209121012111215先排好序先排好序数学数学 d(x,1)语文语文 d(x,2)92 8678
45、7183 7467 7571 5562 8098 8399 8057 6780 78m=Int(Top+Bott)/2)要找的学号要找的学号No h(m)=m为所求为所求 m Top=m+1 Top=1Bott=10 47感谢你的观看2019年8月21 (2)创建应用程序的用户界面和设置对象属性创建应用程序的用户界面和设置对象属性 (3)编写程序代码编写程序代码48感谢你的观看2019年8月21 Dim h(10)As Integer,d(10,2)As Integer Private Sub Form_Load()学号存放在数组学号存放在数组h()中中 h(1)=1201:h(2)=1202
46、:h(3)=1203 h(4)=1205:h(5)=1206:h(6)=1207 h(7)=1209:h(8)=1210:h(9)=1211:h(10)=1215 成绩存放在数组成绩存放在数组d(,)中中 d(1,1)=92:d(1,2)=86 d(2,1)=78:d(2,2)=71 d(3,1)=83:d(3,2)=74 d(4,1)=67:d(4,2)=75 d(5,1)=71:d(5,2)=55 d(6,1)=62:d(6,2)=80 d(7,1)=98:d(7,2)=83 d(8,1)=99:d(8,2)=80 d(9,1)=57:d(9,2)=67 d(10,1)=80:d(10,2
47、)=78 End Sub49感谢你的观看2019年8月21 Private Sub Command1_Click()Dim no As Integer,flag As Integer Dim m As Integer,top As Integer,bott As Integer flag=-1 置未找到标志置未找到标志 top=1:bott=10 设定范围设定范围 no=Val(Text1.Text)取学号取学号 If no h(bott)Then flag=-2 若超出学号范围若超出学号范围,置特殊标志置特殊标志-2 End If50感谢你的观看2019年8月21 Do While flag
48、=-1 And top=bott m=(top+bott)/2 取中点取中点 Select Case True Case no=h(m)找到找到 flag=m 置找到标志置找到标志 Text2.Text=h(m)Text3.Text=d(m,1)Text4.Text=d(m,2)Text5.Text=(d(m,1)+d(m,2)/2 Case no h(m)大于中间数据大于中间数据 top=m+1 下半部下半部 End Select Loop 51感谢你的观看2019年8月21 If flag Val(Text1(i+1).Text)Then t=Text1(i).Text Text1(i).Text=Text1(i+1).Text Text1(i+1).Text=t End If Next i 沉沉底数底数用用红色表示红色表示 Text1(n-j+1).ForeColor=RGB(255,0,0)Next j MsgBox 排序完毕排序完毕“End Sub57感谢你的观看2019年8月21
