Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim errorMessage as string = "Invalid input, hours entered must be in increments of 0.25hrs and must be greater than or equal to zero and less than or equal to 12"

        Dim length as integer = 6 'Used to adjust number of days for easier testing, defualt 6

        Dim wagesAlice as decimal

        Dim wagesBiyaun as decimal

        Dim wagesChirag as decimal

        Dim Alice(length) as decimal

        Dim Biyaun(length) as decimal

        Dim Chirag(length) as decimal

        Dim maxTemp as decimal = 5586 'Very high value to test against in finding the maximum wages value

        Dim employeeTemp as string = "" '

        Dim Days() as string = {"Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday"}

        Console.WriteLine("Input data for Alice for each day: Monday - Sunday")

        For i = 0 to length

            Alice(i) = Console.ReadLine()

            Do Until Alice(i) >= 0 AND Alice(i) <= 12 AND (4 * Alice(i)) mod 1 = 0 'Validation

                Console.WriteLine(errorMessage)

                Alice(i) = Console.ReadLine()

            Loop

        next

​

        Console.WriteLine("Input data for Biyaun for each day: Monday - Sunday")

        For i = 0 to length

            Biyaun(i) = Console.ReadLine()

            Do Until Biyaun(i) >= 0 AND Biyaun(i) <= 12 AND (4 * Biyaun(i)) mod 1 = 0 'validation

                Console.WriteLine(errorMessage)

                Biyaun(i) = Console.ReadLine()

            Loop

        next

​

        Console.WriteLine("Input data for Chirag for each day: Monday - Sunday")

        For i = 0 to length

            Chirag(i) = Console.ReadLine()

            Do Until Chirag(i) >= 0 AND Chirag(i) <= 12 AND (4 * Chirag(i)) mod 1 = 0 'Validation

                Console.WriteLine(errorMessage)

                Chirag(i) = Console.ReadLine()

            Loop

        next

​

        For i = 0 to length

            Console.WriteLine("Alice worked " & Alice(i) & " hour(s) on " & Days(i))

            Console.WriteLine("Biyaun worked " & Biyaun(i) & " hour(s) on " & Days(i))

            Console.WriteLine("Chirag worked " & Chirag(i) & " hour(s) on " & Days(i))

        next

​

        For j = 0 to 4 'This for loop present purely for ease of testing, it checks if the length variable is not the default 6 and adjusts the interior loop accordingly

            If length = j Then

                For i = 0 to j

                    wagesAlice = wagesAlice + Alice(i) * 17

                    wagesBiyaun = wagesBiyaun + Biyaun(i) * 17

                    wagesChirag = wagesChirag + Chirag(i) * 20.5

                next

            End If

        next

​

        If length >= 5 Then

            wagesAlice = wagesAlice + Alice(5) * 25.5

            wagesBiyaun = wagesBiyaun + Biyaun(5) * 25.5

            wagesChirag = wagesChirag + Chirag(5) * 30.75

        End If

​

        If length = 6 Then

            wagesAlice = wagesAlice + Alice(6) * 35

            wagesBiyaun = wagesBiyaun + Biyaun(6) * 35

            wagesChirag = wagesChirag + Chirag(6) * 41

        End If

​

        Console.WriteLine("Alice earned: $" & wagesAlice & ". Biyaun earned: $" & wagesBiyaun & ". Chirag earned: $" & wagesChirag)

        Console.WriteLine("Total wages paid: $" & wagesAlice + wagesBiyaun + wagesChirag)

        Console.WriteLine("Average wage: $" & (wagesAlice + wagesBiyaun + wagesChirag) / 3)

        If wagesAlice > maxTemp Then 'Most optimal code for determining highest out of 3

            maxTemp = wagesAlice

            employeeTemp = "Alice"

        Else If wagesBiyaun > maxTemp Then

            maxTemp = wagesBiyaun

            employeeTemp = "Biyaun"

        Else

            employeeTemp = "Chirag"

        End If

​

        Console.WriteLine(employeeTemp & " earned the most wages")

    End Sub

End Module

​