简单选择排序

基本原理：

1. 是从数组索引0的位置开始，与数组其它索引进行比较。如果比我小，则我们两个交换位置。
2. 然后，从1开始做类似的操作。
3. 不是稳定的排序，因为有相同数字时，例如{（2）,7,【2】,1}，（2）会和1交换位置，导致（2）与【2】的索引顺序发生了变化。

具体实现步骤：

1. 定义用于交换数组元素的方法：

Private Sub swap(ByVal array() as Short,ByVal a as Short,ByVal b as Short)
    array(a) = array(a) Xor array(b)
    array(b) = array(a) Xor array(b)
    array(a) = array(a) Xor array(b)
End Sub

　　2. 外层循环控制逐个取出数字i，最后一位不必要

       3.内层循环控制让取出的数字i同数组中其它数字进行比较j = i+1 ; j++

　　4.得到最小数字的索引min，并交换位置

Private Sub sort(ByVal array() as Short)
    Dim i,j as Short
    Dim min as Short
    For i=0 To array.Length - 2
        min = i
        For j = i + 1 To Length - 1
            If(array(j) < array(min)) Then
                min = j
            End If
        Next
        If min <> i Then
            swap(array,i,min)
        End If
    Next
End Sub