Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim wd_index as integer = 0

        dim name0, name1, name2 as string

        dim workdays0(7), workdays1(7), workdays2(7) as decimal

        dim dailywages0(7), dailywages1(7), dailywages2(7) as decimal

        dim sum0, sum1, sum2 as decimal 

        dim earn_most as string

        name0 = "Alice"

        console.WriteLine("Hours : ")

        console.WriteLine("Name : Alice")

        console.WriteLine("Pleas input working hours from Mon to Sun")

        do

            workdays0(wd_index) = console.ReadLine()

            if workdays0(wd_index) >= 0 and workdays0(wd_index) < 12

                wd_index = wd_index + 1

            else

                console.WriteLine("The work time must be over 0 hr and less then 12 hrs")

            end if

        loop until wd_index = 7 

​

        name1 = "Bao-Qing"

        console.WriteLine("Hours : ")

        console.WriteLine("Name : Bao-Qing")

        console.WriteLine("Pleas input working hours from Mon to Sun")

        wd_index = 0

        do

            workdays1(wd_index) = console.ReadLine()

            if workdays1(wd_index) >= 0 and workdays1(wd_index) < 12

                wd_index = wd_index + 1

            else

                console.WriteLine("The work time must be over 0 hr and less then 12 hrs")

            end if

        loop until wd_index = 7

​

        name2 = "Chirag"

        console.WriteLine("Hours : ")

        console.WriteLine("Name : Chirag")

        console.WriteLine("Pleas input working hours from Mon to Sun")

        wd_index = 0

        do

            workdays2(wd_index) = console.ReadLine()

            if workdays2(wd_index) >= 0 and workdays2(wd_index) < 12

                wd_index = wd_index + 1

            else

                console.WriteLine("The work time must be over 0 hr and less then 12 hrs")

            end if

        loop until wd_index = 7

​

        console.writeline("HOURS : ")

        console.Writeline(name0)

        console.WriteLine("Mon : " & workdays0(0))

        console.WriteLine("Tue : " & workdays0(1))

        console.WriteLine("Wed : " & workdays0(2))

        console.WriteLine("Thu : " & workdays0(3))

        console.WriteLine("Fri : " & workdays0(4))

        console.WriteLine("Sat : " & workdays0(5))

        console.WriteLine("Sun : " & workdays0(6))

        console.Writeline(name1)

        console.WriteLine("Mon : " & workdays1(0))

        console.WriteLine("Tue : " & workdays1(1))

        console.WriteLine("Wed : " & workdays1(2))

        console.WriteLine("Thu : " & workdays1(3))

        console.WriteLine("Fri : " & workdays1(4))

        console.WriteLine("Sat : " & workdays1(5))

        console.WriteLine("Sun : " & workdays1(6))

        console.Writeline(name2)

        console.WriteLine("Mon : " & workdays2(0))

        console.WriteLine("Tue : " & workdays2(1))

        console.WriteLine("Wed : " & workdays2(2))

        console.WriteLine("Thu : " & workdays2(3))

        console.WriteLine("Fri : " & workdays2(4))

        console.WriteLine("Sat : " & workdays2(5))

        console.WriteLine("Sun : " & workdays2(6))

        for wd_index = 0 to 6

            dailywages0(wd_index) = workdays0(wd_index) * 17

        next wd_index

​

        dailywages0(5) = dailywages0(5) * 1.5

        dailywages0(6) = dailywages0(6) * 2

        sum0 = 0

        for wd_index = 0 to 6

            sum0 = sum0 + dailywages0(wd_index)

        next wd_index

​

        for wd_index = 0 to 6

            dailywages1(wd_index) = workdays1(wd_index) * 17

        next wd_index

​

        dailywages1(5) = dailywages1(5) * 1.5

        dailywages1(6) = dailywages1(6) * 2

        sum1 = 0

        for wd_index = 0 to 6

            sum1 = sum1 + dailywages1(wd_index)

        next wd_index

​

        for wd_index = 0 to 6

            dailywages2(wd_index) = workdays2(wd_index) * 20.5

        next wd_index

​

        dailywages2(5) = dailywages2(5) * 1.5

        dailywages2(6) = dailywages2(6) * 2

        sum2 = 0

        for wd_index = 0 to 6

            sum2 = sum2 + dailywages2(wd_index)

        next wd_index

        console.writeline("WAGES  : ")

        console.WriteLine("Name : Alice")

        console.Writeline(name0)

        console.WriteLine("Mon : " & dailywages0(0))

        console.WriteLine("Tue : " & dailywages0(1))

        console.WriteLine("Wed : " & dailywages0(2))

        console.WriteLine("Thu : " & dailywages0(3))

        console.WriteLine("Fri : " & dailywages0(4))

        console.WriteLine("Sat : " & dailywages0(5))

        console.WriteLine("Sun : " & dailywages0(6))

        console.WriteLine("Total weekly wage : " & sum0)

        console.writeline("WAGES  : ")

        console.WriteLine("Name : Bao-Qing")

        console.Writeline(name1)

        console.WriteLine("Mon : " & dailywages1(0))

        console.WriteLine("Tue : " & dailywages1(1))

        console.WriteLine("Wed : " & dailywages1(2))

        console.WriteLine("Thu : " & dailywages1(3))

        console.WriteLine("Fri : " & dailywages1(4))

        console.WriteLine("Sat : " & dailywages1(5))

        console.WriteLine("Sun : " & dailywages1(6))

        console.WriteLine("Total weekly wage : " & sum1)

        console.writeline("WAGES  : ")

        console.WriteLine("Name :  Chirag")

        console.Writeline(name2)

        console.WriteLine("Mon : " & dailywages2(0))

        console.WriteLine("Tue : " & dailywages2(1))

        console.WriteLine("Wed : " & dailywages2(2))

        console.WriteLine("Thu : " & dailywages2(3))

        console.WriteLine("Fri : " & dailywages2(4))

        console.WriteLine("Sat : " & dailywages2(5))

        console.WriteLine("Sun : " & dailywages2(6))

        console.WriteLine("=======")

        console.WriteLine("Highest weekly wage : " & sum2)

        console.WriteLine("Total weekly wage paid out : " & sum0 + sum1 + sum2)

        console.WriteLine("The average weekly wage : " & (sum0 + sum1 + sum2) / 3)

        if sum0 > sum1

            if sum1 > sum2

                earn_most = "Alice"

            else if sum0 > sum2

                earn_most = "Alice"

            else

                earn_most = "Chirag"

            end if

        else

            if sum1 > sum2

                earn_most = "Bao-Qing"

            else

                earn_most = "Chirag"

            end if

        end if

​

        console.WriteLine("Who earned most : " & earn_most)

        console.WriteLine("=======")

    End Sub

End Module