module1.vb

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

Module Module1

    Sub Main()
        Dim i, j, k 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:")
        For i = 0 To Matrix1.GetUpperBound(0)
            For j = 0 To Matrix1.GetUpperBound(1)
                Console.Write(" " & Matrix1(i, j))
            Next
            Console.WriteLine()
        Next

        Console.WriteLine("Matrix2:")
        For i = 0 To Matrix2.GetUpperBound(0)
            For j = 0 To Matrix2.GetUpperBound(1)
                Console.Write(" " & Matrix2(i, j))
            Next
            Console.WriteLine()
        Next

        ReDim Matrix3(Matrix1.GetUpperBound(0), Matrix2.GetUpperBound(1))
        Console.WriteLine("Matrix3 = Matrix1 * Matrix2")
        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
                Console.Write(" " & Matrix3(i, j))
            Next
            Console.WriteLine()
        Next
        Console.ReadLine()

    End Sub

End Module