Question

用excel解四元一次方程

我希望用excel解决如下问题：现在我要把9米一根长的钢筋，切成4种小段的钢筋，尺寸分别是1米、1.5米、2米、2.5米，每种钢筋可以切很多根，也可以一根都不切。要得出一共有多少种切法。
我简化为 1X+1.5Y+2Z+2.5M-9>0 的非零整数解，不是说用举例法，当参数多了举例法很不实用。 谁能帮助我一下呐，我的QQ是348543906，高手留下QQ也可以，。谢谢大家了。

Answer 1

应该是1259种切法！！

打开EXCEL然后按“ALT+F11”键就可以进入到 “Visual Basic 编辑器“ ，再将下面的程序代码粘贴进去就行了。再按”F5” 运行其将会弹出一个对话框显示运算结果。这里很简单就是定义四种整数型变量，根据总长度只有9米，设定好每个变量的范围，然后再套四个循环，利用IF条件语句添加附加条件，当循环符合条件时计数函数K=K+1 将会自动加总，直到循环结束。最后利用msgbox函数将最终结果显现出来。

Public Sub uuu()

Dim x, y, z, m As Integer

k = 0

For x = 0 To 9

For y = 0 To 6

For z = 0 To 4

For m = 0 To 3

If 1 * x + 1.5 * y + 2 * z + 2.5 * m - 9 > 0 Then

k = k + 1

End If

Next

Next

Next

Next

MsgBox k

End Sub

追问

十分感谢你的回答。
能不能再加一个条件，1>1X+1.5Y+2Z+2.5M-9>0。并且在将组合方式导出来呢。

追答

Public Sub uuu()

Dim x, y, z, m As Integer

k = 0

For x = 0 To 9

For y = 0 To 6

For z = 0 To 4

For m = 0 To 3

If 0 < 1 * x + 1.5 * y + 2 * z + 2.5 * m - 9 And 1 * x + 1.5 * y + 2 * z + 2.5 * m - 9 < 1 Then

k = k + 1

End If

Next

Next

Next

Next

MsgBox k

End Sub

追问

求扣扣。

追答

249548339 ，我其实也是个菜鸟，现在正在学习EXCLE VBA，还不知道上面这思路在问题没。
正解请采纳回答！！

Answer 2

编写公式中使用递归的思路应该可以写一个固定的算式。

Answer 3

每段最小单位是多少