我想把一个4行4列的数组,交换第1行与第3行位置,交换第2列与第4列的位置,怎么编写代码?

我想把一个4行4列的数组,交换第1行与第3行位置,交换第2列与第4列的位置,怎么编写代码?
下面是我编写的代码,我不能交换第2列与第4列的位置,哪里错了?
Option Base 1
Private Sub Form_Click()
Dim a(4, 4) As Integer
For i = 1 To 4
For j = 1 To 4
a(i, j) = Val(InputBox("请输入数据"))
Next j
Next i
For i = 1 To 4
For j = 1 To 4
Print a(i, j);
Next j
Print
Next i

For i = 1 To 4

For j = 1 To 4
m = a(1, j)
a(1, j) = a(3, j)
a(3, j) = m

Print a(i, j);
Next j
Print
Next i


For i = 1 To 4
For j = 1 To 4
n = a(i, 2)
a(i, 2) = a(i, 4)
a(i, 4) = n
Print a(i, j);
Next j
Print
Next i
End Sub
同时同样的二维数组我还想知道分别输出各行各列的和的代码.求解大神帮忙啊啊啊啊.