求解一道VB题目

Private Sub Form_Load()
Dim a()
Me.Show
n = Val(InputBox("请输入矩阵的阶数"))
Max = Val(InputBox("元素的最大值"))
Min = Val(InputBox("元素的最小值"))
ReDim a(n, n)
Dim sum, sum2
Randomize
For i = 0 To n - 1
For j = 0 To n - 1
a(i, j) = Int(Min + Rnd * (Max - Min + 1))
If i = j Then sum = sum + a(i, j)
Print a(i, j),
Next j
Print
Next i
For i = 0 To n - 1
For j = n - 1 To 0 Step -1
If j = n - 1 - i Then sum2 = sum2 + a(i, j)
Next j

Next i

Print "'\'向对角线元素和为:" & CStr(sum)
Print "'/'向对角线元素和为:" & CStr(sum2)
End Sub

Private Sub Form_Load()
Dim a()
Me.Show
n = Val(InputBox("请输入矩阵的阶数"))
Max = Val(InputBox("元素的最大值"))
Min = Val(InputBox("元素的最小值"))
ReDim a(n, n)
Dim sum
Randomize
For i = 0 To n - 1
For j = 0 To n - 1
a(i, j) = Int(Min + Rnd * (Max - Min + 1))
If i = j or i+j =n Then
If i = j and i+j =n Then
else
sum = sum + a(i, j)
end if
end if
Print a(i, j),
Next j
Print
Next i
Print "对角线元素和为:" & CStr(sum)
End Sub