Question

期末考试，跪求VB大师帮我详解，题不难，只是我没学过，详情看下方，很着急，重谢！！！

矩阵
1.用inputbox函数输入一个5行5列的矩阵
2.求矩阵的两个对角线之和，具体实现如实例所示。
就是这矩阵题，不难吧，谢了。。。

这是老师做的成题的图片，在这窗体中点击“输入一个5行5列...”，就弹出“输入矩阵值”这一框框。

嗯，就这样，迅速的，老师催了，做出，追加分。。。叩头了，泪奔。。。
两天前问过一次，分全悬赏了，但没结果，这回分不是很高，但很急很重要。

Answer 1

Private Sub Form_Click()
Dim arr(1 To 5, 1 To 5), i, j, sum
Cls
For i = 1 To 5
For j = 1 To 5
arr(i, j) = Val(InputBox("输入一个数："))
Print arr(i, j),
Next
Print
Next
For i = 1 To 5
For j = 1 To 5
If i = j Or i = 5 - j + 1 Then
sum = sum + arr(i, j)
If i = 3 And j = 3 Then sum = sum + arr(i, j) '对角线交叉的这个数需要加2次
End If
Next
Next
Print sum
End Sub

Answer 2

下面的正确！！！！！