第5章 数组及应用.pptVIP

输入10个数，输出它们的平均值及大于平均值的那些数？ 5.1 概 述 数组的概念：数组并不是一种数据类型，而是一组相同类型数据的集合。用一个统一的名字（数组名）代表逻辑上相关的一批数据，每个元素用下标变量来区分；下标变量代表元素在数组中的位置。 一维数组形式: 说明： 1．数组名的命名规则与变量的命名相同。 2．数组的元素个数：上界-下界+1。 3．缺省下界为0，若希望下标从1开始，可在模块的通用部分使用Option Base语句将设为1。其使用格式是： Option Base 0|1 ‘ 后面的参数只能取 0 或 1 例如： Option Base 1 ‘ 将数组声明中缺省下界下标设为 1 5.如果省略As子句，则数组的类型为变体类型。 6．数组中各元素在内存占一片连续的存储空间。 Option Explicit Option Base 1 Private Sub Form_Click() Dim i As Integer, j As Integer, t As Integer, p As Integer Const N = 50 Dim a(N) As Integer Form1.Cls Print 排序前数据: For i = 1 To N 产生[10，99]之间的随机整数 a(i) = Int(Rnd * 90) + 10 Print a(i); If i Mod 10 = 0 Then Print 每行打印10个元素 Next i Print 排序 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 Print 排序后数据: For i = 1 To N Print a(i); If i Mod 10 = 0 Then Print 打印换行 Next i End Sub 3、两种排序方法的比较 结论：选择法排序比冒泡法排序算法优 问题：两种排序方法那一种好？ 第五章 数 组 5.2.4 一维数组的应用——数据排序 5.3 二维数组及多维数组 5.3.1 二维数组的声明 声明格式如下： Dim 数组名([下界] to 上界，[下界 to ]上界) [As 数据类型] 其中的参数与一维数组完全相同。 例如：Dim a(2,3) As Single 二维数组在内存的存放顺序是“先行后列”。例如数组a的各元素在内存中的存放顺序是： a(0,0)→a(0,1)→a(0,2)→a(0,3)→a(1,0)→a(1,1)→a(1,2)→ a(1,3)→a(2,0)→(2,1)→a(2,2)→a(2,3) 5.3.2 二维数组的引用 引用形式： 数组名(下标1，下标2) 例如： a(1,2)=10 a(i+2,j)＝a(2,3)*2 在程序中常常通过二重循环来操作使用二维数组元素。 5.3.3 二维数组的基本操作 二维数组数据的输入 2. 求最大元素及其所在的行和列 3. 计算两矩阵相乘 5. 矩阵的转置 5.3 二维数组及多维数组 二维数组数据的输入 5.3 二维数组及多维数组 Const N=4, M=5, L=6 Dim a(1 to N,1 to M) As Integer, i%, j%,k% 1. 给二维数组a输入数据的程序段如下： For i=1 to 4 For j=1 to 5 A(i,j)=Val(InputBox(a（ I , j ）=?)) Next j Next i 2. 求最大元素及其所在的行和列 用变量max存放最大值，row,col存放最大值所在行列号 5.3 二维数组及多维数组 Max = a(1, 1): row = 1: Col = 1 For i = 1 To N For j = 1 To M If a(i, j)