Sub main()

    Call Task_1()

    Console.ReadLine()

 End Sub 

​

Sub Task_1()

    Dim choice, parkingcount As Integer

    Dim dayNumber, startingarrayindex As Integer

    Dim FreeLocation As Boolean 

    Dim totalparkingslots As Integer

    Dim visitorname, carlicensenumber As String

    Dim Name(280) As String

    Dim License_Number(280) As String

    For count = 1 To 280

       Name(count) = "Free"

       License_Number(count) = "Free"

    Next

choice = 0

While choice <> 3