Condicionar arrays

[luis456]

Creo que esto es lo que intentas hacer...

Código (vbnet) [Seleccionar] Expandir

   ReadOnly MAX As Integer = 99

   Public Sub Test() Handles MyBase.Shown

       Dim result1 As Integer() = {1, 100, 2, 3, 4}
       Dim result2 As Integer() = {5, 500, 6, 6, 4}
       Dim result3 As Integer() = {7, 8, 9, 10, 99}

       ' Elimino duplicados al mismo tiempo que selecciono los números inferiores a MAX.
       Dim Result As IEnumerable(Of Integer) =
           (
               From Value As Integer
               In (result1.Concat(result2).Concat(result3)).Distinct
               Where Value <= MAX
           )

       ListBox1.Items.AddRange(Result.Cast(Of Object).ToArray)

   End Sub

Saludos

     

Perfecto Eleкtro

justo y preciso

ya sabes cualquier problema con el coche me avisas

Luis