•Dim
nom()
As
String = {"", "AL", "BOB",
"CARL", "DON","ERIC", _
• "FRED", "GREG",
"HERB", "IRA", "JACK"}
•
•Private
Sub btnSearch_Click(...) Handles btnSearch.Click
• Dim name, name2Find As
String
• Dim n As Integer 'Subscript of
the array
• name2Find = txtName.Text.ToUpper
• Do
• n += 1 'Add 1 to n
• Loop Until (nom(n) >=
name2Find) Or (n = 10)
• If nom(n) = name2Find Then
• txtResult.Text = "Found."
• Else
• txtResult.Text = "Not
found."
• End If
•End
Sub