（难）问一个问题：有一根长为321米的钢材料。。。

有一根长度为321米的钢材料，要将它截取成两钟规格的短材料，规格A、B的长度分别为17米和27米，每种至少一段，问分成A、B各多少段后，剩余的残料R最少

这个是我们VB课本上的题目，是一模一样的。
首先估算：10根27米，3根17米，剩下零 。刚好合适

如果还不信。编个程序就行了，代码如下：
Private Sub Command1_Click()
Dim a, b, r, t, at, bt As Integer
r = 321
For a = 1 To 18 Step 1
For b = 1 To 11 Step 1
t = 321 - ((a * 17) + (b * 27))
If t < r And t >= 0 Then
r = t
at = a
bt = b
End If
Next
Next
Text1.Text = "a=" + Str(at) + "b=" + Str(bt) + "r=" + Str®
End Sub
最终结果是a= 3 b= 10 r= 0

27米的 10根 17米的 3根 一共321米,没有剩的

怎么有人复制别人的程序呢 这样做是不对的

27米的 10根 17米的 3根 R=0米

据事实考证为： Private Sub Command1_Click() Dim a, b, r, t, at, bt As Integer r = 321 For a = 1 To 18 Step 1 For b = 1 To 11 Step 1 t = 321 - ((a * 17) + (b * 27)) If t < r And t >= 0 Then r = t at = a bt = b End If Next Next Text1.Text = "a=" + Str(at) + "b=" + Str(bt) + "r=" + Str® End Sub 最终结果是a= 3 b= 10 r= 0

你好！ 阿瑟大瓦二二 参考资料：阿瑟大瓦 仅代表个人观点，不喜勿喷，谢谢。