Otra duda con combinatorias de numeros :(

[luis456]

Let? (output As let ) , bueno , correccion :

Código (vbnet) [Seleccionar] Expandir

  Dim input As Integer() = {1, 2, 3, 5, 7}

        Dim output As New List(Of Integer)

        For i As Integer = 0 To input.Length - 1
            For j As Integer = 0 To input.Length - 1
                If input(i) <> input(j) AndAlso input(i) < 5 Then
                    Dim result As Integer = (input(i) * 10 + input(j))
                    output.Add(result)
                End If
            Next j
        Next i

fUNCIONA BIEN

Código (vbnet) [Seleccionar] Expandir

'****************combinaciones FUNCIONA DE p**a MADRE
    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        Dim input As Integer() = {1, 2, 3, 5, 7}

        Dim output As New List(Of Integer)

        For i As Integer = 0 To input.Length - 1
            For j As Integer = 0 To input.Length - 1
                If input(i) <> input(j) AndAlso input(i) < 5 Then
                    Dim result As Integer = (input(i) * 10 + input(j))
                    output.Add(result)
                End If
            Next j
        Next i

        Me.ListBox8.Items.AddRange(output.Cast(Of Object).ToArray)


Gracias a todos 

luis