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) & \ \