Imports System

​

Public Module Module1

​

    Public Sub Main()

        WagesCalculation()

    End Sub

    Private Sub WagesCalculationSimple()

        Dim Temp(6) as Decimal

        Dim Names(2) as String

        Dim Alice(6) as Decimal

        Dim Biyaun(6) as Decimal

        Dim Chirag(6) as Decimal

        Dim Weekdays(6) as String

        Dim TotalHours(2) as Decimal

        Dim Payments(2) as Decimal

        Dim Wages(2) as Decimal

        Dim HighWageEmployee as Integer

        Dim TotalWages as Decimal

        Names = {"Alice", "Biyaun", "Chirag"}

        Weekdays = {"Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday"}

        Wages = {17, 17, 20.5}

        For Employee = 0 To 2

            For i = 0 To 6

                Console.WriteLine("Enter the amount of hours worked by " & Names(Employee) & " on " & Weekdays(i) & ".")

                Temp(i) = Console.ReadLine()

                Do Until Temp(i) >= 0 AND Temp(i) <= 12 AND Temp(i) mod 0.25 = 0

                   Console.WriteLine("Invalid amount entered. Please retry.")

                    Temp(i) = Console.ReadLine()

                Loop

                TotalHours(Employee) = TotalHours(Employee) + Temp(i)

                If i = 5 Then

                    Payments(Employee) = Payments(Employee) + Temp(i)*Wages(Employee)*1.5

                Else If i = 6

                    Payments(Employee) = Payments(Employee) + Temp(i)*Wages(Employee)*2

                Else

                    Payments(Employee) = Payments(Employee) + Temp(i)*Wages(Employee)

                End If

            Next

            TotalWages = TotalWages + Payments(Employee)

            If Payments(Employee) > Payments(HighWageEmployee) Then

                HighWageEmployee = Employee

            End If

            If Employee = 0 Then

                Alice = Temp

            Else If Employee = 1

                Biyaun = Temp

            Else If Employee = 2

                Chirag = Temp

            End If

        Next

        For Employee = 0 To 2

            For i = 0 To 6

                If Employee = 0

                    Console.WriteLine(Names(Employee) & " worked for " & Alice(i) & " hours on " & Weekdays(i) & ".")

                Else If Employee = 1

                    Console.WriteLine(Names(Employee) & " worked for " & Biyaun(i) & " hours on " & Weekdays(i) & ".")  

                Else If Employee = 2

                    Console.WriteLine(Names(Employee) & " worked for " & Chirag(i) & " hours on " & Weekdays(i) & ".")

                End If

            Next

            Console.WriteLine(Names(Employee) & " worked for a total of " & TotalHours(Employee) & " hours this week, earning a total of $" & Payments(Employee) & ".")

        Next

        Console.WriteLine("The average amount earned this week was $" & TotalWages/3 & ".")

        Console.WriteLine(Names(HighWageEmployee) & " earned $" & Payments(HighWageEmployee) & ", the most this week.")

    End Sub

    Private Sub WagesCalculation()

        Dim Hours(2)() as Decimal

        Dim Names(2) as String

        Dim Alice(6) as Decimal

        Dim Biyaun(6) as Decimal

        Dim Chirag(6) as Decimal

        Dim Weekdays(6) as String

        Dim TotalHours(2) as Decimal

        Dim Payments(2) as Decimal

        Dim Wages(2) as Decimal

        Dim HighWageEmployee as Integer

        Dim TotalWages as Decimal

        Hours = {Alice, Biyaun, Chirag}

        Names = {"Alice", "Biyaun", "Chirag"}

        Weekdays = {"Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday"}

        Wages = {17, 17, 20.5}

        For Employee = 0 To 2

            For i = 0 To 6

                Console.WriteLine("Enter the amount of hours worked by " & Names(Employee) & " on " & Weekdays(i) & ".")

                Hours(Employee)(i) = Console.ReadLine()

                Do Until Hours(Employee)(i) >= 0 AND Hours(Employee)(i) <= 12 AND Hours(Employee)(i) mod 0.25 = 0

                   Console.WriteLine("Invalid amount entered. Please retry.")

                   Hours(Employee)(i) = Console.ReadLine()

                Loop

                TotalHours(Employee) = TotalHours(Employee) + Hours(Employee)(i)

                If i = 5 Then

                    Payments(Employee) = Payments(Employee) + Hours(Employee)(i)*Wages(Employee)*1.5

                Else If i = 6

                    Payments(Employee) = Payments(Employee) + Hours(Employee)(i)*Wages(Employee)*2

                Else

                    Payments(Employee) = Payments(Employee) + Hours(Employee)(i)*Wages(Employee)

                End If

            Next

            TotalWages = TotalWages + Payments(Employee)

            If Payments(Employee) > Payments(HighWageEmployee) Then

                HighWageEmployee = Employee

            End If

        Next

        For Employee = 0 To 2

            For i = 0 To 6

                Console.WriteLine(Names(Employee) & " worked for " & Hours(Employee)(i) & " hours on " & Weekdays(i) & ".")

            Next

            Console.WriteLine(Names(Employee) & " worked for a total of " & TotalHours(Employee) & " hours this week, earning a total of $" & Payments(Employee) & ".")

        Next

        Console.WriteLine("The average amount earned this week was $" & TotalWages/3 & ".")

        Console.WriteLine(Names(HighWageEmployee) & " earned $" & Payments(HighWageEmployee) & ", the most this week.")

    End Sub

End Module