vb语言 帮做程序 有1根长度为321米的钢材料,要将他截取成两种规格a.b.
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/10/01 09:15:45
vb语言 帮做程序 有1根长度为321米的钢材料,要将他截取成两种规格a.b.
我一点也不会,麻烦些的完整些
有1根长度为321米的钢材料,要将他截取成两种规格a.b.
a.b的长度分别为17米和27米的短料,每种至少1段.问分割成a.b各多少段后,剩余的材料r最少.
程序运行后,单击命令按钮,就能输出结果
我一点也不会,麻烦些的完整些
有1根长度为321米的钢材料,要将他截取成两种规格a.b.
a.b的长度分别为17米和27米的短料,每种至少1段.问分割成a.b各多少段后,剩余的材料r最少.
程序运行后,单击命令按钮,就能输出结果
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
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
vb语言 帮做程序 有1根长度为321米的钢材料,要将他截取成两种规格a.b.
问个编程的问题.有1根长度为30米的钢材料,要将他截取成两种规格a.b.a.b的长度分别为3.8米和4米的短料.
VB编程,求步骤有一根长度为546米的钢材料,要将它截取成两种规格a、b的长度分别为19米和28米的短料,每种至少1段,
vb编程,步骤详解有一根长度为546米的钢材料,要将它截取成两种规格a、b的长度分别为19米和28米的短料,每种至少1段
题目:有一根长度为321米的钢材,要将它截取为两种规格的 '短料,两种规格的长度分别为a米、b米
有一批同规格的钢条,每根钢条有两种切割方式,可截成长度为A的钢条2根,长度为B钢条1根;或截成长度为A的钢条1根,长度为
求高手帮我做个简单的VB程序
有一批同规格的钢条,每根钢条有两种切割方式,可截成长度为a的钢条2根,长度为b的钢条1根;或截成长度为a
VB程序 下列为整形变量的是?A.B.X# C.X% D.X$
在语言处理程序中,解释程序的功能是() A.解释执行高级语言程序 B.将汇编语言程序编译成目标程序 C.解释执行汇编语言
A种钢材长54米,B种钢材长48米,把两种钢材截成相同的长度且没有剩余,每根钢材最少截成几米?(我觉得题目好像出错了,
A种钢材长54米,B种钢材长48米,把两种钢材截成相同的长度且没有剩余,每根钢材最少截成几米?