¿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> 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