Dim bhh(10, 14) As String
Console.WriteLine("please input hiring hours 1 or 0(half)")
Console.WriteLine("booking slot {0}, type 1 to book 0 to not book", p)
bh1(slt, p) = Console.ReadLine()
If bh1(slt, p) = "1" Then
ElseIf bh1(slt, p) = "0" Then
Console.WriteLine("wrong input")
Console.WriteLine("booking slot {0}, type 1 to book 0 to not book", p)
bhh(slt, p) = Console.ReadLine()
If bhh(slt, p) = "1" Then
ElseIf bhh(slt, p) = "0" Then
Console.WriteLine("wrong input")
Console.WriteLine("please input boat number (0~9)")
Console.WriteLine("please input 's' to stop")
book = Console.ReadLine()
Console.WriteLine("wrong input")
Console.WriteLine("the total income is {0}", tm)