VB各种排序方法

1、筛选法排序筛选法排序 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个无序数据存放在个无序数据存放

2、在 数组中，对数组进行数组中，对数组进行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）依次按以上）依次按

3、以上规则比较；规则比较；第第N-1扫视扫视: 将将A（N-1）与）与A（N）按以上规则比较排序完成。）按以上规则比较排序完成。筛选法排序筛选法排序假定待排序的假定待排序的N个数已存放在数组个数已存放在数组 A 中中1.确定排序需要几轮的比较确定排序需要几轮的比较For I = 1 To N 1For I = 1 To N 1Next INext I1.确定排序需要几轮的比较确定排序需要几轮的比较2.进行每一轮的比较进行每一轮的比较 For J = For J = To To Next JNext J1.确定排序需要几轮的比较确定排序需要几轮的比较2.进行每一轮的比较进行每一轮的比较3.在每一轮

4、比较中，比较两在每一轮比较中，比较两 个数的大小，根据比较结个数的大小，根据比较结 果决定是否交换两个数果决定是否交换两个数If A(I) A(J) thenIf A(I) A(J) Then If A(I) A(J) Then Temp = A(I) Temp = A(I) A(I) = A(J) A(I) = A(J) A(J) = Temp A(J) = Temp End If End If用元素用元素A(Pointer) 去比去比较较直接排序直接排序 2 4 5 3 6I : 1Pointer: 1 6 4 5 3 2交换交换Pointer: 2交换交换Pointer: 3不交换不交换

5、交换交换Pointer: 5第一轮比较结束第一轮比较结束I Pointer I Pointer 则交换则交换A(I) A(I) 、A(Pointer)A(Pointer)即交换即交换A(1)A(1)和和A(6)A(6) 6 4 5 3 2第一轮比较第一轮比较第二轮比较第二轮比较I : 2Pointer: 2交换交换Pointer: 3不交换不交换不交换不交换第二轮比较结束第二轮比较结束I Pointer I Pointer 则交换则交换A(I) A(I) 、A(Pointer)A(Pointer)即交换即交换A(2)A(2)和和A(3)A(3) 6 5 4 3 2第三轮比较第三轮比较 6 5

6、4 3 2I : 3Pointer: 3不交换不交换不交换不交换第三轮比较结束第三轮比较结束I I Pointer Pointer 则不交则不交换换A(I) A(I) 、A(Pointer)A(Pointer)第四轮比较第四轮比较 6 5 4 3 2I : 4Pointer: 4不交换不交换第四轮比较结束第四轮比较结束I I Pointer Pointer 则不交则不交换换A(I) A(I) 、A(Pointer)A(Pointer)排序结束排序结束 6 5 4 3 2直接排序直接排序设待排序的设待排序的N个数存放在数组个数存放在数组 A 中中1.确定排序需要几轮的比较确定排序需要几轮的比较F

7、or I = 1 To N 1Next I1.确定排序需要几轮的比较确定排序需要几轮的比较2.设置这一轮指针初值设置这一轮指针初值Pointer = I1.确定排序需要几轮的比较确定排序需要几轮的比较2.设置这一轮指针初值设置这一轮指针初值3.开始一轮的比较开始一轮的比较For J = I + 1 To NNext JIf A(Pointer) A(J) Then Pointer = JEnd If1.确定排序需要几轮的比较确定排序需要几轮的比较2.设置这一轮指针初值设置这一轮指针初值3.开始一轮的比较开始一轮的比较4.进行比较，根据比较结果进行比较，根据比较结果 决定是否改变指针的值决定是否

8、改变指针的值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直接排序直接排序Option ExplicitOption

9、ExplicitOption Base 1Option Base 1Private Sub CmdSort_Click()Private Sub CmdSort_Click() Dim A(10) As Integer, Temp As Integer Dim A(10) As Integer, Temp As Integer Dim I As Integer, J As Integer Dim I As Integer, J As Integer Dim Pointer As Integer Dim Pointer As Integer Randomize Randomize For I =

10、 1 To 10 For I = 1 To 10 A(I) = Int(Rnd * (100 - 1) + 1 A(I) = Int(Rnd * (100 - 1) + 1 Text1 = Text1 & Str(A(I) Text1 = Text1 & Str(A(I) Next I Next I For I = 1 To 9 For I = 1 To 9 Pointer = I Pointer = I For J = I + 1 To 10 For J = I + 1 To 10 If A(J) A(Pointer) Then If A(J) AA（2 2）则交换）则交换这

11、两个数组元素的值，否则不交换；然后再用这两个数组元素的值，否则不交换；然后再用A A（2 2）和）和A A（3 3）比较，处理方法相同；比较，处理方法相同；以此类推，直到以此类推，直到A A（N-1N-1）和）和A A（N N）比较后，这时比较后，这时A A（N N）中就存放了）中就存放了N N个数中最大的数。个数中最大的数。第二轮比较：第二轮比较：将将A A（1 1）和）和A A（2 2）、）、A A（2 2）和）和A A（3 3），），A A（N-2N-2）和）和A A（N-1N-1）比较，处理方法和第一轮相同，这一轮比）比较，处理方法和第一轮相同，这一轮比较结束后较结束后A A（N-1N

12、-1）中就存放了）中就存放了N N个数中第二小的数。个数中第二小的数。第第N-1N-1轮比较：轮比较：将将A A（1 1）和）和A A（2 2）进行比较，处理方法同上，）进行比较，处理方法同上， 比较结束后，这比较结束后，这N N个数按从小到大的次序排列好。个数按从小到大的次序排列好。每一轮的比较后都会使小数逐渐浮起来，大数下沉，每一轮的比较后都会使小数逐渐浮起来，大数下沉，就象冒泡一样就象冒泡一样冒泡排序举例：冒泡排序举例：对整数序列对整数序列 8 5 2 4 3 8 5 2 4 3 按升序排序按升序排序8524352438243582345823458初初始始状状态态第第一一趟趟结结果果第

13、第二二趟趟结结果果第第三三趟趟结结果果第第四四趟趟结结果果小小的的逐逐渐渐上上升升每每趟趟沉沉下下一一个个最最大大的的858248 3885243程序程序冒泡法排序一冒泡法排序一Option ExplicitOption ExplicitOption Base 1Option Base 1Dim A(10) As IntegerDim A(10) As IntegerPrivate Sub Command1_Click()Private Sub Command1_Click() Dim I As Integer, J As Integer Dim I As Integer, J As Inte

14、ger Dim T As Integer, N As Integer Dim T As Integer, N As Integer N = UBound(A) N = UBound(A) For I = 1 To N - 1 For I = 1 To N - 1 For J = 1 To (N -I ) For J = 1 To (N -I ) If A(J) A(J + 1) Then If A(J) A(J + 1) Then T = A(J) T = A(J) A(J) = A(J + 1) A(J) = A(J + 1) A(J + 1) = T A(J + 1) = T End If

15、 End If Next J Next J Next I Next IEnd SubEnd SubPrivate Sub Command4_Click()Private Sub Command4_Click() Dim I As Integer, N As Integer Dim I As Integer, N As Integer冒泡排序举例：冒泡排序举例：对整数序列对整数序列 8 5 2 4 3 8 5 2 4 3 按升序排序按升序排序82345初初始始状状态态第第一一趟趟结结果果第第二二趟趟结结果果小小的的逐逐渐渐上上升升每每趟趟沉沉下下一一个个最最大大的的8 238 48 58 885

16、24323458冒泡法排序二冒泡法排序二 （按降序排列）（按降序排列）第一论扫视：第一论扫视：1、6、5、4、3、26、1、5、4、3、26、5、1、4、3、26、5、4、1、3、26、5、4、3、1、26、5、4、3、2、1第二轮扫视：第二轮扫视：6、5、4、3、2、16、5、4、3、2、16、5、4、3、2、16、5、4、3、2、16、5、4、3、2、1发生交换，继续下一轮比较发生交换，继续下一轮比较没发生交换，结束比较没发生交换，结束比较Switch = TrueDo While Switch Switch = False N = N - 1Loop冒泡法排序二冒泡法排序二1.设置一个控

17、制循环开关，设置一个控制循环开关，当某一轮比较中不发生数当某一轮比较中不发生数据交换时，使开关值为假，据交换时，使开关值为假，标志排序结束标志排序结束 N = N - 1 1.设置一个控制循环开关，设置一个控制循环开关，当某一轮比较中不发生数当某一轮比较中不发生数据交换时，使开关值为假，据交换时，使开关值为假，标志排序结束标志排序结束2.进行某一轮比较，若发生进行某一轮比较，若发生数据交换，设置开关值为数据交换，设置开关值为真真For I = 1 To N If A(I) A(I + 1) Then Switch = True Tem = A(I) A(I) = A(I + 1) A(I + 1) = Tem End IfNext I返回返回Switch = TrueDo While Switch Loop冒泡法排序二冒泡法排序二1.进行某一轮比较，若发生进行某一轮比较，若发生数据交换，设置开关值为数据交换，设置开关值为真真For I = 1 To N If A(I) A(I + 1) Then Switch = True Tem =