求给数组排序的算法或其它方法

[teieikun]

有一数组douArray() as double
求给这个数组里的元素进行有小到大的排序的算法！
谢谢！

[faysky2]

Private Sub Sort(ByRef douArray() As Double)
Dim arrTemp As Double, i%, j%
For i = 0 To UBound(douArray)
For j = i + 1 To UBound(douArray)
If douArray(i) > douArray(j) Then
arrTemp = douArray(i)
douArray(i) = douArray(j)
douArray(j) = arrTemp
End If
Next
Next
End Sub

[viena]

冒泡

[faysky2]

调用例子：
Private Sub Command1_Click()
Dim douArray(9) As Double
douArray(0) = 23.2
douArray(1) = 5.6
douArray(2) = 43.2
douArray(3) = 1.4
douArray(4) = 55.4
douArray(5) = 33.2
douArray(6) = 24.2
douArray(7) = 8.9
douArray(8) = 3.5
douArray(8) = 15
Sort douArray '给douArray数组排序
Dim i%
For i = 0 To UBound(douArray)
Debug.Print douArray(i)
Next
End Sub

[teieikun]

十分感谢，我的这个问题是属于算法问题还是数据结构问题？

[teieikun]

faysky2 你好，能将你的MSN通过短消息发给我吗？希望能和你有些很好的交流！谢谢!