Imports System
Public Class Program
Public Shared Sub Main()
Dim rows As Integer = 3, cols As Integer = 4
Dim arr As Integer(,) = New Integer(rows - 1, cols - 1) {}
For i As Integer = 0 To rows * (cols + 1)
arr(i Mod rows, i \ cols) = -1
Next
For i As Integer = 0 To rows - 1
For j As Integer = 0 To cols - 1
Console.Write("{0} ", arr(i, j))
Next
Console.WriteLine()
Next
End Sub
End Class
' run:
'
' -1 -1 -1 -1
' -1 -1 -1 -1
' -1 -1 -1 -1
'