Imports System

Public Module Module1

    Public Sub Main()

        Dim Alice(6) as Decimal  'Creates Array

        Dim BaoQing(6) as Decimal

        Dim Chirag(6) as Decimal

        Dim Day(6) as String 'Words

        Dim Hours(12) as decimal

        Dim Weeklywages(0) as decimal 

        Dim Dailywages(12) as decimal

        Hours(0) = "00.00"

        Hours(1) = "17.00"

        Hours(2) = "34.00"

        Hours(3) = "51.00"

        Hours(4) = "68.00"

        Hours(5) = "85.00"

        Hours(6) = "102.00"

        Hours(7) = "119.00"

        Hours(8) = "136.00"

        Hours(9) = "153.00"

        Hours(10) = "170.00"

        Hours(11) = "187.00"

        Hours(12) = "204.00"

        Day(0) = "Monday"

        Day(1) = "Tuesday"

        Day(2) = "Wednesday"

        Day(3) = "Thursday"

        Day(4) = "Friday"

        Day(5) = "Saturday"

        Day(6) = "Sunday"

        Console.Writeline("Insert hours for Alice.")

        For i = 0 to 6  'Create Loop

        Alice(i) = Console.Readline()  'Input Data

            IF Alice(i) < 0 OR Alice(i) > 12 then

            Do 'DO WHile Loop

                Console.Writeline("ERROR. Number must less than 12 and more than 0")

                Alice(i) = Console.Readline()

                Loop Until Alice(i) > -1 And Alice(i) < 13

            End If

            If Alice(i) mod 0.25 <> 0 then

            Do

                Console.Writeline("ERROR. Numbermust bust divisible b 0.25")

                        Alice(i) = Console.Readline()  

            Loop Until Alice(i) mod 0.25 = 0

            End If

    Next 'End Loop

    Console.Writeline("Insert hours for Bao-Qing.")

            For i = 0 to 6  'Create Loop

        BaoQing(i) = Console.Readline()  'Input Data

            IF BaoQing(i) < 0 OR BaoQing(i) > 12 then

            Do 'DO WHile Loop

                Console.Writeline("ERROR. Number must less than 12 and more than 0")

                BaoQing(i) = Console.Readline()

                Loop Until BaoQing(i) > -1 And BaoQing(i) < 13

            End If

            If BaoQing(i) mod 0.25 <> 0 then

            Do

                Console.Writeline("ERROR. Numbermust bust divisible b 0.25")

                        BaoQing(i) = Console.Readline()  

        Loop Until BaoQing(i) mod 0.25 = 0

            End If

    Next 'End Loop

​

Console.Writeline("Insert hours for Chirag.")

​

    For i = 0 to 6  'Create Loop

        Chirag(i) = Console.Readline()  'Input Data

            IF Chirag(i) < 0 OR Chirag(i) > 12 then

            Do 'DO WHile Loop

                Console.Writeline("ERROR. Number must less than 12 and more than 0")

                Chirag(i) = Console.Readline()

                Loop Until Chirag(i) > -1 And Chirag(i) < 13

            End If

            If Chirag(i) mod 0.25 <> 0 then

            Do

                Console.Writeline("ERROR. Numbermust bust divisible b 0.25")

                        Chirag(i) = Console.Readline()  

            Loop Until Chirag(i) mod 0.25 = 0

            End If

    Next 'End Loop

​

Console.WriteLine("HOURS:")

Console.Writeline("Name:Alice")

​

For i = 0 to 6 

Console.Write(Day(i) + ": ")

Console.Writeline(Alice(i))

Next

​

Console.Writeline("Name:Bao-Qing")

​

For i = 0 to 6 

Console.Write(Day(i) + ": ")

Console.Writeline(BaoQing(i))

Next

​

Console.Writeline("Name:Chirag")

​

For i = 0 to 6 

Console.Write(Day(i) + ": ")

Console.Writeline(Chirag(i))

Next

​

​

​

​

    End Sub

End Module