Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim values(,) As Integer = Random2DArray(19, 1, 1, 10)

        For Each value As Integer In values

            Console.WriteLine(value)

        Next

    End Sub

​

    Private r As New Random

    Private Function Random2DArray(ByVal uBounds1 As Integer, ByVal uBounds2 As Integer, ByVal smallestValue As Integer, ByVal largestValue As Integer) As Integer(,)

        'Throw exceptions if there is something wrong with the arguments

        If uBounds1 < 1 OrElse uBounds2 < 1 Then

            Throw New ArgumentOutOfRangeException("uBounds1 and uBounds2 must be greater than 0.")

        End If

        If smallestValue > largestValue Then

            Throw New ArgumentOutOfRangeException("The smallestValue must be greater than the largestValue must be greater than 0.")

        End If

​

        'Declare a 2D array to return

        Dim values(uBounds1, uBounds2) As Integer

        largestValue += 1

        'Loop from 1 to the upper-bounds of both dimensions of the array

        For x As Integer = 1 To uBounds1

            For y As Integer = 1 To uBounds2

                values(x, y) = r.Next(smallestValue, largestValue)

            Next

        Next

​

        'Return the 2D array

        Return values

    End Function

End Module

​