Imports System

Public Module Module1

    Public Sub Main()

        dim ParkingPlace(6) as string

        Dim Numberofplace(6) as integer

        Dim Price(5) as integer 

        dim userchoice1 as integer

        dim userchoice2 as integer

        Parkingplace(1) = "abbey Foregate   "

        Parkingplace(2) = "Bridge Street    "

        Parkingplace(3) = "Frankwell        "

        Parkingplace(4) = "Raven Meadows    "

        Parkingplace(5) = "St Julian Friars "

        Parkingplace(6) = "Wyle Cop      "

        Numberofplace(1) =  12

        Numberofplace(2) = 01

        Numberofplace(3) = 00

        Numberofplace(4) =  05

        Numberofplace(5) = 17

        Numberofplace(6) =  08

        Price(1) = 1

        Price(2) = 2 

        Price(3) = 3

        Price(4) = 4

        Price(5) = 10

        For i = 1 to 6

        console.writeline(i & "|" & ParkingPlace(i)& "|" & Numberofplace(i)   )

        next

    do

        do

        Console.WriteLine("Which Car Park Number Do you want to book?")

        userchoice1 = console.readline

    loop until userchoice1 < 7 and userchoice1 > -1 

    loop until   Numberofplace(userchoice1) > 0  

​

'console.writeline("Please select option number")

'userchoice2 = console.readline

    Console.writeline(" You have booked " & Parkingplace(userchoice1) )

    for i = 1 to 6

    if i = userchoice1

        Numberofplace(i) = numberofplace(i) - 1

    end if 

​

next

console.writeline("Here is a new list of parking spaces")

        For i = 1 to 6

        console.writeline(i & "|" & ParkingPlace(i)& "|" & Numberofplace(i)   )

        next

    End Sub

End Module