vb编程,步骤详解有一根长度为546米的钢材料,要将它截取成两种规格a、b的长度分别为19米和28米的短料,每种至少1段,问分隔成a,b各多少段后,剩余的残料r最少?编程解决此计算问题.

vb编程,步骤详解有一根长度为546米的钢材料,要将它截取成两种规格a、b的长度分别为19米和28米的短料,每种至少1段,问分隔成a,b各多少段后,剩余的残料r最少?编程解决此计算问题.
vb编程,步骤详解
有一根长度为546米的钢材料,要将它截取成两种规格a、b的长度分别为19米和28米的短料,每种至少1段,问分隔成a,b各多少段后,剩余的残料r最少?编程解决此计算问题.

vb编程,步骤详解有一根长度为546米的钢材料,要将它截取成两种规格a、b的长度分别为19米和28米的短料,每种至少1段,问分隔成a,b各多少段后,剩余的残料r最少?编程解决此计算问题.
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