编写VB程序,实现矩阵转置,即将一个nⅹm的矩阵的行和列互换.例如：A矩阵及其转置矩阵B分别为：

Private Sub Command1_Click()
Dim a(4, 2) As Integer, b(2, 4) As Integer
Dim i As Integer, j As Integer
Dim tmp1 As String, tmp2 As String
Randomize Timer
For i = 0 To 4
  For j = 0 To 2
      a(i, j) = Int(Rnd * 10)
      tmp1 = tmp1 & Str(a(i, j))
  Next
  tmp1 = tmp1 & vbCrLf
Next
For i = 0 To 2
  For j = 0 To 4
    b(i, j) = a(j, i)
    tmp2 = tmp2 & Str(b(i, j))
  Next
  tmp2 = tmp2 & vbCrLf
Next

Print "原随机矩阵为："
Print tmp1
Print "转置后矩阵为："
Print tmp2

End Sub
再问： 亲，可以告诉我你的额QQ吗