Выполнение оптимизации на VB6.0 по раскрою

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

Здравствуйте! Прошу помощи

. Научите, пожалуйста, бегло решать оптимизационные задачи на раскрой материалов с помощью Visual Basic 6.0 Условия. На рынке имеется неограниченное количество досок, длиной 350 см. Нам нужно подсчитать оптимальную закупочную партию для выполнения заказа, чтобы отходы, оставшиеся обрезки — были минимальные. По принципу одного дня: купили, распилили и продали. Нет склада, где хранить обрезки — поэтому все остатки вывозятся на свалку, как мусор. По заказу клиента нужны следующие заготовки: 1) длина заготовки № 1 = 185 см, количество — 127 штук; 2) длина заготовки № 2 = 165 см, количество — 178 штук; 3) длина заготовки № 3 = 143 см, количество — 335 штук; 4) длина заготовки № 4 = 87 см, количество — 526 штуки; 5) длина заготовки № 5 = 26 см, количество — 958 штуки.

Решение задачи: «Выполнение оптимизации на VB6.0 по раскрою»

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

                            Потребуется 498 кусков
 
 
185  165  (100.00%) 'строки 4-130 или (130 - 3 = 127 раз)
87  87  87  87  (99.43%) 'строки 131-261 или (261 - 130 = 131 раз)
165  26  26  26  26  26  26  26  (99.14%) 'строки 262-312 или (312 - 261 = 51 раз)
87  26  26  26  26  26  26  26  26  26  26  (99.14%) 'строки 313-314 или (314 - 312 = 2 раза)
143  143  26  26  (96.57%) 'строки 315-481 или (481 - 314 = 167 раз)
26  26  26  26  26  26  26  26  26  26  26  26  26  (96.57%) 'строки 382-500 или (500 - 481 = 19 раз)
143  (40.86%) 'строка 501 или (501 - 500 = 1 раз)
 
Общий остаток - 2860 из 174300 (1.64%) 'по тексту это последняя строка 503
                        