Algorithms/Sorting-bubble sort

in visual basic:

 sub sort_vector(vet() as string, n as integer)
 
 dim c as integer, i as integer
 dim mem as string
 
 for c = 1 to (n - 1)
     for i = c to (n - 1)
         if vet(i) > vet(i + 1)
             mem = vet(i + 1)
             vet(i + 1) = vet(c)
             vet(c) = mem
         end if
     next
 next
 
 end sub
c
Last modified on 30 July 2009, at 16:12