Module Module1 Function AddElements() Dim a(,) As Integer = {{0, 0, 1}, {1, 2, 11}, {3, 6, 12}, {6, 9, 90}, {23, 1, 78}} Dim i, j As Integer For i = 0 To 4 For j = 0 To 2 Console.WriteLine(a(i, j)) Next j Next i End Function Sub Main() Dim a As Integer = 100 Dim b As Integer = 50 AddElements()