Imports System
Public Module Module1
Public Sub Main()
Dim a As Integer(,) = New Integer(3, 3) {}
For i As Integer = 0 To a.GetUpperBound(0)
For j As Integer = 0 To a.GetUpperBound(1)
a(i, j) =(i + j)
Next
If a(i, j) > 4 Then
Console.Write(a(i, j))
End If
End Sub
End Module
