Algorithms/Sorting-bubble sort

From Wikibooks, open books for an open world
Jump to: navigation, search

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