矩阵及其运算(三)：矩阵的转置

    Public Function Trans(Optional ByVal tMatrix As Matrix = Nothing)
        If tMatrix Is Nothing Then
            tMatrix = Me ‘参数为空，默认为自身转置
        End If
        Dim tempMatrix As New Matrix(tMatrix.Col, tMatrix.Row)
        For i = 1 To tMatrix.Col
            For j = 1 To tMatrix.Row
                tempMatrix.Item(i, j) = tMatrix.Item(j, i)
            Next j
        Next i
        Return tempmatrix
    End Function