Login

[Dancari]

Hello,
All I am also taking a Visual Basic class and I am in need of a new pair of eyes are mine are bleeding at the moment with all the finals coming. I have my entire program written which is susposed to search my arrays using the binary search but this is mt second project and I have been at it since yesterday and I can no longer focus. If you can offer any coding help ot flaws i have made please do.
Thanks Again,
Dancari

Option strict on
written in English

Module Module1


Sub Main()
Dim strNames() As String = {"Boba", "Darth", "Han", "Luke", "Princess"}
Dim strPhone() As String = {"111-111-1111", "222-222-2222", "333-333- 3333", "444-444-4444", "555-555-5555"}
Dim strSearchName As String = ""
Dim intIndex As Integer = 0
Dim strAgain As String = "Y"
Dim intBinarySearch As Integer = 0

While strAgain = "Y"
Console.Write("Enter a name to search for. ")
strSearchName = CStr(Console.Read())

intBinarySearch = (strNames.GetUpperBound(0), strSearchName)
If intIndex <> -1 Then
Console.Write("The phone number is " & strPhone(intIndex))
Else
Console.Write(strSearchName & " was not found. ")

End If
Console.WriteLine("Do you want to search again? Y=Yes, N=No ")
strAgain = CStr(Console.Read())

End While



intBinarySearch = (strNames.getupperbound(0), strPhone())

Dim intFirst As Integer = 0
Dim intLast As Integer = strNames.getUpperBound(0) - 1
Dim intPosition As Integer = -1
Dim strBooleanFound = False
Dim intMiddle As Integer = 0


While <> strBooleanFound and intFirst <= intLast
intMiddle = intFirst + intLast / 2
If strNames.GetUpperBound(0) = intMiddle Then
strBooleanFound = True
intPosition = intMiddle

Else
If strNames.GetUpperBound(0) > intMiddle Then
intLast = intMiddle - 1

Else
intFirst = intMiddle + 1

End If


End If

End While

End Sub
End Module