VB各种排序方法.ppt

筛选法排序 2 1 3 4 6 2 1 3 4 6 不交换 交换 3 1 2 4 6 4 1 2 3 6 交换 交换 6 1 2 3 4 6 1 2 3 4 交换 6 2 1 3 4 交换 交换 6 3 1 2 4 6 4 1 2 3 6 4 1 2 3 交换 6 4 2 1 3 6 4 3 1 2 交换 6 4 3 1 2 交换 6 4 3 2 1 轮比较 轮比较 轮比较 轮比较 第一页，编辑于星期二：十三点 四十一分。 筛选法排序 例：筛选法排序。（设从大到小排序） [分析]：将N个无序数据存放在 数组中，对数组进行N-1轮扫视。 第一轮扫视：将A（1）与A（2）比较，若A（1）A（2），则交换A（1）和A（2）的值；再将A（1）与A（3）、A（4） ……A（N）依次按以上规则比较和交换，第一轮扫视完毕，N个数中最大数存放到A（1）中。 第二轮扫视：将A（2）与A（3）、A（4）…A（N）依次按以上规则比较； 第三轮扫视：将A（3）与A（4）、A（5）…A（N）依次按以上规则比较； 第N-1扫视: 将A（N-1）与A（N）按以上规则比较排序完成。 第二页，编辑于星期二：十三点 四十一分。 筛选法排序 假定待排序的N个数已存放在数组 A 中 1.确定排序需要几轮的比较 For I = 1 To N – 1 Next I 1.确定排序需要几轮的比较 2.进行每一轮的比较 For J = To Next J 1.确定排序需要几轮的比较 2.进行每一轮的比较 3.在每一轮比较中，比较两 个数的大小，根据比较结 果决定是否交换两个数 If A(I) A(J) then T = A( I ) A( I ) = A( J ) A( J ) = T End If I + 1 N Text1 = Text1 Str(A(I)) Text1 = Text1 Str(A(N)) 第三页，编辑于星期二：十三点 四十一分。 筛选法排序 返回 第四页，编辑于星期二：十三点 四十一分。 用元素A(Pointer) 去比较 直接排序 2 4 5 3 6 I : 1 Pointer: 1 6 4 5 3 2 交换 Pointer: 2 交换 Pointer: 3 不交换 交换 Pointer: 5 第一轮比较结束 I ≠ Pointer 则交换 A(I) 、A(Pointer) 即交换A(1)和A(6) 6 4 5 3 2 第一轮比较 第二轮比较 I : 2 Pointer: 2 交换 Pointer: 3 不交换 不交换 第二轮比较结束 I ≠ Pointer 则交换 A(I) 、A(Pointer) 即交换A(2)和A(3) 6 5 4 3 2 第三轮比较 6 5 4 3 2 I : 3 Pointer: 3 不交换 不交换 第三轮比较结束 I ＝ Pointer 则不交换A(I) 、A(Pointer) 第四轮比较 6 5 4 3 2 I : 4 Pointer: 4 不交换 第四轮比较结束 I ＝ Pointer 则不交换A(I) 、A(Pointer) 排序结束 6 5 4 3 2 第五页，编辑于星期二：十三点 四十一分。 直接排序 设待排序的N个数存放在数组 A 中 1.确定排序需要几轮的比较 For I = 1 To N – 1 Next I 1.确定排序需要几轮的比较 2.设置这一轮指针初值 Pointer = I 1.确定排序需要几轮的比较 2.设置这一轮指针初值 3.开始一轮的比较 For J = I + 1 To N Next J If A(Pointer) A(J) Then Pointer = J End If 1.确定排序需要几轮的比较 2.设置这一轮指针初值 3.开始一轮的比较 4.进行比较，根据比较结果 决定是否改变指针的值 1.确定排序需要几轮的比较 2.设置这一轮指针初值 3.开始一轮的比较 4.进行比较，根据比较结果 决定是否改变指针的值 5.一轮的比较结束后，根据指针的值与 I 是否不同，确定是否交换A(I)、A(Pointer) 的值 If I Optionter Then T = A( I ) A( I ) = A( Pointer ) A( Pointer ) = A( I ) End If 第六页，编