Randomize

For i = 1 To n

For j = 1 To n

a(i, j) = Int(90 * Rnd) + 10

Text1.Text = Text1.Text & a(i, j) & \

\

Next j

Text1.Text = Text1.Text & vbCrLf

Next i

all = 0

For i = 1 To n

all = all + a(1, i)

all = all + a(i, 1)

all = all + a(n, i)