module1.vb

来自「编程之道VB.NETt程序设计入门-589M.zip」· VB 代码 · 共 53 行

Module Module1

    Sub DisplayMatrix(ByVal matrix(,) As Integer)
        Dim i, j As Integer

        For i = 0 To matrix.GetUpperBound(0)
            For j = 0 To matrix.GetUpperBound(1)
                Console.Write(" " & matrix(i, j))
            Next
            Console.WriteLine()
        Next
    End Sub

    Function MultiplyMatrix(ByVal matrix1(,) As Integer, ByVal matrix2(,) As Integer) As Integer(,)
        Dim i, j, k As Integer
        Dim matrix3(matrix1.GetUpperBound(0), matrix2.GetUpperBound(1)) As Integer

        For i = 0 To matrix3.GetUpperBound(0)
            For j = 0 To matrix3.GetUpperBound(1)
                For k = 0 To matrix1.GetUpperBound(1)
                    matrix3(i, j) += matrix1(i, k) * matrix2(k, j)
                Next
            Next
        Next

        Return matrix3
    End Function

    Sub Main()
        Dim i, j As Integer
        Dim Matrix1(,) As Integer = _
            {{1, 2, 3, 4}, {2, 3, 4, 5}, {3, 4, 5, 6}}
        Dim Matrix2(3, 2) As Integer
        Dim Matrix3(,) As Integer
        For i = 0 To Matrix2.GetUpperBound(0)
            For j = 0 To Matrix2.GetUpperBound(1)
                Matrix2(i, j) = i + j
            Next
        Next

        Console.WriteLine("Matrix1:")
        DisplayMatrix(Matrix1)
        Console.WriteLine("Matrix2:")
        DisplayMatrix(Matrix2)
        Matrix3 = MultiplyMatrix(Matrix1, Matrix2)
        Console.WriteLine("Matrix3 = Matrix1 * Matrix2")
        DisplayMatrix(Matrix3)

        Console.ReadLine()
    End Sub

End Module