Dim UserChoice As Integer
Console.WriteLine("MENU OF OPTIONS")
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
Console.WriteLine("Task 1")
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()
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")
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
Dim AverageA, AverageLatesA As Decimal
TotalA = TotalA + BusA(i)
TotalLatesA = TotalLatesA + BusA(i)
AverageLatesA = TotalLatesA / CountA
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 & ".")
HighestRoute = " Bus Route A"
Dim CountB,TotalB,TotalLatesB As Decimal
Dim AverageB, AverageLatesB As Decimal
TotalB = TotalB + BusB(i)
TotalLatesB = TotalLatesB + BusB(i)
AverageLatesB = TotalLatesB / CountB
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 & ".")
HighestRoute = " Bus Route B"
Dim CountC,TotalC,TotalLatesC As Decimal
Dim AverageC, AverageLatesC As Decimal
TotalC = TotalC + BusC(i)
TotalLatesC = TotalLatesC + BusC(i)
AverageLatesC = TotalLatesC / CountC
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 & ".")
HighestRoute = " Bus Route C"
Dim CountD,TotalD,TotalLatesD As Decimal
Dim AverageD, AverageLatesD As Decimal
TotalD = TotalD + BusD(i)
TotalLatesD = TotalLatesD + BusD(i)
AverageLatesD = TotalLatesD / CountD
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 & ".")
HighestRoute = " Bus Route D"
Dim CountE,TotalE,TotalLatesE As Decimal
Dim AverageE, AverageLatesE As Decimal
TotalE = TotalE + BusE(i)
TotalLatesE = TotalLatesE + BusE(i)
AverageLatesE = TotalLatesE / CountE
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 & ".")
HighestRoute = " Bus Route E"
Dim CountF,TotalF,TotalLatesF As Decimal
Dim AverageF, AverageLatesF As Decimal
TotalF = TotalF + BusF(i)
TotalLatesF = TotalLatesF + BusF(i)
AverageLatesF = TotalLatesF / CountF
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 & ".")
HighestRoute = " Bus Route F"
Console.WriteLine("The bus route with the highest number of days on which it was late is" & HighestRoute & ".")
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}
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
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)
Console.Writeline("Bus route A was late for " & BusA(Day)*-1 & " minutes.")
Console.Writeline("Bus route B was late for " & BusB(Day)*-1 & " minutes.")
Console.Writeline("Bus route C was late for " & BusC(Day)*-1 & " minutes.")
Console.Writeline("Bus route D was late for " & BusD(Day)*-1 & " minutes.")
Console.Writeline("Bus route E was late for " & BusE(Day)*-1 & " minutes.")
Console.Writeline("Bus route F was late for " & BusF(Day)*-1 & " minutes.")
Console.WriteLine("There are " & Count & " buses which were late on that day.")