请教个VB简单问题，高手请进！

来源：百度知道 编辑：UC知道 时间：2024/05/14 13:27:27
请问随便20个数，简单排个序。
请把代码写出来好吗，在线等，急~~~~~~

Public Function SortData(ByRef arrData() As Long) As Long
Dim lngLB As Long
Dim lngUB As Long
Dim lngI As Long
Dim lngJ As Long

lngUB = UBound(arrData)
lngLB = LBound(arrData)

For lngJ = lngLB + 1 To lngUB

For lngI = lngUB To lngJ Step -1
If arrData(lngI) < arrData(lngI - 1) Then

arrData(lngI) = arrData(lngI) + arrData(lngI - 1)
arrData(lngI - 1) = arrData(lngI) - arrData(lngI - 1)
arrData(lngI) = arrData(lngI) - arrData(lngI - 1)

End If
Next

Next
End Function

泡泡排序
有兴趣的话可以看一下这个
http://www.codesky.net/article/doc/200512/2005121715509039.htm

算了,还是给你个前几天用