问个编程的问题.有1根长度为30米的钢材料,要将他截取成两种规格a.b.a.b的长度分别为3.8米和4米的短料.

问题描述：

问个编程的问题.有1根长度为30米的钢材料,要将他截取成两种规格a.b.a.b的长度分别为3.8米和4米的短料.
有1根长度为30米的钢材料,要将他截取成两种规格a.b.
a.b的长度分别为3.8米和4米的短料.（可以全是一种,）
问分割成a.b各多少段后,剩余的材料r最少.
程序运行后,单击命令按钮,就能输出结果
ab是经常要变化的,有时候是2米,有时候是3.5米,有时候还会变种abc三种规格
上面的只是个比喻
请问用什么来编这段程序简单又好用啊.我完全是小白.求详细方法.在此谢过了

1个回答分类：综合 2014-10-25

问题解答：

我来补答

Private Sub Command1_Click()
Dim Anum%,Bnum%,R%,tmp%,a%,b%'定义一些变量
tmp = 321’初始化中间数据
For Anum = 1 To Int(321 / 17)'开始循环,从A=1开始比较
Bnum = Int((321 - Anum * 17) / 27) '求B的个数
R = (321 - Anum * 17) Mod 27 '求剩下材料的长度
If R

展开全文阅读

上一页：空间几何的直观图

下一页：第2题，谢谢，详细解答