[高等教育]VB_CH5.pptVIP

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 例：对于有n个数的数组，按递增次序排序的步骤： (1) 从n个数中找出最小数的下标，出了内循环，最小数与第1个数交换位置；通过这一轮排序，第1个数已确定好。 (2) 除已排序的数外，其余数再按步骤(1)的方法选出最小的数，与未排序数中的第1个数交换位置。 (3) 重复步骤 (2)，最后构成递增序列。 选择法演示 本章目录 * 例5.5 对已知存放在数组中的6个数，用选择法按递增顺序排序。 ? ? ? ? ? ? 原始数据 8 6 9 3 2 7 a(0) a(1) a(2) a(3) a(4) a(5) 第1轮比较 2 6 9 3 8 7 ? a(1) a(2) a(3) a(5) a(5) 第2轮比较 2 3 9 6 8 7 ? ? a(2) a(3) a(4) a(5) 第3轮比较 2 3 6 9 8 7 ? ? ? a(3) a(4) a(5) 第4轮比较 2 3 6 7 8 9 ? ? ? ? a(4) a(5) 第5轮比较 2 3 6 7 8 9 选择法排序过程示意 本章目录 选择法程序 * Dim a(), iMin%, n%, i%, j%, t% a = Array( 8, 6, 9, 3, 2, 7) n = UBound(a) ‘ 获得数组的下标上界，有n+1个数 For i = 0 To n - 1 进行n轮比较 iMin = i 第i轮比较时，假定第i个元素最小 For j = i + 1 To n 在 i+1～n个元素中选最小数下标 If a(j) a(iMin) Then iMin = j Next j t = a(i) ：a(i) = a(iMin) ：a(iMin) = t Next i For i = LBound(a) To UBound(a) Print a(i); Next 本章目录 冒泡法排序 * 基本思想是： 1）从第一个元素开始，对数组中两两相邻的元素比较，将值较小的元素放在前面，值较大的元素放在后面，一轮比较完毕，一个最大的数沉底成为数组中的最后一个元素，一些较小的数如同气泡一样上浮一个位置。 2）n个数，经过n-1轮比较后完成排序。 冒泡法演示 本章目录 冒泡法排序 * ? ? ? ? ? ? 原始数据 6 5 4 3 2 1 a(0) a(1) a(2) a(3) a(4) a(5) 第1轮比较 5 4 3 2 1 6 a(0) a(1) a(2) a(3) a(4) ? 第2轮比较 4 3 2 1 5 6 a(0) a(1) a(2) a(3) ? ? 第3轮比较 3 2 1 4 5 6 a(0) a(1) a(2) ? ? ? 第4轮比较 2 1 3 4 5 6 a(0) a(1) ? ? ? ? 第5轮比较 1 2 3 4 5 6 例5.6 用冒泡排序法实现例5.5的问题。 本章目录 冒泡法程序 * Dim a(), n%, i%, j%, t% a = Array( 4, 3, 2, 1) n = UBound(a) 获得数组的下标上界，有n+1个数 For i = 0 To n - 1 有n+1个数，进行n趟比较 For j = 0 To n - 1 - 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 For i = 0 To n 输出数组 Print a(i); Ne