vb编程,步骤详解有一根长度为546米的钢材料,要将它截取成两种规格a、b的长度分别为19米和28米的短料,每种至少1段

来源：学生作业帮编辑：神马作文网作业帮分类：综合作业时间：2024/09/22 02:09:16

vb编程,步骤详解
有一根长度为546米的钢材料,要将它截取成两种规格a、b的长度分别为19米和28米的短料,每种至少1段,问分隔成a,b各多少段后,剩余的残料r最少?编程解决此计算问题.

Dim p As Integer, q As Integer
Dim i As Integer, j As Integer,n as integer
'有一根长度为546米的钢材料,要将它截取成两种规格a、b的长度分别为19米和28米的短料,
'每种至少1段,问分隔成a,b各多少段后,剩余的残料r最少?编程解决此计算问题.
For i = 1 To Int(546 / 19)
' For j = 2 To Int(546 / 28)
If (546 - 19 * i) Mod 28 < (546 - 19 * (i - 1)) Mod 28 Then
p = i: q = (546 - 19 * i) / 28
End If
n=546-19*p-28*q
'Next
Next
Print p, q,n '输出 27 1 5
再问：不对啊，我运行了
再答： Private Sub Command1_Click() Dim p As Integer, q As Integer Dim i As Integer, j As Integer, n As Integer '有一根长度为546米的钢材料，要将它截取成两种规格a、b的长度分别为19米和28米的短料， '每种至少1段，问分隔成a，b各多少段后，剩余的残料r最少？编程解决此计算问题。 n = 100 For i = 1 To Int(546 / 19) m = (546 - 19 * i) Mod 28 If m

vb编程,步骤详解有一根长度为546米的钢材料,要将它截取成两种规格a、b的长度分别为19米和28米的短料,每种至少1段 VB编程,求步骤有一根长度为546米的钢材料,要将它截取成两种规格a、b的长度分别为19米和28米的短料,每种至少1段, 题目：有一根长度为321米的钢材,要将它截取为两种规格的 '短料,两种规格的长度分别为a米、b米问个编程的问题.有1根长度为30米的钢材料,要将他截取成两种规格a.b.a.b的长度分别为3.8米和4米的短料. vb语言帮做程序有1根长度为321米的钢材料,要将他截取成两种规格a.b. 将一根26米长的钢料,截成规格分别2米.3米和8米的较短的料,每种规格的料至少有一根,怎么截才能使原来的钢 2.8米长的钢材,要截成1.2米和0.9米两种长度的钢材段,现在要截两种钢料各60段,至少需要2,8米的钢材（）有两根钢材,长度分别是12米和20米,现在要把它们锯成相同长度的小段,每段的每段的长度是整米数且不能浪费一根钢管,第一次截取a米,第二次截取余下的n/m,这时剩下的钢管长度与截取的同样长原来多长一根电线长180米，将它截成三段，第一段比第二段长20米，第三段长为第一段长的2倍，则第二段的长度为多少米？有一条长度为359mm的钢管,要把它锯与长度分别为59mm和39mm两种不同规格的小钢管（要求没有余料）,每锯一平面上有一线段AB,长度为5,在此平面上与A、B两点距离分别为2和3的直线有多少条