BZU PAGES: Find Presentations, Reports, Student's Assignments and Daily Discussion; Bahauddin Zakariya University Multan - Assignment Q1:Add two matrices of 2x3 using vb console Application

Code:

Module additionMatrices
 

    Sub Main()

        Dim ar1 As Integer(,)

        ar1 = New Integer(1, 2) {}

        Dim i, j As Integer

        For i = 0 To 1

            For j = 0 To 2

                ar1(i, j) = Console.ReadLine()
 

            Next

        Next

        For i = 0 To 1

            For j = 0 To 2

                Console.Write(ar1(i, j) & vbTab)

            Next

            Console.Write(vbCrLf)

        Next
 
 

        Dim ar2 As Integer(,)

        ar2 = New Integer(1, 2) {}
 

        For i = 0 To 1

            For j = 0 To 2

                ar2(i, j) = Console.ReadLine()
 

            Next

        Next

        For i = 0 To 1

            For j = 0 To 2

                Console.Write(ar2(i, j) & vbTab)
 

            Next

            Console.Write(vbCrLf)

        Next
 

        For i = 0 To 1

            For j = 0 To 2

                Console.Write(ar1(i, j) + ar2(i, j) & vbTab)

            Next

            Console.Write(vbCrLf)

        Next

    End Sub
 

End Module