有一根长度为321m的钢材料，要将它截取成两种规格的短料，规格a、b的长度分别为17 m和27 m，问分隔成a、b各多少段后，剩余的残料r最少？

vb作业，谢谢

VB代码：

Private Sub Command5_Click()
Dim i As Integer, r As Integer, a As Integer, b As Integer, min As Integer
min = 17
For i = 0 To 11
r = (321 - 27 * i) Mod 17
If r > 0 And r < min Then min = r: a = i: b = (321 - 27 * i) / 17
Next i
Print min, a, b

End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息