Public Module Module1

    Dim Townlists As New List(Of Town)

    Class Town

        Private Tname As String

        Private Region As String

        Private population As Integer

        Public Sub New(ByVal N As String, ByVal R As String, ByVal P As Integer)

            Tname = N

            Region = R

            population = P

        End Sub

        Public Function getname()

            Return Tname

        End Function

        Public Function getregion()

            Return Region

        End Function

        Public Function getpopulation()

            Return population

        End Function

    End Class

    Sub main()

        Townlists.Add(New Town("suzhou", "JS", 1030039))

        Townlists.Add(New Town("wuxi", "JS", 2317298))

        Townlists.Add(New Town("Nanjing", "JS", 27836))

        menu()

    End Sub

    Sub view()

        For Each item In Townlists

            Console.WriteLine("Town name:" & item.getname)

            Console.WriteLine("Region:" & item.getregion)

            Console.WriteLine("population:" & item.getpopulation)

            Console.WriteLine("---------")

        Next

        Console.WriteLine("press anything to back to menu")

        Console.ReadLine()

        menu()

    End Sub

​

    Sub searchbyname()

    Console.WriteLine("Please give the town name you wanna search")

        Dim query As String = Console.ReadLine

        For Each item In Townlists

            If item.getname = query Then

                Console.WriteLine("Region: " & item.getregion)

                Console.WriteLine("Population: " & item.getpopulation)

                Console.WriteLine("----------")

                menu()

            End If

        Next

        Console.WriteLine("-------")

        Console.WriteLine("Nothing Found")

        menu()

    End Sub

​

    Sub addtown()

        console.writeline("Give the nanme of the town you want to add")

        Dim name as string = console.readline

        console.writeline("Give the region of the towb")

        Dim region as string = console.readline

console.writeline("Give the population of the town")

        Dim popu as integer = console.readline

        Townlist.Add(New Town(name,region,popu))

        console.writeline(name&" added successfully")

        console.writeline("press anything to back to menu")

        console.readline()

        menu()

    End Sub

​

    Sub searchbyregion()

        Console.WriteLine("Please give the region of the town")

        Dim query As String = Console.ReadLine

        Dim Tlist As new list(of Town)

        For Each item In Townlists

            If item.getregion = query Then

                Tlist.add(new(item.getname,item.getregion,item.getregion))

            End If

​

        Next

        If Tlist is Nothing then

            console.writeline("Nothing found")

            menu()

        else

            for each item in Tlist

                console.writeline(item.getname)

                console.writeline(item.getregion)

                console.writeline(item.getpopulation)

            Next

            console.writeline("press anything to back to menu")

            console.readline()

            menu()

        End if 

    End Sub

​

​

​

​

    Function searchbypopulation()

    End Function

    Function delet()

    End Function

​

    Sub choice(ByVal c As String)

        c = UCase(c)

        Select Case c

            Case "A"

                addtown()

            Case "N"

                searchbyname()

            Case "R"

                searchbyname()

            Case "P"

                searchbypopulation()

            Case "D"

                delet()

            Case "E"

                Environment.Exit(0)

            Case "V"

                view()

        End Select

    End Sub

    Sub menu()

        Console.WriteLine("V: view the towns")

        Console.WriteLine("A: add information for a town")

        Console.WriteLine("N: search a town by its name")

        Console.WriteLine("R: search a town by its region")

        Console.WriteLine("p: search a town by its population")

        Console.WriteLine("D: delet information of a town")

        Console.WriteLine("E: exit")

        Console.WriteLine(":")

Dim c as string = Console.ReadLine()

        choice(c)

    End Sub

End Module