一个VB题目 帮忙做一下有一根长度为321米的钢材,要将它截成a、b两种规格的长度分别为17米和27米的短料,每种至少1段,问a,b两种短料各分隔成多少段后,剩余的残料r最少? 要给出程序 （r应该为0）
2019-04-13
一个VB题目 帮忙做一下
有一根长度为321米的钢材,要将它截成a、b两种规格的长度分别为17米和27米的短料,每种至少1段,问a,b两种短料各分隔成多少段后,剩余的残料r最少?
要给出程序 （r应该为0）
优质解答
Private Sub Form_Click()
i = 0
Print "i","j","ÓàÁÏ"
Do
i = i + 1
j = Int((321 - 17 * i) / 27)
Print i,j,321 - 17 * i - 27 * j
Loop Until j < 2
End Sub
Private Sub Form_Click()
i = 0
Print "i","j","ÓàÁÏ"
Do
i = i + 1
j = Int((321 - 17 * i) / 27)
Print i,j,321 - 17 * i - 27 * j
Loop Until j < 2
End Sub