VB 控制台程序实现矩阵加法、转置和乘法运算

以下是使用 VB 编写的控制台程序，实现矩阵加法、转置和乘法运算：

Module Module1
    Sub Main()
        ' 创建两个矩阵
        Dim matrix1 As Integer(,) = {{1, 2, 3}, {4, 5, 6}}
        Dim matrix2 As Integer(,) = {{7, 8, 9}, {10, 11, 12}}

        ' 矩阵加法
        Console.WriteLine('矩阵加法结果：')
        Dim resultAddition As Integer(,) = MatrixAddition(matrix1, matrix2)
        PrintMatrix(resultAddition)

        ' 矩阵转置
        Console.WriteLine('矩阵转置结果：')
        Dim resultTranspose As Integer(,) = MatrixTranspose(matrix1)
        PrintMatrix(resultTranspose)

        ' 矩阵乘法
        Console.WriteLine('矩阵乘法结果：')
        Dim resultMultiplication As Integer(,) = MatrixMultiplication(matrix1, matrix2)
        PrintMatrix(resultMultiplication)

        Console.ReadLine()
    End Sub

    ' 矩阵加法
    Function MatrixAddition(matrix1 As Integer(,), matrix2 As Integer(,)) As Integer(,) 
        Dim rows As Integer = matrix1.GetLength(0)
        Dim columns As Integer = matrix1.GetLength(1)
        Dim result(rows - 1, columns - 1) As Integer

        For i As Integer = 0 To rows - 1
            For j As Integer = 0 To columns - 1
                result(i, j) = matrix1(i, j) + matrix2(i, j)
            Next
        Next

        Return result
    End Function

    ' 矩阵转置
    Function MatrixTranspose(matrix As Integer(,)) As Integer(,) 
        Dim rows As Integer = matrix.GetLength(0)
        Dim columns As Integer = matrix.GetLength(1)
        Dim result(columns - 1, rows - 1) As Integer

        For i As Integer = 0 To rows - 1
            For j As Integer = 0 To columns - 1
                result(j, i) = matrix(i, j)
            Next
        Next

        Return result
    End Function

    ' 矩阵乘法
    Function MatrixMultiplication(matrix1 As Integer(,), matrix2 As Integer(,)) As Integer(,) 
        Dim rows1 As Integer = matrix1.GetLength(0)
        Dim columns1 As Integer = matrix1.GetLength(1)
        Dim columns2 As Integer = matrix2.GetLength(1)
        Dim result(rows1 - 1, columns2 - 1) As Integer

        For i As Integer = 0 To rows1 - 1
            For j As Integer = 0 To columns2 - 1
                For k As Integer = 0 To columns1 - 1
                    result(i, j) += matrix1(i, k) * matrix2(k, j)
                Next
            Next
        Next

        Return result
    End Function

    ' 打印矩阵
    Sub PrintMatrix(matrix As Integer(,))
        For i As Integer = 0 To matrix.GetLength(0) - 1
            For j As Integer = 0 To matrix.GetLength(1) - 1
                Console.Write(matrix(i, j) & " ")
            Next
            Console.WriteLine()
        Next
        Console.WriteLine()
    End Sub
End Module

该程序在控制台中创建了两个矩阵，并调用了矩阵加法、转置和乘法的函数进行计算，并将结果打印出来。