Imports System

Public Module Module1

    Public Sub Main()

    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 Route A")

busA(i) = console.ReadLine()

console.WriteLine("Enter minutes for Route B")

busB(i) = console.ReadLine()

console.WriteLine("Enter minutes for Route C")

busC(i) = console.ReadLine()

console.WriteLine("Enter minutes for Route D")

busD(i) = console.ReadLine()

console.WriteLine("Enter minutes for Route E")

busE(i) = console.ReadLine()

console.WriteLine("Enter minutes for Route F")

busF(i) = console.ReadLine()

​

next i

for j = 1 to 20

console.WriteLine( day(j) & busA(j) & busB(j) & busC(j) & busD(j) & busE(j) & busF(j) )

next j

​

​

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")

​

console.WriteLine("Bus A")

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 totalA = 0

dim countA = 0

dim averageA as decimal

dim averageAlate as decimal

dim days() as string = {"", "mon1", "tue1", "wed1", "thu1", "fri1", "mon2", "tue2", "wed2", "thu2", "fri2", "mon3", "tue3", "wed3", "thu3", "fri3", "mon4", "tue4", "wed4", "thu4", "fri4"}

dim totalAlate as integer = 0

for i = 1 to 20

totalA = totalA + busA(i)

if busA(i) < 0 then

countA = countA + 1

totalAlate = totalAlate + busA(i)

end if

next i

console.WriteLine(countA)

averageA = totalA / 20

if countA > 0 then

averageAlate = totalAlate/countA 

else 

averageAlate = 0

end if

console.WriteLine("Number of days late" & totalAlate)

console.WriteLine("Average time" & averageA)

console.WriteLine("Average time for late days only" & averageAlate)

​

​

​

console.WriteLine("Bus B")

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 totalB = 0

dim countB = 0

dim averageB as decimal

dim averageBlate as decimal

dim totalBlate as integer = 0

for i = 1 to 20

totalB = totalB + busB(i)

if busB(i) < 0 then

countB = countB + 1

totalBlate = totalBlate + busB(i)

end if

next i

console.WriteLine(countA)

averageB = totalB / 20

if countB

averageAlate = totalBlate/countB

else 

averageAlate = 0

end if

console.WriteLine("Number of days late" & totalBlate)

console.WriteLine("Average time" & averageB)

console.WriteLine("Average time for late days only" & averageBlate)

​

​

​

console.WriteLine("Bus C")

dim busC = {999,2,0,-1,-1,-2,-2,-3,-1,0,0,-2,0,1,1,1,1,-1,-1,2,-2}

dim totalC = 0

dim countC = 0

dim averageC as decimal

dim averageClate as decimal

dim totalClate as integer = 0

for i = 1 to 20

totalC = totalC + busC(i)

if busC(i) < 0 then

countC = countC + 1

totalClate = totalClate + busC(i)

end if

next i

console.WriteLine(countC)

averageC = totalC / 20

if countC > 0 then

averageClate = totalClate/countC 

else 

averageClate = 0

end if

console.WriteLine("Number of days late" & totalClate)

console.WriteLine("Average time" & averageC)

console.WriteLine("Average time for late days only" & averageClate)

​

​

​

console.WriteLine("Bus D")

dim busD = {999,1,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0}

dim totalD = 0

dim countD = 0

dim averageD as decimal

dim averageDlate as decimal

dim totalDlate as integer = 0

for i = 1 to 20

totalD = totalD + busD(i)

if busD(i) < 0 then

countD = countD + 1

totalDlate = totalDlate + busD(i)

end if

next i

console.WriteLine(countD)

averageD = totalD / 20

if countD > 0 then

averageDlate = totalDlate/countD 

else 

averageDlate = 0

end if

console.WriteLine("Number of days late" & totalDlate)

console.WriteLine("Average time" & averageD)

console.WriteLine("Average time for late days only" & averageDlate)

​

​

​

console.WriteLine("Bus E")

dim busE = {999,-1,-1,-1,-2,-4,-10,-2,0,0,0,0,1,2,-3,1,1,3,-1,0,0}

dim totalE = 0

dim countE = 0

dim averageE as decimal

dim averageElate as decimal

dim totalElate as integer = 0

for i = 1 to 20

totalE = totalE + busE(i)

if busE(i) < 0 then

countE = countE + 1

totalElate = totalElate + busE(i)

end if

next i

console.WriteLine(countE)

averageE = totalE / 20

if countE > 0 then

averageElate = totalElate/countE 

else 

averageElate = 0

end if

console.WriteLine("Number of days late" & totalElate)

console.WriteLine("Average time" & averageE)

console.WriteLine("Average time for late days only" & averageElate)

​

​

​

console.WriteLine("Bus F")

dim busF = {999, 0,-5,-5,-5,-4,-3,-5,0,0,0,0,-2,-3,1,1,1,0,0,-2,-5}

dim totalF = 0

dim countF = 0

dim averageF as decimal

dim averageFlate as decimal

dim totalFlate as integer = 0

for i = 1 to 20

totalF = totalF + busF(i)

if busF(i) < 0 then

countF = countF + 1

totalFlate = totalFlate + busF(i)

end if

next i

console.WriteLine(countF)

averageF = totalF / 20

if countF > 0 then

averageFlate = totalFlate/countF 

else 

averageFlate = 0

end if

console.WriteLine("Number of days late" & totalFlate)

console.WriteLine("Average time" & averageF)

console.WriteLine("Average time for late days only" & averageFlate)

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")

​

End Sub

End Module