Question

How to declare, initialize and print two-dimensional (2D) array of integers in VB.NET

Answer 1

Module Module1

    Sub Main()

        Dim a(,) As Integer = New Integer(,) {{1, 8, 5}, {6, 7, 1}, {8, 7, 6}}

        Print(a)

    End Sub

    Sub Print(arr2d(,) As Integer)
        For i As Integer = 0 To arr2d.GetUpperBound(0)
            For j As Integer = 0 To arr2d.GetUpperBound(1)
                Console.Write("{0,4}", arr2d(i, j))
            Next
            Console.WriteLine()
        Next
    End Sub

End Module

'run:
' 
'   1   8   5
'   6   7   1
'   8   7   6

 

70+ SQL courses for beginners and professionals

Answer 2

Module Module1

    Sub Main()

        Dim a(2, 3) As Integer ' 0, 1, 2 - 0, 1, 2, 3

        initArray(a)
        Print(a)

    End Sub

    Sub Print(arr2d(,) As Integer)
        For i As Integer = 0 To arr2d.GetUpperBound(0)
            For j As Integer = 0 To arr2d.GetUpperBound(1)
                Console.Write("{0, 4}", arr2d(i, j))
            Next
            Console.WriteLine()
        Next
    End Sub

    Sub initArray(arr2d(,) As Integer)

        Dim Generator As System.Random = New System.Random()

        For i As Integer = 0 To arr2d.GetUpperBound(0)
            For j As Integer = 0 To arr2d.GetUpperBound(1)
                arr2d(i, j) = (Generator.Next(1, 10))
            Next
        Next
    End Sub

End Module

'run:
' 
' 7   4   2   3
' 9   4   3   2
' 3   1   4   6

 

70+ SQL courses for beginners and professionals