设计程序：设计一程序实现一个5*5的矩阵a的行列元素互换（转置）

Private Sub Command1_Click() Randomize Timer Dim n As Integer,m As Integer Dim arr1() As Integer,arr2() As Integer Dim i As Integer,j As Integer n = InputBox("请输入矩阵的行数") m = InputBox("请输入矩阵的列数") ReDim arr1(1 To n,1 To m),arr2(1 To m,1