Next j

Text1.Text = Text1.Text & vbCrLf

Next i

all = 0

For i = 2 To n - 1

For j = 2 To n - 1

all = all + a(i, j)

Next j

Next i

Text2 = \

所有不靠边元素之和

\

End Sub