ch3(结构化程序设计与数组)精选.pptVIP

声明形式 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) 二维数组及多维数组 数组的输出 输出如下图所示的下三角数据 Dim sc(5,5) As Integer,i%,j% For i = 1 To 5 For j = 1 To i sc(i, j) = i * 5 + j Print sc(i, j); ; Next j Print 换行 Next I 二维数组的引用 引用形式： 数组名(下标1，下标2) 例如： a(1,2)=10 a(i+2,j)＝a(2,3)*2 在程序中常常通过二重循环来操作使用二维数组元素。 三、二维数组的基本操作 二维数组数据的输入 2. 求最大元素及其所在的行和列 3. 计算两矩阵相乘 4. 矩阵的转置 例题3－22（P71） 编程：建立一个3×5的二维数组 要求： 数组前4列由输入对话框输入 第5列为同一行上前面4个数的和 知识点： 数组的输出也需要使用循环，由维数确定循环重数。 Option Base 1 Private Sub Form_Click() Dim a(3, 5) As Integer, i As Integer, j As Integer For i = 1 To 3 For j = 1 To 4 a(i, j) = InputBox(a( i , j )=) a(i, 5) = a(i, 5) + a(i, j) Next j Next i End Sub 通用部分， 设置数组默认下界为1 前4列之和 例题3.6 编程：产生一个随机数组，找出对角线上最大 数及最小数的位置 知识点： 1、二维数组产生需要二重循环 2、数组对角线上坐标特点 i=j; i+j=n+1 3、二维数组坐标的保留需要两个参数 max = a(1, 1) ：p = 1: q = 1 For i = 1 To n If max a(i, i) Then max = a(i, i) p = i: q = i End If j = n - i + 1 If max a(i, j) Then max = a(i, j) p = i: q = j End If Next i a(1,1) a(1,2) a(1,3) a(1,4) a(1,5) a(2,1) a(2,2) a(2,3) a(2,4) a(2,5) a(3,1) a(3,2) a(3,3) a(3,4) a(3,5) a(4,1) a(4,2) a(4,3) a(4,4) a(4,5) a(5,1) a(5,2) a(5,3) a(5,4) a(5,5) 三、动态数组 Dim a(5) as integer 或者 Const n as integer =5 dim a(n) as integer 再来看一个数组的定义： n=inputbox(“请输入数组元素个数”) dim a(n) as integer 定长数组声明中的下标只能是常量 错 误 动态数组：在声明时未给出数组的大小。定长数组是在程序编译时分配存储空间；动态数组是在程序执行时分配存储空间。格式：ReDim 数组名（下标界[,…]）As 数据类型 例： ReDim a(10) As Integer 说明： （1）ReDim语句是一个可执行语句，只能出现在过程中，并且可以多次使用，改变数组的维数和大小。 （2）定长数组声明中的下标只能是常量，而动态数组ReDim 语句中的下标是常量，也可以是有了确定值的变量。 例： Private Sub Form_Click()