Red de conocimiento informático - Problemas con los teléfonos móviles - Pregunta del programa VB: Ingrese una matriz de 3*3 (suponiendo que no haya números idénticos en la matriz)

Pregunta del programa VB: Ingrese una matriz de 3*3 (suponiendo que no haya números idénticos en la matriz)

Subcomando privado1_Click()

Atenuar a(1 a 3, 1 a 3) como entero

Para i = 1 a 3

Para j = 1 a 3

a(i, j) = Val(InputBox("¡Ingrese el número (" Str(i) ", " Str(j) ")!"))

Para k = 1 a 3

Para l = 1 a 3

Si i = k y j = l entonces

Salir Para

Else

Si a(i, j) = a(k, l) Entonces

j = j - 1

MsgBox "¡Duplicado, vuelva a ingresar el número!"

Salir para

Finalizar si

Siguiente l

Si l lt; = 3 Entonces salga para

Siguiente k

Siguiente j

Siguiente i

Para i = 1 a 3

Para j = 1 a 3

Imprimir a(i, j

Siguiente j

Imprimir<); / p>

Siguiente i

Fin Sub