Bueno como pasa en programacion jejej el que entiende su chapuza no se sabe explicar

tengo tres arrays con resultados independientes de la suma pero cuando quiero unirlos en el lisbot

primero repetían ya lo solucione con :


ahora quiero que estos resultados ya filtrados en resut7 pasen por otro filtro que seria el del rango 99



Luis

Bueno explico un poco mejor

como hago para unir estas dos funciones en una sola variable o array he probado y probado y no logro hacerlo, ya que me da el tipico error de que ya esta declarada
el array " Results7s "




Luis

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



luis

Si elektro y te agradezco la ayuda ya me llamo la atencion LINQ Y me estoy bajando todo cuanto pueda

Luis

Posdata: si me baje todo lo que me pusiste

Se puede condicionar que los resultados de este array pasen de x numeros ? ya lo tengo resuelto para los texboxes pero ahora quiero trabajar directamente con los array me parece que seria mas fácil para después mostrar los resultados

Dim maximum As Short = 99
 
Dim Results7s As Integer() = Result1.Concat(Result2).Distinct.ToArray

Luis

Perfecto funciona 

Gracias a todos


Luis

Bueno estaba haciendo esta chapuza ( Bisual +net o lo que sea jejej) pero pensaba que habria algo mas directo,la idea es que los resulatdos de result1 y result2 unirlos para eliminar repetidos


Luis

Bueno eso mismo

tengo dos Arrays  " result1 y result2 " quiero unir estos dos array en un tercer array

"result3 " ya probé concatenando pero me pierdo jejej


Luis

Gracias Elektro

Luis

Alguien me podria explicar como funciona este codigo de combinatoria quiero aprender pero rompiendo yo las cosas o sea probando; bien este codigo forma combinaciones posibles y estoy tratando que me haga y muestre combinaciones de solo cuatro , no importa el largo del string

Public Class Form1
 
 
    Dim Caracteres(1000) As String
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i, j, k As Integer
        Dim Combinacion As String
        Dim Existe As Boolean
 
        For i = 0 To TextBox1.Text.Length - 1
            Caracteres(i) = TextBox1.Text.Substring(i, 1)
        Next
 
        For i = 0 To TextBox1.Text.Length - 1
            For j = 0 To TextBox1.Text.Length - 1
 
                Existe = False
 
                Combinacion = TextBox1.Text.Remove(i, 1)
                Combinacion = Combinacion.Insert(i, Caracteres(j))
 
                Combinacion = Combinacion.Remove(j, 1)
                Combinacion = Combinacion.Insert(j, Caracteres(i))
 
                For k = 0 To ListBox1.Items.Count - 1
                    If Combinacion = ListBox1.Items(k) Then Existe = True
                Next
 
                If Existe = False Then ListBox1.Items.Add(Combinacion)
 
            Next
        Next
    End Sub
End Class