Your Ad Here

advanced code snippet search

Posted By

eeppeliteloop on 03/23/08


Tagged

sort array arrays


Versions (?)

Sort array

 / Published in: Visual Basic
 

(VB6) Will sort a given array (may sometimes be long).

Expand | Embed | Plain Text 
  1. Public Function SortArray(ByRef TheArray As Variant)
  2. 	Dim Temp As Variant, X As Integer
  3.  
  4. 	Sorted = False
  5. 	Do While Not Sorted
  6. 		Sorted = True
  7. 		For X = 0 To UBound(TheArray) - 1
  8. 			If TheArray(X) > TheArray(X + 1) Then
  9. 				Temp = TheArray(X + 1)
  10. 				TheArray(X + 1) = TheArray(X)
  11. 				TheArray(X) = Temp
  12. 				Sorted = False
  13. 			End If
  14. 		Next X
  15. 	Loop
  16. End Function

Report this snippet  

You need to login to post a comment.