' Project ArraySearch

' Input a name and search an array to see if name exists in it.

Imports System.Console
Public Module Module1

    Public Sub Main()

        ' Create array list and add names.
        Dim a() As String = {"Bob", "Tom", "Susan", _
            "Janet", "Mary", "Scott"}

        Dim name As String
        Dim i As Integer

        ' Search for name.
        Write("Enter name: ")
        name = ReadLine()
        For i = 0 To a.GetUpperBound(0) - 1
            If name = a(i) Then
                WriteLine("Index of name " & name & " is " & i & ".")
                ReadLine()
                Exit Sub
            End If
        Next
        WriteLine("Name not found, index is " & i & ".")
        ReadLine()
    End Sub

End Module