Генерация возможных сочетаний, удовлетворяющих условию 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
Листинг программы
  1. rw = 1
  2. For i1 = 0 To 10
  3.     For i2 = 0 To 10
  4.         For i3 = 0 To 10
  5.             For i4 = 0 To 10
  6.                 For i5 = 0 To 10
  7.                     If i1 + i2 + i3 + i4 + i5 = 10 Then
  8.                         Cells(rw, 1).Resize(1, 5) = Array(i1, i2, i3, i4, i5)
  9.                         rw = rw + 1
  10.                     End If
  11.                 Next
  12.             Next
  13.         Next
  14.     Next
  15. Next

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 3.6 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы