Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim Alice(6) as decimal

        dim BaoQing(6) as decimal

        dim Chirag(6) as decimal

        dim days(6) as string

        dim names(2) as string

        dim weekendrates(6) as decimal

        dim totals(2) as decimal 

        dim totalcounter as integer = 0

        dim i as integer

        dim dailyrate(6) as decimal

        totals(0) = 0

        totals(1) = 0

        totals(2) = 0

        weekendrates(0) = 1

        weekendrates(1) = 1

        weekendrates(2) = 1

        weekendrates(3) = 1

        weekendrates(4) = 1

        weekendrates(5) = 1.5

        weekendrates(6) = 2

        Console.WriteLine("Input hours worked each day for Alice")

        For i = 0 to 6

        do

            Alice(i) = console.readline

            Alice(i) = Alice(i)

        loop until Alice(i) >= 0 and Alice(i) <= 12 and Alice(i) mod 0.25 = 0

        next

​

    Console.WriteLine("Input hours worked each day for Bao-Qing")

        For i = 0 to 6

    do

            BaoQing(i) = console.ReadLine()

    BaoQing(i) = BaoQing(i)

        loop until BaoQing(i) >= 0 and BaoQing(i) <= 12 and BaoQing(i) mod 0.25 = 0

        next

​

Console.WriteLine("Input hours worked each day for Chirag")

        For i = 0 to 6

do

            Chirag(i) = console.readline

            Chirag(i) = Chirag(i)

    loop until Chirag(i) >= 0 and Chirag(i) <= 12 and Chirag(i) mod 0.25 = 0

        next

​

        days(0) = "monday"

        days(1) = "tuesday"

        days(2) = "wednesday"

        days(3) = "thursday"

        days(4) = "friday"

        days(5) = "saturday"

        days(6) = "sunday"

names(0) = "Alice"

        names(1) = "Bao-Qing"

        names(2) = "Chirag"

​

console.writeline("Alices hours")

​

For i = 0 to 6

console.WriteLine(days(i) & ": " & Alice(i))

next

console.writeline("Bao-Qing hours")

For i = 0 to 6

console.WriteLine(days(i) & ": " & BaoQing(i))

next

console.writeline("Chirags hours")

For i = 0 to 6

console.WriteLine(days(i) & ": " & Chirag(i))

next

​

console.writeline("alices daily wages")

For i = 0 to 4

dailyrate(i) = alice(i) * 17

console.writeline(days(i) & ": " & dailyrate(i))

next

For i = 5 to 5

dailyrate(i) = alice(i) * 25.5

console.writeline("saturday: " & dailyrate(i))

next

for i = 6 to 6 

dailyrate(i) = alice(i) * 34

console.writeline("sunday: " & dailyrate(i))

next

​

console.writeline("Bao-Qings daily wages")

For i = 0 to 4

dailyrate(i) =  BaoQing(i) * 17

console.writeline(days(i) & ": " & dailyrate(i))

next

For i = 5 to 5

dailyrate(i) =  BaoQing(i) * 25.5

console.writeline("saturday: " & dailyrate(i))

next

for i = 6 to 6 

dailyrate(i) = BaoQing(i) * 34

console.writeline("sunday: " & dailyrate(i))

next

​

console.writeline("Chirags daily wages")

For i = 0 to 4

dailyrate(i) =  Chirag(i) * 20.5

console.writeline(days(i) & ": " & dailyrate(i))

next

For i = 5 to 5

dailyrate(i) =  Chirag(i) * 30.75

console.writeline("saturday: " & dailyrate(i))

next

for i = 6 to 6 

dailyrate(i) = Chirag(i) * 41

console.writeline("sunday: " & dailyrate(i))

next

​

for i = 0 to 6

Alice(i) = Alice(i) * weekendrates(i) * 17.00

Totals(totalcounter) = Totals(totalcounter) + Alice(i)

next

totalcounter = totalcounter + 1

​

for i = 0 to 6

BaoQing(i) = BaoQing(i) * weekendrates(i) * 17.00

Totals(totalcounter) = Totals(totalcounter) + BaoQing(i)

next

totalcounter = totalcounter + 1

​

for i = 0 to 6

Chirag(i) = Chirag(i) * weekendrates(i) * 20.50

Totals(totalcounter) = Totals(totalcounter) + Chirag(i)

next

totalcounter = totalcounter + 1

​

Console.WriteLine("total wages")

for i = 0 to 2

console.WriteLine(names(i) & ": " & totals(i))

next

​

dim total as decimal = 0

dim mean as decimal

dim max as decimal

dim maxindex as integer = 0

max = totals(0)

​

for i = 0 to 2

total = total + totals(i)

if totals(i) > max then

max = totals(i)

maxindex = i

end if

next

mean = total/3

​

console.WriteLine("Total wages: " & total & " " & "Average wages: " & mean & " " & "Highest earner was " & Names(maxindex) & " who earned " & max)

​

​

​

    End Sub

End Module

​