[VB] Piccoli aiutini

[xChiccOx]

Non ho capito la ricerca dicotomica in VB, chi è il santo che perde la testa a spiegarmela?


Private Sub cmd_cerca_Click()
Dim trovato As Boolean
i = 1
Do
If vetC(i) = Val(txt_trova.Text) Then
trovato = True
Else
i = i + 1
End If
Loop Until i > dimensione Or trovato = True
If trovato = True Then
txt_posto.Text = CStr(i)
Else
txt_posto.Text = "Non Trovato"
End If
End Sub

[matpez]

Bhe ma questa è una ricerca sequenziale, mica è quella dicotomica...