¿Te refieres a descartar números que séan mayores de 99?

@Luis456, te sugiero que aprendas a usar LINQ ...será tu mejor aliado (por su sencillez, no por rendimiento) :

Dim Max As Integer = 99
 
Dim arr1 As Integer() = {100, 2, 3}
Dim arr2 As Integer() = {4, 500, 6}
Dim arr3 As Integer() = {7, 8, 999}
 
Dim Result As Integer() = 
(
  From Value As Integer In (arr1.Concat(arr2).Concat(arr3))
  Where Value <= Max
).ToArray
 
MsgBox(String.Join(", ", Result)) ' Result = {2, 3, 4, 6, 7, 8}
 

PD: En otro post te dije una url donde descargar 101 ejemplos de LINQ, si te lo estudiases un poco tendrías ejemplos como los que yo te pongo para un buen rato xD.

Saludos

Me imagino que para poder usarlo deberia de crear otro array para poder usar estas dos funciones ?



luis

Hombre, error típico no es, lo que pasa es que tienes la mala costumbre de declarar variables innecesarias por todas partes del código, y al final tienes un lio.

En lugar de declarar varios arrays:

Dim result1 as Integer()  = {1, 2, 3}
Dim result2 as Integer()  = {4, 5, 6}
Dim result2 as Integer() = {7, 8, 9}

Intenta declarar sólamente 1 array, y reemplazarlo/actualízarlo cuando sea necesario:

Public Result as Integer() = {1, 2, 3}

...En otra parte del código:

Me.Result = Me.Result.Concat({4, 5, 6}).Concat({7, 8, 9}).ToArray ' Por ejemplo.

De todas formas si prefieres seguir como hasta ahora, pues declara una nueva variable con otro nombre distinto y así no tendrás ese "típico error", de verdad no te lo tomes a mal pero no le veo ningún sentido a la duda que has posteado.

Saludos!

No me ha quedado claro el poblema, en la variable resut7 declaras el array numérico, y en la otra variable (Result) ya "filtras" con LINQ, ¿Cual es el problema?.

PD: Lo importante si que lo entendí, no es necesario 4 o 5 variables para llevar a cabo una operación de ese tipo, símplemente odio ver ese tipo de cosas.

Saludos!

Creo que esto es lo que intentas hacer...

    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