Imports System

Public Module Module1

    Public Sub Main()

        Dim Space(6), time, cost as integer

        Dim Carp(6), place  as string

        console.WriteLine("Welcome to THE parking app")

        Carp(1)= "1. Abbey Foregate"

        Carp(2)= "2. Bridge Street"

        Carp(3)= "3. Frankwell"

        Carp(4)= "4. Raven Meadows"

        Carp(5)= "5. St Julian Friars"

        Carp(6)= "6. Wyle Cop"

        Space(1)= 12

        Space(2)= 1

        Space(3)= 0

        Space(4)= 5

        Space(5)= 17

        Space(6)= 8

        for i = 1 to 6

        console.WriteLine(Carp(i) & ": " & Space(i) & " Spaces")

        next i 

    console.WriteLine("   ")

    Do

        console.WriteLine("Where would you like to park? (In the form of the numbers next to the carpark name)")

        place= console.ReadLine()

    Loop Until place>0 AND place<7

​

For i = 1 to 6

    If  place = i then 

        If Space(i) - 1 < 0 then

            Do

            console.WriteLine("This carpark is full, please choose another park")

                place=console.ReadLine()

            Loop until place<3 OR place>3

            If Space(i)>-1

            console.WriteLine("You can park here")

            console.WriteLine(Space(i) & " spaces left")

            Space(i)=Space(i)-1

        else

            Space(i)=Space(i)-1

            console.WriteLine("You can park here")

            console.WriteLine(Space(i) & " spaces left")

        End if 

    End if 

    End if 

    Next

​

console.WriteLine("  ")

​

for i = 1 to 6

        console.WriteLine(Carp(i) & ": " & Space(i) & " Spaces")

        next i 

​

​

​

    End Sub

End Module