Imports System

Public Module Module1

    Public Sub Main()

        Dim Day1 = New Integer() {1, 2, 3, 4 , 5 , 6 , 7} 

        Dim Maxhour = New integer(){ 8,2,2,2,2,2,4}

        Dim Price1 = New integer () {2,10,10,10,10,10,3}

        dim Total As Integer = 0

        dim TotalFreqNo as integer = 0

        dim Remainder As integer = 0

        dim choice as Integer = 0

        dim FreqNo(7) AS INTEGER

        dim daily_Total as integer = 0

        dim Nday as integer = 0

        dim Arrival as integer = 0

        dim Nhours as integer = 0

    DO

            Console.WriteLine("1 - sunday")

            Console.WriteLine("2 - monday")

            Console.WriteLine("3 - tuesday")

            Console.WriteLine("4 - wednesday")

            Console.WriteLine("5 - thursday")

            Console.WriteLine("6 - friday")

            Console.WriteLine("7 - saturday")

            console.WriteLine(" enter the number of day")

            Nday = console.ReadLine()

            IF Nday < 1 AND Nday > 7 THEN 

                Console.writeline(" wrong number of day")

            END If

    LOOP UNTIL Nday < 8 AND Nday > 0

        DO 

            Console.WriteLine(" Enter hour of arrival excluding minutes")

            Arrival = console.ReadLine()

            IF Arrival < 8 AND Arrival >= 24 THEN

                Console.WriteLine("wrong arrival time")

            END IF

        LOOP UNTIL Arrival > = 8 AND Arrival < 24

        console.WriteLine("enter number of hours")

        Nhours = console.ReadLine()

        IF Arrival < 16 THEN 

            IF (Arrival - 15 <= Maxhour [Day1]) AND ((Arrival - 15) + Arrival <16 ) THEN

                Total = Nhours * Price1[Day1]

            ELSE IF (Arrival <24) AND (Arrival + Nhours) <24 THEN 

                    Total = 2 

                ELSE Total = ((16 - Arrival ) * Price1 [Day1]) + 2

            END IF 

        END IF 

            DO

                Console.WriteLine(" Enter 1 if you have a frequent parking number and enter 2 if you do not")

                choice = console.ReadLine()

            LOOP UNTIL choice = 1 OR choice = 2

            IF choice = 1 THEN 

                For counter = 2 to 6 

                    console.writeline(" Please enter frequent parking number from left to right")

                    console.WriteLine("Please enter frequent parking number Digit " , Counter - 1)

                FreqNo [counter] = console.ReadLine()

                IF FreqNo [counter] < 0 AND > 9 THEN

                    Console.WriteLine("wrong number")

                END IF 

                IF Counter < = 6 THEN 

                    TotalFreqNo = TotalFreqNo + (FreqNo[counter] * counter )

                END IF 

            NEXT 

            Remainder = TotalFreqNo MOD 11 

            IF Remainder =  FreqNo [6] THEN 

            END IF 

​

​

​

​

    End Sub

End Module