Cita de: luis456 en 19 Enero 2014, 09:44 AMSi Elektro si la función ( pondré corto los números) me da" 2, 4 ,6,8, 9 " y el rango es de 0 al 10 entonces me faltaría el " 1,3, 5, 7 " ademas de mostrar " 2, 4 ,6,8, 9 " también quiero mostrar " 1,3, 5, 7 " pero en otro listbox
Eso es algo facil de hacer ya sea usando un FOR o usando LINQ, pero como no encontré nada en Google para mostrarte diréctamente un ejemplo parecido al problema que describiste, yo mismo hice una función de uso genérico, aquí la tienes:
Cita de: http://foro.elhacker.net/net/libreria_de_snippets_compartan_aqui_sus_snippets-t378770.0.html;msg1913189#msg1913189Código (vbnet) [Seleccionar]
' Get Numbers Not In Range.
' ( By Elektro )
'
' Usage Examples:
'
' MsgBox(String.Join(", ", GetNumbersNotInRange({1, 3, 5, 7, 9}, 0, 10).ToArray)) ' Result: 0, 2, 4, 6, 8, 10
'
''' <summary>
''' Given a numeric collection, gets all the numbers which are not in a specified range.
''' </summary>
''' <param name="NumbersInRange">Indicates the numbers collection which are in range.</param>
''' <param name="MinRange">Indicates the minimum range.</param>
''' <param name="MaxRange">Indicates the maximum range.</param>
''' <returns>System.Collections.Generic.IEnumerable(Of System.Int32).</returns>
Private Function GetNumbersNotInRange(ByVal NumbersInRange As IEnumerable(Of Integer),
ByVal MinRange As Integer,
ByVal MaxRange As Integer) As IEnumerable(Of Integer)
Return From Number As Integer
In Enumerable.Range(MinRange, MaxRange + 1)
Where Not NumbersInRange.Contains(Number)
End Function
Ejemplo de uso:
Código (vbnet) [Seleccionar]
Private Sub Test(sender As Object, e As EventArgs) Handles MyBase.Shown
Dim NumbersInRange As Integer() = {2, 4, 6, 8, 9}
Dim NumbersNotInRange As Integer() = GetNumbersNotInRange(NumbersInRange, 0, 10).ToArray
MsgBox(String.Join(", ", NumbersNotInRange)) ' Result: 0, 1, 3, 5, 7, 10
End SubSaludos