Elementos de programación Vb
Subcomando privado 1_Click()
Atenuar a(9), temperatura
Para i = 0 a 9
a(i) = i * 2 1< / p>
Imprimir un(uno);
Siguiente i
Imprimir Chr(10)
Para i = 0 a 9
Si tengo entonces 5
Temperatura = a(i)
a(i) = a(i 5)
a(i 5) = temperatura
Terminará si...
Imprimir un(uno);
Siguiente I
Conector final
p>