随机产生一个m*n的矩阵,矩阵的每个数字是0~100的正整数.mn的值由inputbox函数给出,求该矩阵的转置矩阵

Private Sub Command1_Click()
Dim a() As Integer,b() As Integer
m = InputBox("m=",m)
n = InputBox("n=",n)
ReDim a(m,n),b(m,n)
For i = 1 To m
For j = 1 To n
a(i,j) = Int(101 * Rnd)
Print a(i,j);
Next j
Print
Next i
Print
For i = 1 To m
For j = 1 To n
b(i,j) = a(j,i)
Print b(i,j);
Next j
Print
Next i
End Su