VB 矩阵对角线元素对换

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim s(5, 5) As Integer
Dim k As Integer
Dim l As String

For i = 1 To 5
For j = 1 To 5
s(i, j) = Int(Rnd() * 30 + 10)
l = l & s(i, j) & " "
Next j
Print l
l = ""
Next i
For i = 1 To 5
For j = 1 To 5
If i = j Then
k = s(i, j)
s(i, j) = s(i, 6 - j)
s(i, 6 - j) = k
End If
l = l & s(i, j) & " "
Next j
Print l
l = ""
Next i
End Sub

---

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim s(5, 5) As Integer
Dim k As Integer
Dim l As String

For i = 1 To 5
For j = 1 To 5
s(i, j) = Int(Rnd() * 30 + 10)
l = l & s(i, j) & " "
Next j
Print l
l = ""
Next i
For i = 1 To 5
For j = 1 To 5
If i = j Then
k = s(i, j)
s(i, j) = s(i, 6 - j)
s(i, 6 - j) = k
End If
l = l & s(i, j) & " "
Next j
Print l
l = ""
Next i
End Sub