Visual Basic.NET - Como se hace una busqueda binaria en VB.NET ??

Hola nuevamente , quiero saber con un ejemplo como se hace para buscar un elemento en un Arreglo Unidimencional . con la funcion por defecto BinaySearch ( Arreglo, Valor ), ya que intente con un Ej. y se me desborda el arreglo cuando se ejecuta dicha funcion. muestro ejemplo :

odule Module1

Private Alumnos() As String = {" Zabaleta Alfredo ", "Morinico Pablo ", "Mendoza Angelica", " Dirie Juliana ", "Mendoza Frank ", "Alfonzo Javier"}

Sub Main()

Dim Resultado As String
Dim Posicion As Integer

Console.WriteLine("Ingrese el Alumno para la Busqueda : ")
Console.WriteLine()
Resultado = Console.ReadLine()

' Captura si no encuentra Alumno

Try
Posicion = Array.BinarySearch(Alumnos, Resultado)

' Verificacion
Console.WriteLine(" resultado de Posicion BinarySearch : {0}", Posicion)

Console.WriteLine()
Console.WriteLine(" Resultado de la Busqueda : {0} ", Alumnos(Posicion))

Console.WriteLine()
Catch e As IndexOutOfRangeException

Console.WriteLine(" No se encontro el Alumno")

Console.WriteLine()

End Try

Si busco el primero Zabaleta el Indice es - 7 ?¿ );

Labusqueda quequiero hacer en mis Aplicaciones es binaria No lineal !!! Saludos

antes del binarysearch pon ARRAY.SORT(Alumnos) ...creo que el binary search hace busquedas en un array ordenado

Ya Probe y no funciona !! Saludos

Que si funciona hombre!

Imports System
Imports System.Collections.Generic
Module Module1
Sub Main()
Dim alumnos() As String = { _
"Zabaleta Alfredo", _
"Morinico Pablo", _
"Mendoza Angelica", _
"Dirie Juliana", _
"Mendoza Frank", _
"Alfonso Javier"}

Console.WriteLine()
For Each alumno As String In alumnos
Console.WriteLine(alumno)
Next

Console.WriteLine(vbLf & "Sort")
Array.Sort(alumnos)

Console.WriteLine()
For Each alumno As String In alumnos
Console.WriteLine(alumno)
Next

Dim index As Integer
Dim resultado As String
Console.WriteLine("Ingrese el Alumno para la Busqueda : ")
Console.WriteLine()
resultado = Console.ReadLine()

' Captura si no encuentra Alumno
Try
Console.WriteLine(vbLf & "BinarySearch :'" & resultado & "'")
index = Array.BinarySearch(alumnos, resultado, New System.Collections.CaseInsensitiveComparer)
' Verificacion
Console.WriteLine()
Console.WriteLine("Resultado de Posicion BinarySearch : {0}", index)
Console.WriteLine()
Console.WriteLine(" Resultado de la Busqueda : {0} ", alumnos(index))
Console.WriteLine()
Catch ex As IndexOutOfRangeException
Console.WriteLine(" No se encontro el Alumno")
Console.WriteLine()
End Try
End Sub

End Module

Hola Amigo gracias por el tiempo que medicas.. lo copi tal cual esta y no anda se me desborda el vector .. el resultado de la busqueda es -7. po sierto que es New System.Collections.CaseInsensitiveComparer.

PD probaste si anda ??? Saludos

Claro que lo probe y funciona sin ningun problema. y el System.Collections.CaseInsensitiveComparer es para que ignore mayusculas en la cadena de busqueda.

Pues mi amigo me doy ... ha de ser uno de esos infames errores de tipo EBSAC.

En fin, ojala encuentres la solucion ...

Suerte

Gracias por la Ayuda .. Saludos