¿Cómo hago mi tarea de VB?

Atenuar j%, k%, m%, n%, mArr(1 a 80), OArr(), EArr(), ZArr(), Q%, E%, tmP%, Z%, mSum%

Q = 1

E = 1

Z = 1

Imprimir "80 entero aleatorio : "

Para j = 1 a 80

Aleatorio

mArr(j) = Int(90 * Rnd + 10)

Imprimir CStr(mArr(j)); Spc(2);

Si j Mod 10 = 0 Entonces Imprimir

Siguiente j

Imprimir

Para m = 1 a 79 'Ordenar

Para n = 80 a m + 1 Paso -1

Si mArr(n) < mArr(n - 1) Entonces tmP = mArr(n).mArr(n) = mArr(n - 1): mArr(n - 1) = tmP