imports System

Module Module1

​

    Dim bh1(10, 7) As String

    Dim bhh(10, 14) As String

    Dim book As String

    Dim cst1 As Integer = 20

    Dim csth As Integer = 12

    Dim tm As Integer = 0

    Dim h As String

    Dim h1 As String = "1"

    Dim hh As String = "0"

    Dim h1t As Integer = 7

    Dim hht As Integer = 14

    Dim t As Boolean = 0

    Dim i As Integer = 1

    Dim n As Decimal = 0.5

    Dim p As Integer = 1

    Dim j As Decimal = 6

​

​

    Sub cal(slt)

        Do

            Console.WriteLine("please input hiring hours 1 or 0(half)")

            h = Console.ReadLine()

            If h = h1 Then

                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

                    tm = tm + cst1

                    j = j - 1

                    p = p + 1

                ElseIf bh1(slt, p) = "0" Then

                    j = j - 1

                    p = p + 1

                Else

                    Console.WriteLine("wrong input")

                End If

​

            ElseIf h = hh Then

​

                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

                    tm = tm + csth

                    j = j - 0.5

                    p = p + 1

                ElseIf bhh(slt, p) = "0" Then

                    j = j - 0.5

                    p = p + 1

                Else

                    Console.WriteLine("wrong input")

                End If

            End If

        Loop Until j = -1

        p = 0

    End Sub

    Sub Main()

        Do

            Console.WriteLine("please input boat number (0~9)")

            Console.WriteLine("please input 's' to stop")

            book = Console.ReadLine()

​

            Select Case book

                Case "0"

                    Call cal(0)

                Case "1"

                    Call cal(1)

                Case "2"

                    Call cal(2)

                Case "3"

                    Call cal(3)

                Case "4"

                    Call cal(4)

                Case "5"

                    Call cal(5)

                Case "6"

                    Call cal(6)

                Case "7"

                    Call cal(7)

                Case "8"

                    Call cal(8)

                Case "9"

                    Call cal(9)

                Case "s"

                    Exit Do

                Case Else

                    Console.WriteLine("wrong input")

            End Select

        Loop

        Console.WriteLine("the total income is {0}", tm)

        Console.ReadLine()

​

    End Sub

​

End Module

​