Public Module Module1

    Public Sub Main()

        Dim rowCount = 300

        Dim columnCount = 200

        Dim matrix(rowCount, columnCount)

        For rowIndex = 0 To rowCount

            For columnIndex = 0 to columnCount

                matrix(rowIndex, columnIndex) = ComputeCellElement(rowIndex, columnIndex)

            Next columnIndex

        Next rowIndex

    End Sub

    Private Function ComputeCellElement(rowIndex As Integer, columnIndex As Integer) As Integer

        Return rowIndex * columnIndex

    End Function

End Module