¡Se necesita con urgencia el código de programación VB!
600 1) * Rnd 600)
Siguiente i
Para i = 1 a 59
Para j = i 1 a 60
Si d(i) gt; d(j) entonces
x = d(i)
d(i) = d(j)
d( j) = x
Finalizar si
Siguiente j
Siguiente i
Para i = 1 a 60
Imprimir d(i) Si i Mod 3 = 0 Entonces Imprimir
Siguiente i
Fin Sub
Fin Sub