Foro de elhacker.net

Hola y espero que todos estén bien

Yo como toda España encuevado para frenar el Mega Bicho  >:D

Y claro frente al pc ahora que puedo jejej

Bueno tengo este código que me combina sin error,ni duplicados etc etc, pero me da tres números y necesito aumentar los números de tres a cuatro ,cinco y sucesivamente con solo cambiar la condición ,no se implementar lo de los números  o si se debe hacer un " sele case " o en su defecto por código cada ves que quiera cambiar  :silbar:


ahora me entrega los resultados de esta forma :

tengo estos números base  {2, 6, 10, 11, 17, 20, 24, 34}  ejecuto y me da :
(solo las 3 primeras)
02.06.10
02.06.11
02.06.20
02.06.24

bien necesito que me forme resultados pero de cuatro números cinco números etc etc donde por supuesto sean números únicos o resultados

Ejemplo:

Bien:
01.05.16.25
01.05.16.26
01.05.16.30

Mal:

01.05.16.16
01.05.05.26
01.01.16.30

Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
        Dim intCol As IEnumerable(Of Integer) = {2, 6, 10, 11, 17, 20, 24, 34}
        Dim pairsCol As IEnumerable(Of String) =
            From value1 As Integer In intCol
            From value2 As Integer In intCol
            Select String.Join(Environment.NewLine, (
                               From value3 As Integer In intCol
                               Where (value1 <> value2) AndAlso
                                     (value1 <> value3) AndAlso
                                     (value2 <> value3) AndAlso
                                     (value3 > value2) AndAlso
                                     (value2 > value1)
                               Select String.Format("{0:00}, {1:00}, {2:00}",
                                                    value1, value2, value3)))
 
 
        Dim ClearRep As New List(Of String)
 
        For Each pairs As String In pairsCol
            For Each line As String In pairs.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
                ListBox4.Items.Add(line)
            Next line
        Next pairs
 
        MessageBox.Show(ListBox1.Items.Count)
 
 
 
    End Sub

Saludos
LUIS
QUÉDATE EN CASA ENTRE TODOS PODREMOS