VB编程系列（4）：矩阵转置

问题描述：

编写一个程序，将一个 M 行 N 列的矩阵转置。

解题思路：

所谓矩阵转置，可以看下面这个例子：

       |1    2  3  |

A = |4     5  6  |

       |7    8  9  |

       |10 11 12 | 转置后内容为

       |1 4 7 10 |

B = |2 5 8 11 |

       |3 6 9 12 | 即行列互换，即B(j,i)=A(i,j)

程序代码：

Dim M, N As Integer

M = Val(InputBox("请输入矩阵行数"))

N = Val(InputBox("请输入矩阵列数"))

Dim A(), B() As Integer

ReDim A(M, N), B(N, M)

Randomize

Print "矩阵A