Question

How to merge two 2D arrays horizontally in VB.NET

Answer 1

Imports System

Module Program

    Sub Main()
        Dim a(,) As Integer = {
            {1, 2},
            {3, 4}
        }

        Dim b(,) As Integer = {
            {5, 6},
            {7, 8}
        }

        Dim rows As Integer = a.GetLength(0)
        Dim cols As Integer = a.GetLength(1) + b.GetLength(1)

        Dim merged(rows - 1, cols - 1) As Integer

        For i As Integer = 0 To rows - 1

            ' Copy A
            For j As Integer = 0 To a.GetLength(1) - 1
                merged(i, j) = a(i, j)
            Next

            ' Copy B
            For j As Integer = 0 To b.GetLength(1) - 1
                merged(i, j + a.GetLength(1)) = b(i, j)
            Next

        Next

        PrintMatrix(merged)
    End Sub

    Sub PrintMatrix(arr(,) As Integer)
        For i As Integer = 0 To arr.GetLength(0) - 1
            For j As Integer = 0 To arr.GetLength(1) - 1
                Console.Write(arr(i, j) & " ")
            Next
            Console.WriteLine()
        Next
    End Sub

End Module



' run:
'
' 1 2 5 6 
' 3 4 7 8 
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System

Module Program

    Sub Main()
        Dim a(,) As Integer = {
            {1, 2},
            {3, 4}
        }

        Dim b(,) As Integer = {
            {5, 6},
            {7, 8}
        }

        Dim rows As Integer = a.GetLength(0)
        Dim cols As Integer = a.GetLength(1) + b.GetLength(1)

        Dim merged(rows - 1, cols - 1) As Integer

        Dim colIndex As Integer = 0

        For j As Integer = 0 To a.GetLength(1) - 1
            CopyColumn(a, j, merged, colIndex)
            colIndex += 1
            CopyColumn(b, j, merged, colIndex)
            colIndex += 1
        Next

        PrintMatrix(merged)
    End Sub

    Sub CopyColumn(src(,) As Integer, srcCol As Integer, dst(,) As Integer, dstCol As Integer)
        For i As Integer = 0 To src.GetLength(0) - 1
            dst(i, dstCol) = src(i, srcCol)
        Next
    End Sub

    Sub PrintMatrix(arr(,) As Integer)
        For i As Integer = 0 To arr.GetLength(0) - 1
            For j As Integer = 0 To arr.GetLength(1) - 1
                Console.Write(arr(i, j) & " ")
            Next
            Console.WriteLine()
        Next
    End Sub

End Module



' run:
'
' 1 5 2 6 
' 3 7 4 8  
'

 

70+ SQL courses for beginners and professionals