Imports System

Public Module Module1   

    ' Insert global declarations here, ie arrays and variables that will be used in all Subs        

    Public Sub Main()

        ' Any variables declared here will be local to this subroutine only     

        Dim UserChoice As Integer       

        Console.WriteLine("MENU OF OPTIONS")        

        Do

            Console.WriteLine("Task 1")

            Console.WriteLine("Task 2")         

            Console.WriteLine("Task 3")

            Console.WriteLine("Enter number 1 - 3")

            UserChoice = Console.ReadLine()

        Loop Until UserChoice >= 1 And UserChoice <= 3

        Select Case UserChoice

            Case Is = 1 

                Call Task1

            Case Is = 2

                Call Task2

            Case Is = 3

                Call Task3

        End Select      

        Call Main()                 

    End Sub

    Public Sub Task1        

        ' Insert code for Task 1

        ' Any variables declared here will be local to this subroutine only 

        Console.WriteLine("Task 1")

        Dim Day(20) As String

        Dim BusA(20) As Integer

        Dim BusB(20) As Integer

        Dim BusC(20) As Integer

        Dim BusD(20) As Integer

        Dim BusE(20) As Integer

        Dim BusF(20) As Integer

        Day(1) = "Mon1"

        Day(2) = "Tue1"

        Day(3) = "Wed1"

        Day(4) = "Thu1"

        Day(5) = "Fri1"

        Day(6) = "Mon2"

        Day(7) = "Tue2"

        Day(8) = "Wed2"

        Day(9) = "Thu2"

        Day(10) = "Fri2"

        Day(11) = "Mon3"

        Day(12) = "Tue3"

        Day(13) = "Wed3"

        Day(14) = "Thu3"

        Day(15) = "Fri3"

        Day(16) = "Mon4"

        Day(17) = "Tue4"

        Day(18) = "Wed4"

        Day(19) = "Thu4"

        Day(20) = "Fri4"

        For i = 1 to 20

        Console.WriteLine (Day(i) )

        Console.WriteLine("Enter minutes for routeA")

        BusA(i) = Console.ReadLine()

        Console.WriteLine("Enter minutes for routeB")

        BusB(i) = Console.ReadLine()

        Console.WriteLine("Enter minutes for routeC")

        BusC(i) = Console.ReadLine()

        Console.WriteLine("Enter minutes for routeD")

        BusD(i) = Console.ReadLine()

        Console.WriteLine("Enter minutes for routeE")

        BusE(i) = Console.ReadLine()

        Console.WriteLine("Enter minutes for routeF")

        BusF(i) = Console.ReadLine()

        next i

​

        For i = 1 to 20

        Console.WriteLine("On " & day(i) & ", bus A is late for " & BusA(i) & " minutes")

        Console.WriteLine("On " & day(i) & ", bus B is late for " & BusB(i) & " minutes")

        Console.WriteLine("On " & day(i) & ", bus C is late for " & BusC(i) & " minutes")

        Console.WriteLine("On " & day(i) & ", bus D is late for " & BusD(i) & " minutes")

        Console.WriteLine("On " & day(i) & ", bus E is late for " & BusE(i) & " minutes")

        Console.WriteLine("On " & day(i) & ", bus F is late for " & BusF(i) & " minutes")

        Next i

​

    End Sub

​

    Public Sub Task2        

        ' Insert code for Task 2

        ' Any variables declared here will be local to this subroutine only

        Console.WriteLine("Task 2")

        Dim Days()As String = {"","Mon1","Tue1","Wen1","Thu1","Fri1","Mon2","Tue2","Wen2","Thu2","Fri2","Mon3","Tue3","Wen3","Thu3","Fri3","Mon4","Tue4","Wen4","Thu4","Fri4"}

        Dim BusA() As Integer = {999,0,0,0,2,2,4,0,3,4,-2,-5,0,0,3,4,-1,8,1,1,-2}

        Dim BusB() As Integer = {999,0,1,0,0,1,2,0,0,0,0,1,0,0,0,2,0,0,1,0,0}

        Dim BusC() As Integer = {999,2,0,-1,-1,-2,-2,-3,-1,0,0,-2,0,1,1,1,1,-1,-1,2,-2}

        Dim BusD() As Integer = {999,1,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0}

        Dim BusE() As Integer = {999,-1,-1,-1,-2,-4,-10,-2,0,0,0,0,1,2,-3,1,1,3,-1,0,0}

        Dim BusF() As Integer = {999,0,-5,-5,-5,-4,-3,-5,0,0,0,0,-2,-3,1,1,1,0,0,-2,-5}

        Dim Highest As Integer = 0

        Dim HighestRoute As String

​

        Dim CountA,TotalA,TotalLatesA As Decimal

        CountA = 0

        TotalA = 0

        TotalLatesA = 0

        Dim AverageA, AverageLatesA As Decimal

        For i = 1 to 20

            TotalA = TotalA + BusA(i)

            If BusA(i) < 0 then

                CountA = CountA + 1

                TotalLatesA = TotalLatesA + BusA(i)

            End If 

        Next i

        AverageA = TotalA / 20

        If CountA > 0 then

            AverageLatesA = TotalLatesA / CountA

        Else

            AverageLatesA = 0

        End if

        Console.WriteLine("The number of late arrivals for bus route A is " & CountA & ".")

        Console.WriteLine("The average number of minutes late for bus route A is " & AverageA & ".")

        Console.Writeline("The average number of minutes late for bus route A, using only data from days on which it was late is " & AverageLatesA & ".")

        If CountA > Highest then

            Highest = CountA

            HighestRoute = " Bus Route A"

        End If

​

​

        Dim CountB,TotalB,TotalLatesB As Decimal

        CountB = 0

        TotalB = 0

        TotalLatesB = 0

        Dim AverageB, AverageLatesB As Decimal

        For i = 1 to 20

            TotalB = TotalB + BusB(i)

            If BusB(i) < 0 then

                CountB = CountB + 1

                TotalLatesB = TotalLatesB + BusB(i)

            End If 

        Next i

        AverageB = TotalB / 20

        If CountB > 0 then

            AverageLatesB = TotalLatesB / CountB

        Else

            AverageLatesB = 0

        End if

        Console.WriteLine("The number of late arrivals for bus route B is " & CountB & ".")

        Console.WriteLine("The average number of minutes late for bus route B is " & AverageB & ".")

        Console.Writeline("The average number of minutes late for bus route B, using only data from days on which it was late is " & AverageLatesB & ".")

        If CountB > Highest then

            Highest = CountB

            HighestRoute = " Bus Route B"

        End If

​

        Dim CountC,TotalC,TotalLatesC As Decimal

        CountC = 0

        TotalC = 0

        TotalLatesC = 0

        Dim AverageC, AverageLatesC As Decimal

        For i = 1 to 20

            TotalC = TotalC + BusC(i)

            If BusC(i) < 0 then

                CountC = CountC + 1

                TotalLatesC = TotalLatesC + BusC(i)

            End If 

        Next i

        AverageC = TotalC / 20

        If CountC > 0 then

            AverageLatesC = TotalLatesC / CountC

        Else

            AverageLatesC = 0

        End if

        Console.WriteLine("The number of late arrivals for bus route C is " & CountC & ".")

        Console.WriteLine("The average number of minutes late for bus route C is " & AverageC & ".")

        Console.Writeline("The average number of minutes late for bus route C, using only data from days on which it was late is " & AverageLatesC & ".")

        If CountC > Highest then

            Highest = CountC

            HighestRoute = " Bus Route C"

        End If

​

        Dim CountD,TotalD,TotalLatesD As Decimal

        CountD = 0

        TotalD = 0

        TotalLatesD = 0

        Dim AverageD, AverageLatesD As Decimal

        For i = 1 to 20

        TotalD = TotalD + BusD(i)

        If BusD(i) < 0 then

            CountD = CountD + 1

            TotalLatesD = TotalLatesD + BusD(i)

            End If 

        Next i

        AverageD = TotalD / 20

        If CountD > 0 then

            AverageLatesD = TotalLatesD / CountD

        Else

            AverageLatesD = 0

        End if

        Console.WriteLine("The number of late arrivals for bus route D is " & CountD & ".")

        Console.WriteLine("The average number of minutes late for bus route D is " & AverageD & ".")

        Console.Writeline("The average number of minutes late for bus route D, using only data from days on which it was late is " & AverageLatesD & ".")

​

        If CountD > Highest then

            Highest = CountD

            HighestRoute = " Bus Route D"

        End If

​

        Dim CountE,TotalE,TotalLatesE As Decimal

        CountE = 0

        TotalE = 0

        TotalLatesE = 0

        Dim AverageE, AverageLatesE As Decimal

        For i = 1 to 20

        TotalE = TotalE + BusE(i)

        If BusE(i) < 0 then

            CountE = CountE + 1

            TotalLatesE = TotalLatesE + BusE(i)

            End If 

        Next i

        AverageE = TotalE / 20

        If CountE > 0 then

            AverageLatesE = TotalLatesE / CountE

        Else

            AverageLatesE = 0

        End if

        Console.WriteLine("The number of late arrivals for bus route E is " & CountE & ".")

        Console.WriteLine("The average number of minutes late for bus route E is " & AverageE & ".")

        Console.Writeline("The average number of minutes late for bus route E, using only data from days on which it was late is " & AverageLatesE & ".")

        If CountE > Highest then

            Highest = CountE

            HighestRoute = " Bus Route E"

        End If

​

        Dim CountF,TotalF,TotalLatesF As Decimal

        CountF = 0

        TotalF = 0

        TotalLatesF = 0

        Dim AverageF, AverageLatesF As Decimal

        For i = 1 to 20

        TotalF = TotalF + BusF(i)

        If BusF(i) < 0 then

            CountF = CountF + 1

            TotalLatesF = TotalLatesF + BusF(i)

            End If 

        Next i

        AverageF = TotalF / 20

        If CountF > 0 then

            AverageLatesF = TotalLatesF / CountF

        Else

            AverageLatesF = 0

        End if

        Console.WriteLine("The number of late arrivals for bus route F is " & CountF & ".")

        Console.WriteLine("The average number of minutes late for bus route F is " & AverageF & ".")

        Console.Writeline("The average number of minutes late for bus route F, using only data from days on which it was late is " & AverageLatesF & ".")

        If CountF > Highest then

            Highest = CountF

            HighestRoute = " Bus Route F"

        End If

        Console.WriteLine("The bus route with the highest number of days on which it was late is" & HighestRoute & ".")

​

End Sub 

​

    Public Sub Task3        

        ' Insert code for Task 3

        ' Any variables declared here will be local to this subroutine only 1

​

        Console.WriteLine("Task 3")

        Dim BusA() As Integer = {999,0,0,0,2,2,4,0,3,4,-2,-5,0,0,3,4,-1,8,1,1,-2}

        Dim BusB() As Integer = {999,0,1,0,0,1,2,0,0,0,0,1,0,0,0,2,0,0,1,0,0}

        Dim BusC() As Integer = {999,2,0,-1,-1,-2,-2,-3,-1,0,0,-2,0,1,1,1,1,-1,-1,2,-2}

        Dim BusD() As Integer = {999,1,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0}

        Dim BusE() As Integer = {999,-1,-1,-1,-2,-4,-10,-2,0,0,0,0,1,2,-3,1,1,3,-1,0,0}

        Dim BusF() As Integer = {999,0,-5,-5,-5,-4,-3,-5,0,0,0,0,-2,-3,1,1,1,0,0,-2,-5}

        Dim daynum As Integer

        Dim Week As Integer

        Dim Day AS Integer

        Dim Count As Integer = 0

        Do

            Console.WriteLine("Please enter the date from 1 to 5 e.g. 1 represents Monday")

            daynum = Console.ReadLine()

        Loop Until daynum >= 1 And daynum <= 5

        Do      

            Console.WriteLine("Please enter the week from 1 to 3")

            Week = Console.ReadLine()

        Loop Until Week >= 1 And Week <= 3

        Day = daynum + 5 * (Week - 1) 

        If BusA(Day) < 0 then

            Count = Count + 1

            Console.Writeline("Bus route A was late for " & BusA(Day)*-1 & " minutes.")

        End If

​

        If BusB(Day) < 0 then

            Count = Count + 1

            Console.Writeline("Bus route B was late for " & BusB(Day)*-1 & " minutes.")

        End If

        If BusC(Day) < 0 then

            Count = Count + 1

            Console.Writeline("Bus route C was late for " & BusC(Day)*-1 & " minutes.")

        End If

​

        If BusD(Day) < 0 then

            Count = Count + 1

            Console.Writeline("Bus route D was late for " & BusD(Day)*-1 & " minutes.")

        End If

​

        If BusE(Day) < 0 then

            Count = Count + 1

            Console.Writeline("Bus route E was late for " & BusE(Day)*-1 & " minutes.")

        End If

​

        If BusF(Day) < 0 then

            Count = Count + 1

            Console.Writeline("Bus route F was late for " & BusF(Day)*-1 & " minutes.")

        End If

        Console.WriteLine("There are " & Count & " buses which were late on that day.")

End Sub

End Module

​

​

​