PRM | C# Online Compiler

PRM by TheGod'sProtector

Imports System

Public Module Module1

	Public Sub Main()
		Dim UserChoice As Integer
		Console.WriteLine("MENU OF OPTIONS")
		Console.WriteLine()
		Do
			Console.WriteLine("Task 1")
			Console.WriteLine("Task 2")
			Console.WriteLine("Task 3")
			Console.WriteLine()
			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

		Console.WriteLine()
		Call Main()
	End Sub

	Public Sub Task1
		Dim Days(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
		Console.WriteLine()
		Console.WriteLine("TASK 1")
		Console.WriteLine()
		Days(1) = "Mon1"
		Days(2) = "Tue1"
		Days(3) = "Wed1"
		Days(4) = "Thu1"
		Days(5) = "Fri1"
		Days(6) = "Mon2"
		Days(7) = "Tue2"
		Days(8) = "Wed2"
		Days(9) = "Thu2"
		Days(10) = "Fri2"
		Days(11) = "Mon3"
		Days(12) = "Tue3"
		Days(13) = "Wed3"
		Days(14) = "Thu3"
		Days(15) = "Fri3"
		Days(16) = "Mon4"
		Days(17) = "Tue4"
		Days(18) = "Wed4"
		Days(19) = "Thu4"
		Days(20) = "Fri4"
		for i = 1 to 20
			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()
		next

		For k = 1 to 20
			Console.WriteLine(Days(k) & BusA(k) & BusB(k) & BusC(k) & BusD(k) & BusE(k) & BusF(k))
		next
	End Sub

	Public Sub Task2
		Console.WriteLine()
		Console.WriteLine("Task 2")
		Console.WriteLine()
		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
		Dim High As Integer = 0
		for i = 1 to 20
			if BusA(i) < 0 then
				CounterA = CounterA + 1
				LTotalA = LTotalA + BusA(i)
			End If

			if BusB(i) < 0 then
				CounterB = CounterB + 1
				LTotalB = LTotalB + BusB(i)
			End If

			if BusC(i) < 0 then
				CounterC = CounterC + 1
				LTotalC = LTotalC + BusC(i)
			End If

			if BusD(i) < 0 then
				CounterD = CounterD + 1
				LTotalD = LTotalD + BusD(i)
			End If

			if BusE(i) < 0 then
				CounterE = CounterE + 1
				LTotalE = LTotalE + BusE(i)
			End If

			if BusF(i) < 0 then
				CounterF = CounterF + 1
				LTotalF = LTotalF + BusF(i)
			End If
		next

		for j = 1 to 20
			TotalA = TotalA + BusA(j)
			TotalB = TotalB + BusB(j)
			TotalC = TotalC + BusC(j)
			TotalD = TotalD + BusD(j)
			TotalE = TotalE + BusE(j)
			TotalF = TotalF + BusF(j)
		next

		MeanA = TotalA / 20
		MeanB = TotalB / 20
		MeanC = TotalC / 20
		MeanD = TotalD / 20
		MeanE = TotalE / 20
		MeanF = TotalF / 20
		If CounterA > 0 Then
			LMeanA = LTotalA / CounterA
		Else
			LMeanA = 0
		End If

		If CounterB > 0 Then
			LMeanB = LTotalB / CounterB
		Else
			LMeanB = 0
		End If

		If CounterC > 0 Then
			LMeanC = LTotalC / CounterC
		Else
			LMeanC = 0
		End If

		If CounterD > 0 Then
			LMeanD = LTotalD / CounterD
		Else
			LMeanD = 0
		End If

		If CounterE > 0 Then
			LMeanE = LTotalE / CounterE
		Else
			LMeanE = 0
		End If

		If CounterF > 0 Then
			LMeanF = LTotalF / CounterF
		Else
			LMeanF = 0
		End If

		If CounterA > High then
			High = CounterA
		End If

		If CounterB > High then
			High = CounterB
		End If

		If CounterC > High then
			High = CounterC
		End If

		If CounterD > High then
			High = CounterD
		End If

		If CounterE > High then
			High = CounterE
		End If

		If CounterF > High then
			High = CounterF
		End If

		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()
		If CounterA = High then
			Console.WriteLine("Bus A was late the most")
		End If

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

		If CounterC = High then
			Console.WriteLine("Bus C was late the most")
		End If

		If CounterD = High then
			Console.WriteLine("Bus D was late the most")
		End If

		If CounterE = High then
			Console.WriteLine("Bus E was late the most")
		End If

		If CounterF = High then
			Console.WriteLine("Bus F was late the most")
		End If

		Console.WriteLine()
		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()
		If MeanA >= 0 then
			Console.WriteLine("Bus A was " & MeanA & " minutes early on average")
		else
			Console.WriteLine("Bus A was " & MeanA * -1 & " minutes late on average")
		End If

		If MeanB >= 0 then
			Console.WriteLine("Bus B was " & MeanB & " minutes early on average")
		else
			Console.WriteLine("Bus B was " & MeanB * -1 & " minutes late on average")
		End If

		If MeanC >= 0 then
			Console.WriteLine("Bus C was " & MeanC & " minutes early on average")
		else
			Console.WriteLine("Bus C was " & MeanC * -1 & " minutes late on average")
		End If

		If MeanD >= 0 then
			Console.WriteLine("Bus D was " & MeanD & " minutes early on average")
		else
			Console.WriteLine("Bus D was " & MeanD * -1 & " minutes late on average")
		End If

		If MeanE >= 0 then
			Console.WriteLine("Bus E was " & MeanE & " minutes early on average")
		else
			Console.WriteLine("Bus E was " & MeanE * -1 & " minutes late on average")
		End If

		If MeanF >= 0 then
			Console.WriteLine("Bus F was " & MeanF & " minutes early on average")
		else
			Console.WriteLine("Bus F was " & MeanF * -1 & " minutes late on average")
		End If
	End Sub

	Public Sub Task3
		dim Daynum as integer
		dim Weeknum as integer
		dim Arraynum as integer
		dim Latenum as integer
		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()
		Console.WriteLine("Task 3")
		Console.WriteLine()
		Do
			Console.WriteLine("Enter Day Number (From 1-5)")
			Daynum = Console.ReadLine()
		Loop until Daynum >= 1 and Daynum <= 5

		Do
			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
			Latenum = Latenum + 1
		End if

		If BusB(Arraynum) < 0 then
			Latenum = Latenum + 1
		End if

		If BusC(Arraynum) < 0 then
			Latenum = Latenum + 1
		End if

		If BusD(Arraynum) < 0 then
			Latenum = Latenum + 1
		End if

		If BusE(Arraynum) < 0 then
			Latenum = Latenum + 1
		End if

		If BusF(Arraynum) < 0 then
			Latenum = Latenum + 1
		End if

		Console.WriteLine()
		If Latenum > 0 then
			Console.WriteLine("The number of late buses on this day was " & Latenum)
			Console.WriteLine()
		End if
		
		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")
		End if

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

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

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

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

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

		If Latenum = 0 then
			console.WriteLine("There were no late buses")
		End if
	End Sub
End Module

​x
 
Imports System
​
Public Module Module1
​
    Public Sub Main()
        Dim UserChoice As Integer
        Console.WriteLine("MENU OF OPTIONS")
        Console.WriteLine()
        Do
            Console.WriteLine("Task 1")
            Console.WriteLine("Task 2")
            Console.WriteLine("Task 3")
            Console.WriteLine()
            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
​
        Console.WriteLine()
        Call Main()
    End Sub
​
    Public Sub Task1
        Dim Days(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
        Console.WriteLine()
        Console.WriteLine("TASK 1")
        Console.WriteLine()
        Days(1) = "Mon1"
        Days(2) = "Tue1"
        Days(3) = "Wed1"
        Days(4) = "Thu1"
        Days(5) = "Fri1"
        Days(6) = "Mon2"
        Days(7) = "Tue2"
        Days(8) = "Wed2"
        Days(9) = "Thu2"
        Days(10) = "Fri2"
        Days(11) = "Mon3"
        Days(12) = "Tue3"
        Days(13) = "Wed3"
        Days(14) = "Thu3"
        Days(15) = "Fri3"
        Days(16) = "Mon4"
        Days(17) = "Tue4"
        Days(18) = "Wed4"
        Days(19) = "Thu4"
        Days(20) = "Fri4"
        for i = 1 to 20
            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()
        next
​
        For k = 1 to 20
            Console.WriteLine(Days(k) & BusA(k) & BusB(k) & BusC(k) & BusD(k) & BusE(k) & BusF(k))
        next
    End Sub
​
    Public Sub Task2
        Console.WriteLine()
        Console.WriteLine("Task 2")
        Console.WriteLine()
        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
        Dim High As Integer = 0
        for i = 1 to 20
            if BusA(i) < 0 then
                CounterA = CounterA + 1
                LTotalA = LTotalA + BusA(i)
            End If
​
            if BusB(i) < 0 then
                CounterB = CounterB + 1
                LTotalB = LTotalB + BusB(i)
            End If
​
            if BusC(i) < 0 then
                CounterC = CounterC + 1
                LTotalC = LTotalC + BusC(i)
            End If
​
            if BusD(i) < 0 then
                CounterD = CounterD + 1
                LTotalD = LTotalD + BusD(i)
            End If
​
            if BusE(i) < 0 then
                CounterE = CounterE + 1
                LTotalE = LTotalE + BusE(i)
            End If
​
            if BusF(i) < 0 then
                CounterF = CounterF + 1
                LTotalF = LTotalF + BusF(i)
            End If
        next
​
        for j = 1 to 20
            TotalA = TotalA + BusA(j)
            TotalB = TotalB + BusB(j)
            TotalC = TotalC + BusC(j)
            TotalD = TotalD + BusD(j)
            TotalE = TotalE + BusE(j)
            TotalF = TotalF + BusF(j)
        next
​
        MeanA = TotalA / 20
        MeanB = TotalB / 20
        MeanC = TotalC / 20
        MeanD = TotalD / 20
        MeanE = TotalE / 20
        MeanF = TotalF / 20
        If CounterA > 0 Then
            LMeanA = LTotalA / CounterA
        Else
            LMeanA = 0
        End If
​
        If CounterB > 0 Then
            LMeanB = LTotalB / CounterB
        Else
            LMeanB = 0
        End If
​
        If CounterC > 0 Then
            LMeanC = LTotalC / CounterC
        Else
            LMeanC = 0
        End If
​
        If CounterD > 0 Then
            LMeanD = LTotalD / CounterD
        Else
            LMeanD = 0
        End If
​
        If CounterE > 0 Then
            LMeanE = LTotalE / CounterE
        Else
            LMeanE = 0
        End If
​
        If CounterF > 0 Then
            LMeanF = LTotalF / CounterF
        Else
            LMeanF = 0
        End If
​
        If CounterA > High then
            High = CounterA
        End If
​
        If CounterB > High then
            High = CounterB
        End If
​
        If CounterC > High then
            High = CounterC
        End If
​
        If CounterD > High then
            High = CounterD
        End If
​
        If CounterE > High then
            High = CounterE
        End If
​
        If CounterF > High then
            High = CounterF
        End If
​
        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()
        If CounterA = High then
            Console.WriteLine("Bus A was late the most")
        End If
​
        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")
        End If
​
        If CounterC = High then
            Console.WriteLine("Bus C was late the most")
        End If
​
        If CounterD = High then
            Console.WriteLine("Bus D was late the most")
        End If
​
        If CounterE = High then
            Console.WriteLine("Bus E was late the most")
        End If
​
        If CounterF = High then
            Console.WriteLine("Bus F was late the most")
        End If
​
        Console.WriteLine()
        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()
        If MeanA >= 0 then
            Console.WriteLine("Bus A was " & MeanA & " minutes early on average")
        else
            Console.WriteLine("Bus A was " & MeanA * -1 & " minutes late on average")
        End If
​
        If MeanB >= 0 then
            Console.WriteLine("Bus B was " & MeanB & " minutes early on average")
        else
            Console.WriteLine("Bus B was " & MeanB * -1 & " minutes late on average")
        End If
​
        If MeanC >= 0 then
            Console.WriteLine("Bus C was " & MeanC & " minutes early on average")
        else
            Console.WriteLine("Bus C was " & MeanC * -1 & " minutes late on average")
        End If
​
        If MeanD >= 0 then
            Console.WriteLine("Bus D was " & MeanD & " minutes early on average")
        else
            Console.WriteLine("Bus D was " & MeanD * -1 & " minutes late on average")
        End If
​
        If MeanE >= 0 then
            Console.WriteLine("Bus E was " & MeanE & " minutes early on average")
        else
            Console.WriteLine("Bus E was " & MeanE * -1 & " minutes late on average")
        End If
​
        If MeanF >= 0 then
            Console.WriteLine("Bus F was " & MeanF & " minutes early on average")
        else
            Console.WriteLine("Bus F was " & MeanF * -1 & " minutes late on average")
        End If
    End Sub
​
    Public Sub Task3
        dim Daynum as integer
        dim Weeknum as integer
        dim Arraynum as integer
        dim Latenum as integer
        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()
        Console.WriteLine("Task 3")
        Console.WriteLine()
        Do
            Console.WriteLine("Enter Day Number (From 1-5)")
            Daynum = Console.ReadLine()
        Loop until Daynum >= 1 and Daynum <= 5
​
        Do
            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
            Latenum = Latenum + 1
        End if
​
        If BusB(Arraynum) < 0 then
            Latenum = Latenum + 1
        End if
​
        If BusC(Arraynum) < 0 then
            Latenum = Latenum + 1
        End if
​
        If BusD(Arraynum) < 0 then
            Latenum = Latenum + 1
        End if
​
        If BusE(Arraynum) < 0 then
            Latenum = Latenum + 1
        End if
​
        If BusF(Arraynum) < 0 then
            Latenum = Latenum + 1
        End if
​
        Console.WriteLine()
        If Latenum > 0 then
            Console.WriteLine("The number of late buses on this day was " & Latenum)
            Console.WriteLine()
        End if
        
        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")
        End if
​
        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")
        End if
​
        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")
        End if
​
        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")
        End if
​
        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")
        End if
​
        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")
        End if
​
        If Latenum = 0 then
            console.WriteLine("There were no late buses")
        End if
    End Sub
End Module

Last Run:	8:43:26 pm
Compile:	0.219s
Execute:	0s
Memory:	24kb
CPU:	0s

View IL Code