一句话明白排序算法之一——选择排序法

核心思想：假设一个为最大

选择排序演示：

            

宏观把握:

第一论：

从第一个位置开始，让第一个数和第二个数比较，如果第一个数小于第二个数，则交换这两个数的位置，如果第一个数大于第二个数，则位置不变，这样第一个位置存放的是大的数，接着让第一个位置上的数（即大数）和第三个数比较，同样，大于第三个数则交换位置，否则，不交换位置，接着让第一个位置上的数和剩下的数比较，同上面的原理，这样一轮比较过后，第一个位置上的数为最大的数。然后存放到数组a(0)中。

第二轮：

让剩下的数中a(1)中的数依次和后面的数比较，若a(1)大于a(2),则让a(1)中的数和a(2)中的数交换位置，否则不交换，这样a(1)中存放的是大数，接着放a(1)中的数和后面的数比较，同样的道理，这样比较下去之后，a(1)中存放着剩下的数的最大数。依次类推。

总结：

对n个数排序，共需比较 n-1 轮，具体到第i轮需要完成的任务是：对数组后面的n-i+1个下表变量进行比较，需要比较 n-i次。

排序三角形

                   

代码：

对7个随机数进行排序：

1.产生7个随机整数：

  Private Sub Form_Load()
   Dim p As String                        'p为字符串变量，存放十个随机数
   Randomize
   p = ""
   For i = 1 To 7                             '产生7个随机数
     Do
       x = Int(Rnd * 11) + 10         'x=10到100之间的任意的一个整数
       yes = 0                                  '得到一个随机数之后，就让yes=0.
       
       '查重
       For j = 1 To i - 1
           If x = a(j) Then yes = 1: Exit For         '如果检查出有重复，则退出查重循环,此时                                                                            yes=1
       Next j
     Loop While yes = 1           '用yes进行标识，当有重复的时候yes=1时，重新执行do                                                   loop循环操作，此时i值不变，x又重新获得一个随机                                                      数，如果没有检查到重复，yes=0,退出do loop循环，接                                                着执行下面的程序，把x的值赋给a(i), i值加1.
     a(i) = x
     p = p & Str(a(i)) & ","
   Next i
   Label1.Caption = LTrim(Left(p, Len(p) - 1))
   Label2.Caption = ""
End Sub

2、排序

    p = ""
   
   For i = 1 To 6                                  '需要6轮比较
       For j = i + 1 To 7                           '每一轮需要比较n-1次 ，每一轮都让本轮的第一                                                             个数和他的下一个数开始比较，所以内循环的初                                                           值是i+1, 需要比较到最后一个数，所以末值n(比                                                                较的数的个数)
         If a(i) < a(j) Then                         
           t = a(i): a(i) = a(j): a(j) = t           '实现交换
         End If
       Next j
   Next i
   
   For i = 1 To 10
      p = p & Str(a(i)) & ","
   Next
   
   Label2.Caption = LTrim(Left(p, Len(p) - 1))

选择排序每轮比较之后，都会出现本轮中的最大的一个，比较直观。