VB编程 数组行和,列和,对角线元素之和,最大最小值

Option Base 1 '定义数组默认下界为1

Private Sub Command1_Click()
Dim a(5, 5) As Integer, b(25) As Integer, e As String, s As Integer, t As Integer
Cls
Randomize

'生成二维数组
For i = 1 To 5
e = ""
For j = 1 To 5
a(i, j) = Fix(Rnd * 90) + 10 '随机数为10~99
e = e & CStr(a(i, j)) & " "
t = t + 1
b(t) = a(i, j)
Next
Print e
Next

'求每行的和
For i = 1 To 5
s = 0
For j = 1 To 5
s = s + a(i, j)
Next
Print "第" & i & "行和为"; s
Next

'求每列的和
For i = 1 To 5
s = 0
For j = 1 To 5
s = s + a(j, i)
Next
Print "第" & i & "列和为"; s
Next

'求右斜对角线的和
s = 0
For i = 1 To 5
s = s + a(i, i)
Next
Print "\对角线和为"; s

'求左斜对角线的和
s = 0
For i = 1 To 5
s = s + a(i, 6 - i)
Next
Print "/对角线和为"