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