Генерация возможных сочетаний, удовлетворяющих условию VBA

Формулировка задачи:

Доброго времени суток, в процессе рабочего процесса задался вопросом, каким образом сгенерировать всевозможные комбинации значений, удовлетворяющих условию. Имеется набор из 5 элементов, как найти все комбинации при условии, что сумма элементов равна 10. Например: 10 0 0 0 0 9 1 0 0 0 8 2 0 0 0 8 1 1 0 0 7 3 0 0 0 Заранее спасибо.

Решение задачи: «Генерация возможных сочетаний, удовлетворяющих условию VBA»

textual
                            Листинг программы 
                        

                            rw = 1
For i1 = 0 To 10
    For i2 = 0 To 10
        For i3 = 0 To 10
            For i4 = 0 To 10
                For i5 = 0 To 10
                    If i1 + i2 + i3 + i4 + i5 = 10 Then
                        Cells(rw, 1).Resize(1, 5) = Array(i1, i2, i3, i4, i5)
                        rw = rw + 1
                    End If
                Next
            Next
        Next
    Next
Next
                        