Empezaremos declarando las variables a utilizar:
Dim vec(5), i, j, m As Integer
donde:
- vec(5) es un vector
- i, j son indices
- m la memoria temporal
Luego a ordenar:
vec(5) = {4,9,3,7,5}
For i = 1 To 4
For j = i + 1 To 5
m = vec(i)
vec(i) = vec(j)
vec(j) = m
j = j + 1
Next
i = i + 1
Next
En los pasos anteriores vemos dos bucles anidados, esto sirve para intercambiar las posiciones de los datos del vestor o matriz, mediante un amemoria alterna(m).
Y finalmente aparecerá :
3
4
5
7
9