Imports System

Public Module Module1

    Public Sub Main()

        ' Declare Variables '

        'Alice's work hours ' 

        dim AWorkHours(6) as decimal

        dim ATotal as decimal

        ' Bao Ching's work hours ' 

        dim BWorkHours(6) as decimal

        dim BTotal as decimal

        ' Chirag's work hours ' 

        DIm CWorkHours(6) as decimal

        DIm CTotal as decimal

        Dim I as integer

        Dim Day(6) as string

        Day(0) = "Monday"

        Day(1) = "Tuesday"

        Day(2) = "Wednesday"

        Day(3) = "Thursday"

        Day(4) = "Friday"

        Day(5) = "Saturday"

        Day(6) = "Sunday"

        ' Alice '

        Console.WriteLine("Hello Alice")

    do

                    Console.WriteLine(Day(I))

            AWorkHours(I) = Console.ReadLine()

                 if AWorkHours(I) > 0 AND AWorkHours(I) < 12 then

                            I = I + 1

            else Console.WriteLine("Please Redo " & Day(I) )

                        end if

                        loop while  I <= 6 

                    Console.WriteLine("Name: Alice")

            Console.WriteLine("WAGES FOR THE DAYS")

            for I = 0 to 4

                Console.WriteLine(Day(i) & ":$"& AWorkHours(i) * 17)

        next

                        Console.WriteLine(Day(5) & ":$"& AWorkHours(5) * 25.5)

                        Console.WriteLine(Day(6) & ":$"& AWorkHours(6) * 34)

        Console.WriteLine("HOURS WORKED")

        for I = 0 to 6

        Console.WriteLine(Day(i) & ":"& AWorkHours(i))

    next

    End Sub

End Module

​

​