Buskar # menor en Vector

"LoLiTa"
28 de Diciembre del 2004
Por favor nesecito hacer la buskeda del numero menor y mayor en un vector dinamico ........ es urgente .. se los agradesere muxo chau besos ((( muach )))

mvallejos
28 de Diciembre del 2004
Supongo que este vector dinámico no está ordenado de modo que solo se me ocurre hacer una busqueda secuencial.
Ejemplo

Dim i as integer
Dim Menor as Long
Dim Mayor as Long

' Inicializar las variables controladoras
Menor = Vector(0)
Mayor = Vector(0)
For i=0 to Ubound(Vector)
If menor > Vector(i) Then
' Si Menor es mayor que el elemento, se
' cambia el menor
menor = Vector(i)
end if
If mayor < Vector(i) Then
' Si Mayor es menor que el elemento, se
' cambia el mayor
mayor = Vector(i)
end if
Next i

espero que sea esto lo que buscabas

Saludos