选择排序法,规范化写法如下(结果:从大到小排列输出)
Module A
Sub main()
Dim num() As Integer = {4, 3, 5, 1, 9}
Dim t As Integer = 0
For i = 0 To num.Length - 1
For j = i + 1 To num.Length - 1
If num(i) < num(j) Then
t = num(j)
num(j) = num(i)
num(i) = t
End If
Next j
Next i
For Each i As Integer In num
Console.WriteLine(i)
Next
End Sub
End Module
选择排序法:第i个数字和后N个数字进行比较,总共比较N(N-1)次:
第一轮:4和后面数字比较,排序得到:9,3,4,1,5
第二轮:3和后面数字比较,排序得到:9,5,3,1,4
第三轮:3和后面数字比较,排序得到:9,5,4,1,3
第四轮:1和后面数字比较,排序得到:9,5,4,3,1
第五轮:同第四轮(每比较一次,最大的数字被筛选出来,到第N-1轮个位置)。
更多关于选择排序:http://baike.baidu.com/view/547263.htm

QQ我:
下载MSDN桌面工具(Vista,Win7)
我的博客园
慈善点击,点击此处