选择排序法

首先介绍一下代码

Dim a(1 To 10) As Integer

Private Sub Command1_Click()
Form_Load
End Sub

Private Sub Command2_Click()
p = “”

 For i = 1 To 9        '选择排序外循环
       For j = i + 1 To 10 '内循环
          If a(i) < a(j) Then
             t = a(i): a(i) = a(j): a(j) = t    '交换a(i)和a（j)
          End If
        Next j
 Next i

For i = 1 To 10
  p = p & Str(a(i)) & ","    'p="p a(i)"连接2个字符串
Next


Label2.Caption = LTrim(Left(p, Len(p) - 1))    '去掉左边空格的函数

End Sub

Private Sub Form_Load()
Dim p As String

Randomize

p = “”

    For i = 1 To 10
       Do
          x = Int(Rnd * 91) + 10   '产生随机数
          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

a(i) = x
p = p & Str(a(i)) & “,” ‘连接2个字符串
Next i

Label1.Caption = LTrim(Left(p, Len(p) - 1))
Label2.Caption = “”
End Sub

选择法排序的基本思想

算法描述： 每次在若干个无序数中找出最小数（升序排列），并放在无序数中的第一个位置。假定有下标为0～n的n+1个数的序列，要求按升序排列，实现的步骤如下： (1)从第0个元素开始在n+1个数中找出最小数，并与第0个元素交换位置。 (2)从第1个元素开始在剩余的n个数中找出最小数，并与第1个元素交换位置。 (3)重复(2)依次从3、4…..n+1个元素中找最小、交换直到倒数第2个元素与最后1个元素比较后结束。

舞动的代码点击进入

之前的关注点主要是在选择排序是怎么排的，却没有关注什么叫选择排序。只有做到知其然才能知其所以然。

选择排序的定义：
选择排序(Selection sort)是一种简单直观的排序算法。它的工作原理是每一次从待排序的数据元素中选出最小(或最大)的一个元素，存放在序列的起始位置，直到全部待排序的数据元素排完。之所以叫选择排序，是因为它的所有数是一个一个选出来的。这是从定义的角度来区分选择排序和冒泡排序。
选择排序是不稳定的排序方法(比如序列[5， 5， 3]第一次就将第一个[5]与[3]交换，导致第一个5挪动到第二个5后面)。
【 C#版】
private void button1_Click(object sender, EventArgs e)
{
int[] a = new int[10] { 2, 7, 1, 0, 5, 8, 6, 3, 9, 4 };
int i,j;
int t;

        for (i = 0; i <=9; i++)
        {
            for (j = i + 1; j <=9; j++)
            {
                if (a[i] <a[j])
                {
                    t = a[i];
                    a[i] = a[j];
                    a[j] = t;
                }



            }

        }
        for (i = 0; i <= 9; i++)
        {
            textBox1.Text = textBox1.Text + " " + a[i];
        }
    }