最小残余材料长多少米

钢管       长321米       截取17米个25米的钢管N条       N不定  
   
  求       最小残余材料长多少米?  
   
  谢谢各位了~~~~~~~~~~~~~~~~~~~~~~~~~` 问题点数：80、回复次数：1Top

 

 

Private   Sub   Command1_Click()  
      Dim   last   As   Integer  
      Dim   min   As   Integer:   min   =   321  
      Dim   x   As   Integer  
      Dim   y   As   Integer  
      Dim   mid   As   Integer  
      Dim   x1   As   Integer  
      Dim   y1   As   Integer  
      For   x   =   0   To   321   \   17  
            For   y   =   0   To   321   \   25  
              last   =   321   -   17   *   x   -   25   *   y  
              If   last   >   0   Then   mid   =   last  
              If   min   >   mid   Then   min   =   mid:   x1   =   x:   y1   =   y  
            Next   y  
      Next   x  
      Print   min  
      Print   x1,   y1  
  '     For   x   =   0   To   321   \   17  
  '           For   y   =   0   To   321   \   25  
  '             If   17   *   x   +   25   *   y   +   1   =   321   Then   Print   x,   y  
  '           Next   y  
  '     Next   x  
  '  
  End   Sub  
  看看这个合适不？