Dim BaoQing(6) as Decimal
Dim Weeklywages(0) as decimal
Dim Dailywages(12) as decimal
Console.Writeline("Insert hours for Alice.")
Alice(i) = Console.Readline()
IF Alice(i) < 0 OR Alice(i) > 12 then
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
If Alice(i) mod 0.25 <> 0 then
Console.Writeline("ERROR. Numbermust bust divisible b 0.25")
Alice(i) = Console.Readline()
Loop Until Alice(i) mod 0.25 = 0
Console.Writeline("Insert hours for Bao-Qing.")
BaoQing(i) = Console.Readline()
IF BaoQing(i) < 0 OR BaoQing(i) > 12 then
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
If BaoQing(i) mod 0.25 <> 0 then
Console.Writeline("ERROR. Numbermust bust divisible b 0.25")
BaoQing(i) = Console.Readline()
Loop Until BaoQing(i) mod 0.25 = 0
Console.Writeline("Insert hours for Chirag.")
Chirag(i) = Console.Readline()
IF Chirag(i) < 0 OR Chirag(i) > 12 then
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
If Chirag(i) mod 0.25 <> 0 then
Console.Writeline("ERROR. Numbermust bust divisible b 0.25")
Chirag(i) = Console.Readline()
Loop Until Chirag(i) mod 0.25 = 0
Console.WriteLine("HOURS:")
Console.Writeline("Name:Alice")
Console.Write(Day(i) + ": ")
Console.Writeline(Alice(i))
Console.Writeline("Name:Bao-Qing")
Console.Write(Day(i) + ": ")
Console.Writeline(BaoQing(i))
Console.Writeline("Name:Chirag")
Console.Write(Day(i) + ": ")
Console.Writeline(Chirag(i))