编写程序，实现矩阵转置，即将一个n*m的矩阵的行和列互换。例如，a矩阵为：
       1 2 3
a=[
       4 5 6

转置后的矩阵为：
       1 4
b=[  2 5  ]
       3 6

以下是此题的【VB源代码】
Option Base 1 '数组下标要从1开始就需要这句，否则数据下载是从0开始

Private Sub Form_Click()

    Const n = 3
    Const m = 4
    Dim a(n, m), b(m, n) As Integer

    For i = 1 To n
        For j = 1 To m
            a(i, j) = Int(Rnd * 90) + 10
        Next j
    Next i

    For i = 1 To n
        For j = 1 To m
            b(j, i) = a(i, j)
        Next j
    Next i

    Print
    Print " 矩阵a（转置前):"
    Print
    For i = 1 To n
        For j = 1 To m
            Print Tab(5 * j); a(i, j);
        Next j
        Print
    Next i

    Print
    Print " 矩阵b（转置后):"
    Print

    For i = 1 To m
        For j = 1 To n
            Print Tab(5 * j); b(i, j);
        Next j
        Print
    Next i

End Sub


以上程序通过随机函数产生一个两位整数的3行4列矩阵，然后转置，分别输出原来的矩阵和转置后的矩阵。
运行此程序，点击窗体，结果如下图所示。

来源：visual basic程序设计教程第四版答案(刘炳文)

本文链接：http://www.wb98.com/vb1/post/vb_8.11.html