Tema VB para encontrar matrices

Ejecute para ver el efecto:

Private?Sub?Command1_Click()

Dim?n?Ingrese el número: ", ," 2"))

Si?n?lt;=?1?Entonces

n?=?2

Fin?Si

'Diseñado con el atributo multilínea de TextA, TextAT se establecerá en verdadero

TextA.Text?=?""

TextAT.Text?=?""

' Matriz de almacenamiento En matrices multidimensionales

ReDim?grpA(1?To?n,?1?To?n)

'Asignar un valor a la matriz

Para?i? =?1?to?n

Para?j?=?1?to?n

grpA(i,?j)?=?i?amp; ?j

TextA.Text?=?TextA.Text?amp;??"?&?grpA(i,?j)

Siguiente?j

TextA.Text?=?TextA.Text?amp;?vbCrLf

Siguiente?n)

'Transponer

Para?i? =?1 ?A?n

For?j?=?1?A?n

grpAT(i,?j)? =?grpA(j,?i)

TextAT.Text?=?TextAT.Text??"?&?grpAT(i,?j)

Siguiente?j

TextAT.Text?= ?TextAT .Text?amp;?vbCrLf

Siguiente?i

Fin?