第10讲：多维与动态数组.ppt

实验 Dim a%(1 To 7), t% For i = 1 To 7 a(i) = i Next i For i = 1 To 8 For k = 1 To 7 Print a(k); Next k Print t = a(7) For j = 7 To 2 Step -1 a(j) = a(j - 1) Next j a(1) = t Next i 杨辉三角 Dim a%(1 To 7, 1 To 7) For i = 1 To 7 For j = 1 To 7 If i = j Then If j = 1 Or i = j Then a(i, j) = 1 Else a(i, j) = a(i - 1, j) + a(i - 1, j - 1) End If End If Next j Next i 杨辉三角 For i = 1 To 7 For j = 1 To 7 If i = j Then Print a(i, j); End If Next j Print Next i * * * * * * * * * * * * * * * * * * * 数组元素循环右移N位 Dim a%(1 To 5), t% For i = 1 To 5 a(i) = i Next i For i = 1 To Val(Text1.Text) t = a(5) For j = 5 To 2 Step -1 a(j) = a(j - 1) Next j a(1) = t Next i For i = 1 To 5 Print a(i); Next i 50个随机数排序输出 Dim a%(1 To 50), t%, num Randomize For i = 1 To 50 a(i) = Int(Rnd * (100 - 10 + 1)) + 10 Next i ‘产生五十个随机数 For i = 1 To 49 For j = i + 1 To 50 If a(i) a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next j Next i ‘排序 50个随机数排序输出 For i = 1 To 50 Print a(i); num = num + 1 If num Mod 10 = 0 Then Print End If Next i 第10讲 二维与动态数组 主要内容 1、二维数组概述 2、二维数组的使用 3、动态数组 4、例题 引入 数组是类型相同变量的集合。当处理多个类型相同的数据时可以考虑选用数组。比如计算10名同学的一门功课的成绩排序，可以数组来存放成绩。 引入 有时候，数据并不是线性结构，而是按照逻辑关系排列成一种平面结构。例如3个学生，4门功课的成绩，求每个学生的总成绩。显然，成绩数据是一个二维表结构，由每门成绩由两个元素确定，用只含有一个下标的数组就不够方便 。 学号1 学号2 学号3 数学 英语 物理 化学 VB中提供二维数组来存储和处理类似的二维表结构 二维数组 具有一个下标的数组称为一维数组。具有两个下标的数组称为二维数组。 一维数组是多个类型相同的变量构成的线性结构，二维数组是多个类型相同的变量构成的平面结构。 二维数组的声明 Dim 数组名（[下界to]上界，[下界to]上界）[As 类型] 例如：Dim T（2，3）As Integer 定义了二维数组，名字为T ，类型为Integer，该数组有3行（0～2），4列（0～3），占据12（3×4）个整型变量空间。 二维数组的存储 Dim a（3，4）As Integer 存储结构 a(0,0) 数组a a(0,1) a(0,2) a(0,3) a(1,0) a(1,1) a(1,2) a(1,3) a(2,0) a(2,1) a(2,2) a(2,3) 按行存储 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) a(2,1) a(2,2