Dim p As Integer, q As Integer
Dim i As Integer, j As Integer,n as integer
'有一根长度为546米的钢材料,要将它截取成两种规格a、b的长度分别为19米和28米的短料,
'每种至少1段,问分隔成a,b各多少段后,剩余的残料r最少?编程解决此计算问题.
For i = 1 To Int(546 / 19)
' For j = 2 To Int(546 / 28)
If (546 - 19 * i) Mod 28 < (546 - 19 * (i - 1)) Mod 28 Then
p = i: q = (546 - 19 * i) / 28
End If
n=546-19*p-28*q
'Next
Next
Print p, q,n '输出 27 1 5
再问： 不对啊，我运行了
再答： Private Sub Command1_Click() Dim p As Integer, q As Integer Dim i As Integer, j As Integer, n As Integer '有一根长度为546米的钢材料，要将它截取成两种规格a、b的长度分别为19米和28米的短料， '每种至少1段，问分隔成a，b各多少段后，剩余的残料r最少？编程解决此计算问题。 n = 100 For i = 1 To Int(546 / 19) m = (546 - 19 * i) Mod 28 If m
