Programación VB, que utiliza una matriz bidimensional para generar una matriz aleatoria 5*5 y realizar la transposición de la matriz.

El programa fuente de VB es el siguiente:

Option?Base?1

Private?Sub?Command1_Click()

Dim? ¿A(5 ,?5)?Como?Entero,?B(5,?5)?Como?Entero

Para?x?=?1?A?5

Para ?y? =?1?To?5

A(x,?y)?=?Int(10?+?Rnd?*?90)?' p>

Imprimir?A(x,?y);?'Salida

Siguiente

Imprimir

Siguiente

Imprimir

¿Para?x?=?1?A?5

Para?y?=?1?A?5

B(x,?y) ?=? A(y,?x)?'Transponer

Imprimir?B(x,?y);?'Salida

Siguiente

Imprimir

Siguiente

Fin?Sub

Los resultados de salida del programa son los siguientes:

Información ampliada:

VB : Escriba el programa e impleméntelo. La matriz 5*5 con las siguientes reglas se almacena en la matriz y se genera la matriz.

Private Sub Command1_Click()

Dim a(1 A 6, 1 A 6) Como Entero

Para i = 1 A 5

Para j = 1 A 5

tmp = 99

Si i < tmp Entonces

tmp = i

Fin si

Si j < tmp Entonces

tmp = j

Finalizar si

Si 6 - i < tmp Entonces

tmp = 6 - i

Finalizar si

Si 6 - j < tmp Entonces

tmp = 6 - j

Fin si

a(i, j) = tmp

Siguiente j

Siguiente i

Para i = 1 a 5

Para j = 1 a 5

Imagen1.Imprimir pestaña (j * 5); a(i, j);

Siguiente j

Imagen1.Imprimir

Siguiente i

End Sub

El resultado del programa es el siguiente: