钢管 长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
看看这个合适不？
