vb作业，谢谢啦哥~~~~

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

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

Dim i, j, r, m, n, y, a, b, xx r = 17 y = 322 a = 27 b = 17 For i = 0 To Int(y / a) For j = 0 To Int(y / b) If i * a + j * b > y Then Exit For If r > y - i * a - j * b Then r = y - i * a - j * b m = i n = j End If Next j Next i xx = "最小余料量为" & r & Chr(13) & "此时两规格的用量分别为:"+Chr(13) xx = xx + " 规格为" & a & "的用量为" & m & "段" + Chr(13) xx = xx + " 规格为" & b & "的用量为" & n & "段" MsgBox (xx)

以上为作业程序

其中的y、a、b的值为程序的初始化，也可以用程序运行时输入，或在作业界面中取得

vb作业，谢谢啦哥~~~~

不 要 迷 恋 哥，哥 只 是 个 传 说……