Imports System

Imports System.Collections.Generic

​

Public Module Module1

    Public Sub Main()

        dim produtos as new List(of Produto)

        Dim combinacoes As New List(Of String)

        For x as integer = 0 to 10 

            For y as integer = 0 to 3

                produtos.Add(new Produto("Produto" & x, y))

            Next

        Next

​

        For x As Integer = 0 To produtos.Count - 1

'Se você quiser que exista também a combinacao de um produto com ele próprio, é só retirar o "+1" do loop abaixo. 

'Ou seja, em vez de ficar "x + 1", vai ficar apenas o "x".

            For y As Integer = x + 1 To produtos.Count - 1 

                combinacoes.Add(produtos(x).Nome & "(" & produtos(x).CorDoProduto.ToString() & ")" & " + " & produtos(y).Nome & "(" & produtos(y).CorDoProduto.ToString() & ")")

            Next

        Next

​

         For Each x As String In combinacoes

            Console.WriteLine(x)        

        Next

​

    End Sub

    public Enum Cor

        Branco = 0 

        Preto =1 

        Azul = 2

        verde = 3

    End enum

    Public Class Produto

​

        public Sub new(nome as string, cor as Cor)  

            _Nome = nome

            _CorDoProduto = cor

        end sub

        Property Nome as String

        Property CorDoProduto as Cor

    End class

End Module