查人人中国名人网企鹅fm在线收听冤鬼路:（难）问一个问题：有一根长为321米的钢材料。。。
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/04 12:32:14
这个是我们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
据事实考证为：
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根 R=0米
怎么有人复制别人的程序呢
这样做是不对的
27米的 10根
17米的 3根
一共321米,没有剩的
27米的 10根
17米的 3根
一共321米。。。R=0米。。。
没错吧 一点剩的都没有啊 不过你不要说说割的时候还有磨损啊