Programación VB para generar una matriz unidimensional

Cree un nuevo proyecto, agregue un botón en el formulario, ingrese el siguiente código y haga clic en el botón para ejecutar.

Privado a 1&(1 a 10), a2&(1 a 10)

Subcomando privado 1_Click()

Atenuar b1. , b2 & amp

Para b1 = 1 a 10

a 1(b 1)= Int(Rnd()* 100)

Imprimir a 1( b 1);

Luego

Imprimir

Para b1 = 10 a 1 paso - 1

Imprimir a 1(b 1 ) ;

Luego

Imprimir

Imprimir "Subíndice impar":

Para b1 = 1 a 10 paso 2

Imprimir a 1(b 1);

Luego

Imprimir

Imprimir "número par subíndice":

Para b1 = 2 a 10 paso 2

Imprimir un 1(b 1);

Luego

Conector final