Algorithms/Sorting-bubble sort

From Wikibooks, the open-content textbooks collection

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