all = all + a(i, n)
Next i
Text2 = \
所有靠边元素之和
\
End Sub 9 ．
矩阵不靠边元素之和；
Option Explicit
Private Sub Command1_Click()
Dim n As Integer, i As Integer, j As Integer, all As Integer
n = InputBox(\
请输入方阵的阶数： \
ReDim a(n, n) As Integer
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) & \ \