钢条切割

附件不是在这吗

excel控件的vba代码如下

Private Sub CommandButton1_Click()
n = ActiveSheet.UsedRange.Rows.Count – 1
Dim dp(), l(), p(), choose()
ReDim dp(1 To n), l(1 To n), p(1 To n), choose(1 To n)
For i = 1 To n
l(i) = Cells(i + 1, 1).Value
p(i) = Cells(i + 1, 2).Value
Next
For i = 1 To n
If p(i) > dp(l(i)) Then
dp(l(i)) = p(i)
choose(l(i)) = l(i)
End If
For j = l(i) + 1 To n
If dp(j – l(i)) + p(i) > dp(j) Then
dp(j) = dp(j – l(i)) + p(i)
choose(j) = l(i)
End If
Next
Next

i = 2
While Not IsEmpty(Cells(i, 3))
Cells(i, 3).Clear
i = i + 1
Wend

i = n
j = 2

While i > 0
Cells(j, 3).Value = choose(i)
j = j + 1
i = i – choose(i)
Wend
Cells(2, 4).Value = dp(n)
End Sub