¿Qué tal la programación en vb?

Reflexiones sobre el método de clasificación de burbujas: (Supongamos que hay 10 números, que deben ordenarse de pequeño a grande)

Atenuar un(10)

Hacer irregularidades

Para i = 1 a 10

A(i) = Int(Rnd * i+3+Rnd * 10)' asigna un valor a la matriz.

Imprimir un(uno);

Siguiente i

Imprimir

Para i = 1 a 10 '

Para j = i + 1 a 10

Si a(j)<A(i) intercambia si el resto es menor que A(i).

t = a(j)

a(j) = a(i)

a(i) = t

Si ...terminará

Siguiente j

Siguiente i

Para k = 1 a 10

Imprimir a(k); el número de filas

Siguiente k

Imprimir

Para eliminar datos duplicados después de ordenar, puede eliminar la matriz después de obtenerla, lo que también puede reducir riesgos. El tiempo que toma la clasificación de burbujas.