En VB, genere aleatoriamente una matriz cuadrada de n*n (N es el número de filas de entrada) y muéstrela, calcule la suma de todos los elementos de borde y envíela.

Opción base 1

Subcomando privado1_Click()

Dim N como entero, Arr() como entero

Dim i Como entero, j Como entero

N = InputBox("Ingrese N")

ReDim Arr(N, N) 'Redefinir la matriz

Imagen1. Cls

Para i = 1 a N

Para j = 1 a N

Arr(i, j) = Int(Rnd * 10)

Imagen1.Imprimir Arr(i, j);

Siguiente j

Imagen1.Imprimir Arr(i, j);