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

选择排序演示：

宏观把握:

第一论：

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

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