课件：VB教学数组【医药版】.ppt

大学计算机基础——沈阳药科大学 2. 求极值（最大、最小） 例：求一批数中的最大值。 方法一：max=最小值，min=最大值 方法二：max=第一个元素的值，min=第一个元素的值 改进：max、min保存最大、最小元素的下标 这时只能求出最大、最小值，但若是问那个同学成绩最高、最低，很显然不知道，因此在求最大、最小值时最好记录下标。 程序 大学计算机基础——沈阳药科大学 3. 数组元素逆序 For i =1 To n\2 t=num(i) num (i)=num (n-i+1) num (n-i+1)=t Next i 大学计算机基础——沈阳药科大学 数组的输出往往体现在对数组中已存数据的打印输出效果，主要是二维数组，如各种矩阵的输出样式，也是考试的热点。 矩阵 For i = 0 To 4 ‘ 5次 For j = 0 to 4 ‘ 5次 sc(i,j) = i*5 + j Print sc(i,j); Next j Print ‘换行 Next i 已知数组sc(0 To 4,0 To 4) 4. 输出矩阵 大学计算机基础——沈阳药科大学 左下三角矩阵 For i = 0 To 4 ‘ 5次 For j = 0 to i ‘ i+1次 sc(i,j) = i*5 + j Print sc(i,j); Next j Print ‘换行 Next i 已知数组sc(0 To 4,0 To 4) 大学计算机基础——沈阳药科大学 左上三角矩阵 For i = 0 To 4 ‘ 5次 For j = 0 to 4-i ‘ 5-i次 sc(i,j) = i*5 + j Print sc(i,j); Next j Print ‘换行 Next i 已知数组sc(0 To 4,0 To 4) 大学计算机基础——沈阳药科大学 右上三角矩阵 For i = 0 To 4 ‘ 5次 For j = i to 4 ‘ 5-i次 sc(i,j) = i*5 + j Print Tab(4*j);sc(i,j); Next j Print ‘换行 Next i 大学计算机基础——沈阳药科大学 右下三角矩阵 For i = 0 To 4 ‘ 5次 For j = 4-i to 4 ‘ i+1次 sc(i,j) = i*5 + j Print Tab(10 + 4 * j);sc(i,j); Next j Print ‘换行 Next i 大学计算机基础——沈阳药科大学 数组排序（选择法） 例6-5.8 对已知存放在数组中的n个数，用选择法按递增顺序排序。 (1) 从n个数的序列中选出最小的数(递增)，与第1个数交换位置； (2) 除第1个数外，其余n-1个数再按(1)的方法选出次小的数，与第2个数交换位置； (3) 重复(1)n-1遍，最后构成递增序列。 大学计算机基础——沈阳药科大学 For i = 1 To n - 1 iMin= i For j = i+1 To n If iA(j) iA(iMin) Then iMin = j Next j t= iA(i): iA(i) = iA(iMin) : iA(iMin) = t Next I 大学计算机基础——沈阳药科大学 排序（冒泡法） 例6-5.9 选择法排序在每一轮排序时找最小(递增次序)数的下标，出了内循环(一轮排序结束)，再交换最小数的位置；而冒泡法排序在每一轮排序时只要将第一个与其它几个比较，只要次序不对，就交换，出了内循环，最小数已冒出。排序进行的过程见下表。 大学计算机基础——沈阳药科大学 For i = 1 To n-1