Estoy haciendo un trabajo práctico sobre métodos de ordenamiento y en un método de seleccion directa me aparece este error, pero no logro ver qué está mal. Comparé con uno que si funciona y en teoría es igual al mio. El error me lo marca en el IF.
Dim candidato As Long
Dim menor As Long
Dim i As Long
Dim aux As Long
Dim tInicio As Long, tFin As Long
v = o.Clone
Dim Limite = v.GetUpperBound(0)
tInicio = DateTime.Now.Ticks
candidato = 0
While candidato < Limite
cCondicionales += 1
menor = candidato
cAsignaciones += 1
i = candidato + 1
While i <= Limite
cCondicionales += 1
**If v(i) < v(menor) Then**
cAsignaciones += 1
menor = -1
End If
i += 1
End While
cAsignaciones += 3
aux = v(candidato)
v(candidato) = v(menor)
v(menor) = aux
candidato += 1
End While
tFin = DateTime.Now.Ticks
TiempoTranscurrido = (tFin - tInicio) / 10000000