VB程序题，急急

前半截倒好做，后半截没有办法做，只能呢个给你说，你做。
界面上放一个按钮、两个文本框。
代码如下。
Private Sub Command1_Click()
Dim n As Integer
Dim 主对角线 As Single
Dim 副对角线 As Single

Do
n = Val(InputBox("请输入方阵的阶数", , 3))
Loop Until n > 1
ReDim 方阵(n, n) As Single
For i = 1 To n
s = "请输入第" & i & "行"
For j = 1 To n
方阵(i, j) = Val(InputBox(s & "第" & j & "列元素的值：", , 1))
Next j
主对角线 = 主对角线 + 方阵(i, i)
副对角线 = 副对角线 + 方阵(n - i + 1, i)
Next i
Text1 = 主对角线
Text2 = 副对角线
End Sub

Private Sub Form_Load()
Text1 = ""
Text2 = ""
Command1.Caption = "开始"
End Sub

保存，就在菜单里点文件、保存from1.

option base 1
private sun command1_click()
dim n%
static a ,b as long
a=0:b=0
Do
n = Val(InputBox("请输入方阵的阶数", , 3))
Loop Until n > 1
dim x(n,n) as integer
for i=1 to n
for