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 p>
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 p>
Para i = 1 a 5
Para j = 1 a 5
Imagen1.Imprimir pestaña (j * 5); a(i, j); p>
Siguiente j
Imagen1.Imprimir
Siguiente i
End Sub
El resultado del programa es el siguiente: