两种常见的排序方法

不看不看

Sub 选择排序法()
a = [a1:a9]
n = 9
For i = 1 To n - 1
p = i
For j = i + 1 To n
 If a(p, 1) > a(j, 1) Then p = j
 Next j
 t = a(i, 1)
 a(i, 1) = a(p, 1)
 a(p, 1) = t
Next i
[b1:b9] = a
End Sub

Sub 冒泡排序法()
a = [a1:a9]
n = 9
For i = 1 To n - 1
    For j = 1 To n - i
     If a(j, 1) > a(j + 1, 1) Then
        t = a(j, 1): a(j, 1) = a(j + 1, 1): a(j + 1, 1) = t
     End If
    Next j
Next i
[c1:c9] = a
End Sub

 

两种常见的排序方法

[此贴子已经被作者于2008-6-19 22:11:04编辑过]

一剑惊心

学习

不看不看

两种常见的排序方法

cjch1969

似曾相识

好想学COBOL语言时学过，那应该是很久之前的事情了

faliming7

学习

兰色幻想

[em17][em17]

7dong502

[em03]我看到贴子后第一个反应就是:我知道我知道,是升序和降序..

不看不看

502说错了 说的都是升序[em05]

zsd5237

学习

zhj1978