Red de conocimiento informático - Problemas con los teléfonos móviles - Utilice VB para escribir un programa que cree y genere una matriz de 10*10 en la que dos elementos en la diagonal son 1 y los elementos restantes son 0.

Utilice VB para escribir un programa que cree y genere una matriz de 10*10 en la que dos elementos en la diagonal son 1 y los elementos restantes son 0.

Private Sub Form_Click()

Dim a(1 a 10, 1 a 10) como entero

Para i = 1 a 10

Para j = 1 a 10

a(i, j) = 0

Si i = j Entonces a(i, j) = 1

Si i j = 11 Entonces a( i, j) = 1

Imprimir a(i, j); " ";

Siguiente j

Imprimir

Siguiente An yo

terminador