Question

How to pass 2D array (matrix) to sub procedure in VB.NET

Answer 1

Module Module1

    Sub Main()

        Dim matrix(,) As Integer = New Integer(,) {{13, 22, 43, 34},
                                                   {43, 54, 67, 98},
                                                   {88, 79, 11, 998}}

        print_array(matrix)

    End Sub

    Sub print_array(matrix(,) As Integer)

        Dim rows = matrix.GetUpperBound(0)
        Dim cols = matrix.GetUpperBound(1)

        For i As Integer = 0 To rows
            For j As Integer = 0 To cols
                Console.Write("{0,5}", matrix(i, j))
            Next
            Console.WriteLine()
        Next

    End Sub

End Module

' run:
' 
' 13   22   43   34
' 43   54   67   98
' 88   79   11  998

 

70+ SQL courses for beginners and professionals