Red de conocimiento informático - Problemas con los teléfonos móviles - Cómo utilizar el lenguaje VB para realizar la salida de la matriz de rotación combinada

Cómo utilizar el lenguaje VB para realizar la salida de la matriz de rotación combinada

Dim A, B son números enteros

Dim N(5, 5) As String 'Declara una matriz de enteros vacía s.

Private subform_Activate()

Rem asigna valores a la matriz N$ y muestra la matriz.

Para A = 1 a 5

Para B = 1 a 5

N(A,B) = Mid(Str$(A),2, 1) + Mid(Str$(B),2,1)

Imagen 1. Imprimir N(A, B) + espacio(3);

Siguiente B

Imagen 1. Imprimir:Imagen1. Imprimir

Siguiente A

Conector final

Botón Sub privado _Haga clic (el índice es un número entero)

Imagen 2. Cls

Seleccionar índice de casos

Caso 0

Intercambio de ruta

Para A = 1 a 5

Para B = 1 a 5

Foto 2. Imprimir N(B, A) + espacio(3);

Siguiente B

Imagen 2. Imprimir: Imagen 2. Imprimir

Siguiente A

Caso 1

Inversión de línea Rem

Para A = 1 a 5

Para B = 1 a 5

Foto 2. Imprimir N(6 - A, B) + espacio(3);

Siguiente B

Imagen 2. Imprimir: Imagen 2. Imprimir

Siguiente A

Caso 2

Columna Rem invertida

Para A = 1 a 5

Para B = 1 a 5

Foto 2. Imprimir N(A, 6 - B) + espacio(3);

Siguiente B

Imagen 2. Imprimir: Imagen 2. Imprimir

Siguiente A

Caso 3

Fin

Finalizar selección

Finalizar conector