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(Days(i))
Console.WriteLine("Enter minutes for Bus A")
BusA(i) = Console.ReadLine()
Console.WriteLine("Enter minutes for Bus B")
BusB(i) = Console.ReadLine()
Console.WriteLine("Enter minutes for Bus C")
BusC(i) = Console.ReadLine()
Console.WriteLine("Enter minutes for Bus D")
BusD(i) = Console.ReadLine()
Console.WriteLine("Enter minutes for Bus E")
BusE(i) = Console.ReadLine()
Console.WriteLine("Enter minutes for Bus F")
BusF(i) = Console.ReadLine()
Console.WriteLine(Days(k) & BusA(k) & BusB(k) & BusC(k) & BusD(k) & BusE(k) & BusF(k))
Console.WriteLine("Task 2")
Dim TotalA, TotalB, TotalC, TotalD, TotalE, TotalF As Integer
Dim LTotalA, LTotalB, LTotalC, LTotalD, LTotalE, LTotalF As Integer
Dim MeanA, MeanB, MeanC, MeanD, MeanE, MeanF As Decimal
Dim LMeanA, LMeanB, LMeanC, LMeanD, LMeanE, LMeanF As Decimal
Dim BusA() As Integer = {0, 0, 0, 0, 2, 2, 4, 0, 3, 4, -2, -5, 0, 0, 3, 4, -1, 8, 1, 1, -2}
Dim BusB() As Integer = {0, 0, 1, 0, 0, 1, 2, 0, 0, 0, 0, 1, 0, 0, 0, 2, 0, 0, 1, 0, 0}
Dim BusC() As Integer = {0, 2, 0, -1, -1, -2, -2, -3, -1, 0, 0, -2, 0, 1, 1, 1, 1, -1, -1, 2, -2}
Dim BusD() As Integer = {0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0}
Dim BusE() As Integer = {0, -1, -1, -1, -2, -4, -10, -2, 0, 0, 0, 0, 1, 2, -3, 1, 1, 3, -1, 0, 0}
Dim BusF() As Integer = {0, 0, -5, -5, -5, -4, -3, -5, 0, 0, 0, 0, -2, -3, 1, 1, 1, 0, 0, -2, -5}
Dim CounterA, CounterB, CounterC, CounterD, CounterE, CounterF As Integer
LTotalA = LTotalA + BusA(i)
LTotalB = LTotalB + BusB(i)
LTotalC = LTotalC + BusC(i)
LTotalD = LTotalD + BusD(i)
LTotalE = LTotalE + BusE(i)
LTotalF = LTotalF + BusF(i)
TotalA = TotalA + BusA(j)
TotalB = TotalB + BusB(j)
TotalC = TotalC + BusC(j)
TotalD = TotalD + BusD(j)
TotalE = TotalE + BusE(j)
TotalF = TotalF + BusF(j)
LMeanA = LTotalA / CounterA
LMeanB = LTotalB / CounterB
LMeanC = LTotalC / CounterC
LMeanD = LTotalD / CounterD
LMeanE = LTotalE / CounterE
LMeanF = LTotalF / CounterF
Console.WriteLine("Bus A was late " & CounterA & " times")
Console.WriteLine("Bus B was late " & CounterB & " times")
Console.WriteLine("Bus C was late " & CounterC & " times")
Console.WriteLine("Bus D was late " & CounterD & " times")
Console.WriteLine("Bus E was late " & CounterE & " times")
Console.WriteLine("Bus F was late " & CounterF & " times")
Console.WriteLine("Bus A was late the most")
If CounterA = High and CounterB = High then
Console.WriteLine("So was Bus B")
Else If CounterB = High then
Console.WriteLine("Bus B was late the most")
Console.WriteLine("Bus C was late the most")
Console.WriteLine("Bus D was late the most")
Console.WriteLine("Bus E was late the most")
Console.WriteLine("Bus F was late the most")
Console.WriteLine("Bus A was late " & LMeanA * -1 & " minutes on average")
Console.WriteLine("Bus B was late " & LMeanB * -1 & " minutes on average")
Console.WriteLine("Bus C was late " & LMeanC * -1 & " minutes on average")
Console.WriteLine("Bus D was late " & LMeanD * -1 & " minutes on average")
Console.WriteLine("Bus E was late " & LMeanE * -1 & " minutes on average")
Console.WriteLine("Bus F was late " & LMeanF * -1 & " minutes on average")
Console.WriteLine("Bus A was " & MeanA & " minutes early on average")
Console.WriteLine("Bus A was " & MeanA * -1 & " minutes late on average")
Console.WriteLine("Bus B was " & MeanB & " minutes early on average")
Console.WriteLine("Bus B was " & MeanB * -1 & " minutes late on average")
Console.WriteLine("Bus C was " & MeanC & " minutes early on average")
Console.WriteLine("Bus C was " & MeanC * -1 & " minutes late on average")
Console.WriteLine("Bus D was " & MeanD & " minutes early on average")
Console.WriteLine("Bus D was " & MeanD * -1 & " minutes late on average")
Console.WriteLine("Bus E was " & MeanE & " minutes early on average")
Console.WriteLine("Bus E was " & MeanE * -1 & " minutes late on average")
Console.WriteLine("Bus F was " & MeanF & " minutes early on average")
Console.WriteLine("Bus F was " & MeanF * -1 & " minutes late on average")
Dim BusA() As Integer = {0, 0, 0, 0, 2, 2, 4, 0, 3, 4, -2, -5, 0, 0, 3, 4, -1, 8, 1, 1, -2}
Dim BusB() As Integer = {0, 0, 1, 0, 0, 1, 2, 0, 0, 0, 0, 1, 0, 0, 0, 2, 0, 0, 1, 0, 0}
Dim BusC() As Integer = {0, 2, 0, -1, -1, -2, -2, -3, -1, 0, 0, -2, 0, 1, 1, 1, 1, -1, -1, 2, -2}
Dim BusD() As Integer = {0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0}
Dim BusE() As Integer = {0, -1, -1, -1, -2, -4, -10, -2, 0, 0, 0, 0, 1, 2, -3, 1, 1, 3, -1, 0, 0}
Dim BusF() As Integer = {0, 0, -5, -5, -5, -4, -3, -5, 0, 0, 0, 0, -2, -3, 1, 1, 1, 0, 0, -2, -5}
Console.WriteLine("Task 3")
Console.WriteLine("Enter Day Number (From 1-5)")
Daynum = Console.ReadLine()
Loop until Daynum >= 1 and Daynum <= 5
Console.WriteLine("Enter Week Number (From 1-4)")
Weeknum = Console.ReadLine()
Loop until Weeknum >= 1 and Weeknum <= 4
Arraynum =(Weeknum - 1) * 5 + Daynum
If BusA(Arraynum) < 0 then
If BusB(Arraynum) < 0 then
If BusC(Arraynum) < 0 then
If BusD(Arraynum) < 0 then
If BusE(Arraynum) < 0 then
If BusF(Arraynum) < 0 then
Console.WriteLine("The number of late buses on this day was " & Latenum)
If BusA(Arraynum) < 0 and BusA(Arraynum) * -1 > 1 then
Console.WriteLine("Bus A was late for " & BusA(Arraynum) * -1 & " minutes")
Else if BusA(Arraynum) < 0 and BusA(Arraynum) * -1 = 1 then
Console.WriteLine("Bus A was late for " & BusA(Arraynum) * -1 & " minute")
If BusB(Arraynum) < 0 and BusB(Arraynum) * -1 > 1 then
Console.WriteLine("Bus B was late for " & BusB(Arraynum) * -1 & " minutes")
Else if BusB(Arraynum) < 0 and BusB(Arraynum) * -1 = 1 then
Console.WriteLine("Bus B was late for " & BusB(Arraynum) * -1 & " minute")
If BusC(Arraynum) < 0 and BusC(Arraynum) * -1 > 1 then
Console.WriteLine("Bus C was late for " & BusC(Arraynum) * -1 & " minutes")
Else if BusC(Arraynum) < 0 and BusC(Arraynum) * -1 = 1 then
Console.WriteLine("Bus C was late for " & BusC(Arraynum) * -1 & " minute")
If BusD(Arraynum) < 0 and BusD(Arraynum) * -1 > 1 then
Console.WriteLine("Bus D was late for " & BusD(Arraynum) * -1 & " minutes")
Else if BusD(Arraynum) < 0 and BusD(Arraynum) * -1 = 1 then
Console.WriteLine("Bus D was late for " & BusD(Arraynum) * -1 & " minute")
If BusE(Arraynum) < 0 and BusE(Arraynum) * -1 > 1 then
Console.WriteLine("Bus E was late for " & BusE(Arraynum) * -1 & " minutes")
Else if BusE(Arraynum) < 0 and BusE(Arraynum) * -1 = 1 then
Console.WriteLine("Bus E was late for " & BusE(Arraynum) * -1 & " minute")
If BusF(Arraynum) < 0 and BusF(Arraynum) * -1 > 1 then
Console.WriteLine("Bus F was late for " & BusF(Arraynum) * -1 & " minutes")
Else if BusF(Arraynum) < 0 and BusF(Arraynum) * -1 = 1 then
Console.WriteLine("Bus F was late for " & BusF(Arraynum) * -1 & " minute")
console.WriteLine("There were no late buses")