Question

vb中的算法问题

要解决方程组求解的问题，有多个约束条件。
方程组可能存在多个解，不求最优化解，
实现所有解输出，用什么算法？（因为有多个约束条件，不太可能有太多的解）。
最好有例子！

类似的例子：
a,b为整数
要求a+b=15
0<a<10
2<b<10
求a，b有几种组合
求解的过程中，涉及的变量很多，而且变量、约束条件的个数是不定的。
是线性方程组,类似：
0<a1x1+a2x2+...+anxn<1000
-1<b1x1+b2x2+...+bnxn<1002
.
.
.
x1>10
0<x2<1
.
.
.

Answer 1

你的举例很简单的啊，用for 循环就可以实现。

Private Sub Command1_Click()
i = 0
For a = 1 To 9
For b = 3 To 9
If a + b = 15 Then List1.AddItem "a=" & a & ";b=" & b: i = i + 1
Next b
Next a
Print "a+b=15符合条件的解法有：" & i & "种"
End Sub

计算出来符合条件的解为4组。
因为你的题目太简单了，我不知道到底从哪儿给你说起。所以就把你那个例子的解法写给你了。

Answer 2

要枚举所有的可能性，都计算一下~
因为求解的过程中，涉及的变量很多，而且变量、约束条件的个数是不定的。