请用vb来解决，谢谢！~

编程，把下面的数据输入一个二维数组中：

25 36 78 13

2 26 88 93

75 18 22 32

56 44 36 58

然后执行以下操作：

输出矩阵两个对角线上的数；

分别输出各行和各列的和。

参考这一个，作一些修改，可以得到你要的效果。

Private Sub Command1_Click()
Dim a(5, 5) As Integer
Dim i, j As Integer, sum As Integer, b_sum As Integer, x_sum As Integer
For i = 1 To 5
For j = 1 To 5
a(i, j) = 1
sum = sum + a(i, j)
If i = j Or i + j = 5 Then x_sum = x_sum + a(i, j)
If i = 1 Or i = 5 Or j = 1 Or j = 5 Then b_sum = b_sum + a(i, j)
Next j
Next i
Print "总和是：" & sum
Print "四周的和是：" & b_sum
Print "两条对角线和是：" & x_sum
End Sub