vb语言 帮做程序 有1根长度为321米的钢材料,要将他截取成两种规格a.b.我一点也不会,麻烦些的完整些有1根长度为321米的钢材料,要将他截取成两种规格a.b.a.b的长度分别为17米和27米的短料,每种
来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/22 10:05:30
vb语言 帮做程序 有1根长度为321米的钢材料,要将他截取成两种规格a.b.我一点也不会,麻烦些的完整些有1根长度为321米的钢材料,要将他截取成两种规格a.b.a.b的长度分别为17米和27米的短料,每种
vb语言 帮做程序 有1根长度为321米的钢材料,要将他截取成两种规格a.b.
我一点也不会,麻烦些的完整些
有1根长度为321米的钢材料,要将他截取成两种规格a.b.
a.b的长度分别为17米和27米的短料,每种至少1段.问分割成a.b各多少段后,剩余的材料r最少.
程序运行后,单击命令按钮,就能输出结果
vb语言 帮做程序 有1根长度为321米的钢材料,要将他截取成两种规格a.b.我一点也不会,麻烦些的完整些有1根长度为321米的钢材料,要将他截取成两种规格a.b.a.b的长度分别为17米和27米的短料,每种
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 < tmp Then
tmp = R
a = Anum
b = Bnum
End If
Next Anum
MsgBox "a分割" & a & "段,b分割" & b & "段,剩余材料r最少,为" & tmp & "米"
End Sub
运行结果为 A=3,B=10,R=0