第4章 数组及应用

演示
22
4.2.4 一维数组的应用—数据排序
3、两种排序方法的比较
问题：两种排序方法那一种好？
结论：选择法排序比冒泡法排序算法优
23
4.3 二维数组及多维数组
4.3.1 二维数组的声明
声明格式如下： 其中的参数与一维数组完全相同。 例如：Dim a(2,3) As Single
1 4 7 2 5 8 3 6 9
日期型数组、变体数组、对象数组。
按数组的维数可分为： 一维数组、二维数组、多维数组。
6
4.2 一维数组
4.2.1 一维数组的声明
一维数组形式: Dim 数组名([<下界>to]<上界>)[As <数据类型>]
或：
Dim 数组名[<数据类型符>]([<下界>to]<上界>)
„ 声明了a数组有10个元素 数组元数的数据类型
例：Dim a(1 to 10) As Integer
1是下标的下界
10是下标的上界
与上面声明等价形式： Dim a%(1 to 10) 7
4.2.1 一维数组的声明
说明：
1．数组名的命名规则与变量的命名相同。 2．数组的元素个数：上界-下界+1。 3．缺省<下界>为0，若希望下标从 1开始，可在模块的通 用部分使用Option Base语句将设为1。其使用格式是：
则下面的语句都是正确的。
A(1)=A(2)+B(1)+5 ' 取数组元素运算
A(i)=B(i)
B(i+1)=A(i+2)
' 下标使用变量
' 下标使用表达式
10
4.2.3 一维数组的基本操作
1. 可通过循环给数组元素赋初值 For i = 1 To 10 „ A数组的每个元素值为1 A(i)=1 Next i
2）第2遍：除第1 个数外，其余n-1个数中选最小的 数，与第2个数交换位置；
（演示）
1 7
5
3
8
9
7 1
6
4
3）依次类推，选择了n-1次后，这个数列已按升 序排列。
16
4.2.4 一维数组的应用—数据排序
选择法排序算法的流程图：
17
4.2.4 一维数组的应用—数据排序
选择法排序（升序）的VB程序： For i = 1 To n - 1 p = i For j = i + 1 To n If a(p) > a(j) Then p = j Next j t = a(i): a(i) = a(p): a(p) = t Next i 思考：如果按降序排，程序如何修改？
×
5 ．如果省略As子句，则数组的类型为变体类型。 6．数组中各元素在内存占一片连续的存储空间。
A(0) A(1) A(2) …. A(n)
一维数组在内存中存放的顺序
9
4.2.2 一维数组元素的引用
使用形式： 数组名(下标) 其中：下标可以是整型变量、常量或表达式。 例如： 设有下面的数组定义： Dim A(10) As Integer ，B(10) As Integer
29
4.3 二维数组及多维数组
4.3.5 多维数组的声明和引用
定义多维数组的格式如下： Dim 数组名([<下界>] to <上界>，[<下界> to ]<上界>，……) [As <数据类型>] 例如：
Dim a(5,5,5) As
Integer
声明a是三维数组
' 声明b是四维数组
12
4.2.3 一维数组的基本操作
4. 将数组元素倒置 For i =1 To 10\2 t=A(i) A(i)=A(10-i+1) A(10-i+1)=t Next I
13
4.2.4 一维数组的应用
一、统计问题
例 4.1 编程求某班 60 个学生某门课程考试的平均成绩及高于 平均成绩的学生人数。
2. 数组的输入 输入10个数，并存入到数组A中 For i = 1 To 10 A(i) =Val( InputBox(“输入A(” & i & “) 的值”) ) Next i
11
4.2.3 一维数组的基本操作
3. 求数组中最大元素及所在下标 Dim Max As Integer, iMax As Integer Max = A(1): iMax = 1 For i = 2 To 10 If A(i) > Max Then Max = A(i) iMax = i End If Next i Print "A(" & iMax & ")="; A(iMax)
18
4.2.4 一维数组的应用—数据排序
例4.3 用随机函数产生50个10～100的随机整数，
并按由小到大的顺序打印出来。
演示
19
4.2.4 一维数组的应用—数据排序
2．冒泡法排序（升序）
算法 ：(将相邻两个数比较，大数交换到后面) 1）第 1 趟：将每相邻两个数比较，大数交换到 后面，经 n-1 次两两相邻比较后，最大的数已交换 到最后一个位置。 演示 2）第 2 趟：将前n-1个数（最大的数已在最后）按 上法比较，经n-2次两两相邻比较后得次大的数； 3）依次类推，n个数共进行n-1趟比较， 在第j趟中要进行n-j次两两比较。
24
4.3 二维数组及多维数组
4.3.2 二维数组的引用
引用形式： 数组名(下标1，下标2) 例如： a(1,2)=10 a(i+2,j)＝a(2,3)*2 在程序中常常通过二重循环来操作使用二维数组元素。
4.3.3 二维数组的基本操作
1. 二维数组数据的输入 2. 求最大元素及其所在的行和列 3. 计算两矩阵相乘 5. 矩阵的转置
第4章 数组及应用
本章要求：
1.掌握数组的概念 2.掌握数组（一、二维）的定义及其引用， 3.掌握控件数组的建立及使用。
4.掌握与数组有关的常用算法，如排序、查找、插入等。
重点：
数组定义及引用方法，与数组有关的一些常用算法
难点：
与数组有关的一些常用算法 1
引 例
输入 10 个数，输出它们的平均值及大于平均值 的那些数。
3
引 例
思考：
如果能使用Ai ( i=1,2,…..10 )的形式？
使用循环来写程序?
VB中表示下标变量就是通过定义数组 来实现的。
4
第4章 数组 4.1 概 述
数组的概念：数组并不是一种数据类型，而是 一组相同类型数据的集合。用一个统一的名字（数 组名）代表逻辑上相关的一批数据，每个元素用下 标变量来区分；下标变量代表元素在数组中的位置。
20
4.2.4 一维数组的应用—数据排序
冒泡法排序算法的流程图：
21
4.2.4 一维数组的应用—数据排序
冒泡法排序（升序）程序： For i = 1 To n - 1 For j = 1 To n-i If a(j) > a(j+1) Then t=a(j)： a(j)=a(j+1)：a(j+1)=t End if Next j Next i
Next j Next i
26
4.3 二维数组及多维数组
2. 求最大元素及其所在的行和列
用变量max存放最大值，row,col存放最大值所在行列号
Max = a(1, 1): row = 1: Col = 1 For i = 1 To N For j = 1 To M If a(i, j) > a(row, Col) Then Max = a(i, j) row = i Col = j End If Next j Next i Print "最大元素是"; Max Print "在第" & row & "行,"; "第" & Col & "列"
Option Base 0|1
例如： Option Base 1
‘ 后面的参数只能取 0 或 1
‘ 将数组声明中缺省<下界>下标设为 1
5.<下界>和<上界>不能使用变量，必须是常量，常量可以是 直接常量、符号常量，一般是整型常量。 8
4.2.1 一维数组的声明
Dim N As Integer N=Val(InputBox(“Enter N=?”)) Dim A(N) As Integer
引 例
A7=Val(InputBox(“Enter A7 Number”)) A8=Val(InputBox(“Enter A8 Number”)) A9=Val(InputBox(“Enter A9 Number”)) A10=Val(InputBox(“Enter A10 Number”)) S=A1+A2+A3+A4+A5+A6+A7+A8+A9+A10 Ave=S/10 IF A1>Ave Then Print A1 IF A2>Ave Then Print A2 IF A3>Ave Then Print A3 IF A4>Ave Then Print A4 ……….. „ 实际程序是不能这样写
如果使用：A1，A2，A3，A4，A5，A6，A7，A8，A9，A10
Dim N%, S!, Ave!, A1!, A2！….,A10! „ 实际程序是不能这样写 A1=Val(InputBox(“Enter A1 Number”)) A2=Val(InputBox(“Enter A2 Number”)) A3=Val(InputBox(“Enter A3 Number”)) A4=Val(InputBox(“Enter A4 Number”)) A5=Val(InputBox(“Enter A5 Number”)) A6=Val(InputBox(“Enter A6 Number”)) 2