xChiccOx
26-10-2004, 10:21
Non ho capito la ricerca dicotomica in VB, chi è il santo che perde la testa a spiegarmela? :D
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
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