Imports System

Public Module Module1

    Public Sub Main()

        Dim n1(5,5) as integer

        For i = 1 to 5

        n1(i,5) = 0

        For j = 1 to 5

        n1(5,j) = 0

        Console.writeline(n1(i,j))

    next

    next

        'Prints 25 0's

    End Sub

​

    Public Sub Second()

    Dim n1(5,5) as integer

        Dim n2 as integer

        Dim n3 as integer

        For i = 1 to 5

            n1(i,5) = 0

                For j = 1 to 5

                n1(5,j) = 0

            next

        next

        'Input co-ordintes y (from top to bottom) then x (from top to bottom)

            n2 = Console.readline()

            n3 = console.readline()

        n1(n2,n3) = 1

        For i = 1 to 5

        For j = 1 to 5

        Console.writeline(n1(i,j))

        Next

        Next

    End Sub

End Module