Question

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

Answer 1

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