' PhoneBook1 Project

' Enter a name and output the phone number.

Imports System.Console
Public Module Module1

    Public Sub Main()
        Dim i As Integer
        Dim nameToFind As String

        ' Create array of names.
        Dim names() As String = {"Mickey Mouse", "Minnie Mouse", _
            "Donald Duck", "Sylvester Cat", "Dewey Duck", _
            "Hewey Duck", "Louie Duck", "Yosemite Sam", _
            "Tweety Bird", "Snaggle Puss"}

        ' Create array of phone numbers.
        Dim phoneNumbers() As String = {"323/736-9278", _
            "323/874-2383", "323/874-2383", "323/763-3837", _
            "323/982-9883", "323/803-8473", "323/763-9388", _
            "323/763-9381", "323/763-9385", "323/653-9387"}

        ' Search array to find name.
        Write("Enter Name: ")
        nameToFind = ReadLine()
        For i = 0 To names.GetUpperBound(0) - 1
            If nameToFind = names(i) Then
                WriteLine("The phone number is " & phoneNumbers(i))
                ReadLine()
                Exit Sub
            End If
        Next

        ' Print message stating name not found.
        WriteLine("Name not found.")
        ReadLine()
    End Sub

End Module