¿Cuáles son los métodos de programación VB de transposición matricial?

Opción base 1

Dim a(4, 4) es un número entero

Subcomando privado 1_Click()

Dim i es un número entero, j es un número entero

Imagen 1. Cls

Hacer irregular

Para i = 1 a 4

Para j = 1 a 4

a(i, j ) = Int(Rnd * 9) + 1

Imagen 1. Imprimir a(i,j);

Siguiente j

Imagen 1. Imprimir

Siguiente yo

Conector final

Subcomando privado 2_Click()

Dim i es un número entero, j es un número entero p>

Dim b(4, 4) es un número entero

Imagen 2. Cls

Para i = 1 a 4

Para j = 1 a 4

b(i,j) = a(j,I)

Imagen 2. Imprimir b(i,j);

Siguiente j

Imagen 2. Imprimir

Siguiente yo

Conector final

Subcomando privado 3_Click()

Dim i es un número entero, j es un número entero, temp es un número entero

Imagen 2. Cls

Para i = 1 a 4

Para j = 1 a 4

temp = a(i,j)

a (i, j) = a(j, I)

a(j, i) = temp

Siguiente j

Siguiente yo

Para i = 1 a 4

Para j = 1 a 4

Imagen 2. Imprimir a(i,j);

Siguiente j

Imagen 2. Imprimir

Siguiente yo

Conector final