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

'****************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)