PRER | C# Online Compiler

PRER by Lucinda

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

​x
 
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
​
​
​

Compilation error (line 3, col 9): A namespace cannot directly contain members such as fields or methods
Compilation error (line 7, col 20): Identifier expected
Compilation error (line 7, col 22): Expected class, delegate, enum, interface, or struct
Compilation error (line 7, col 35): Expected class, delegate, enum, interface, or struct
Compilation error (line 7, col 45): Expected class, delegate, enum, interface, or struct
Compilation error (line 9, col 30): Expected class, delegate, enum, interface, or struct
Compilation error (line 9, col 65): Type or namespace definition, or end-of-file expected

Last Run:	1:03:43 am
Compile:	0s
Execute:	0.086s
Memory:	0b
CPU:	0s

View IL Code