vb编程求救随机产生一个5*5的矩阵，将主对角线和次对角线元素都置为1，并求出矩阵的四周元素之和，显示在列表框中。

Question

vb 编程 求救
随机产生一个5*5的矩阵，将主对角线和次对角线元素都置为1，并求出矩阵的四周元素之和，显示在列表框中。

Answer 1

界面放置一个ListBox和一个按钮Command1,复制并运行这个程序
Private Sub Command1_Click()
n = 5
ReDim X(n, n)
'---------------------------------
List1.Clear
List1.AddItem "== 产生一个矩阵 =="
For i = 1 To n
S = ""
For j = 1 To n
X(i, j) = Round(Rnd() * 9)
S = S & " " & X(i, j)
Next
List1.AddItem S
Next
List1.AddItem ""
'-------------------------------------------------
List1.AddItem "== 双对角线上置1 =="
For i = 1 To n
X(i, i) = 1
X(i, 6 - i) = 1
Next
For i = 1 To n
S = ""
For j = 1 To n
S = S & " " & X(i, j)
Next
List1.AddItem S
Next
List1.AddItem ""
'---------------------------------------
t = 0
For i = 1 To n
For j = 1 To n
If i = 1 Or j = 1 Or i = n Or j = n Then t = t + X(i, j)
Next
Next
List1.AddItem "周边数字之和=" & t
End Sub