VB处理多元不定方程的正数优解问题
方程：
a1x1+b1x2+c1x3+d1x4=e1
a2x1+b2x2+c2x3+d2x4=e2
a3x1+b3x2+c3x3+d3x4=e3
x1、x2、x3、x4为未知数，取值为0-9000范围内整数，其他全部为常数
现在要求用vb进行求解，求出最优的x1、x2、x3、x4值，即假设：
a1x1+b1x2+c1x3+d1x4值为s1
a2x1+b2x2+c2x3+d2x4值为s2
a3x1+b3x2+c3x3+d3x4值为s3
(s1-e1)*(s1-e1)+(s2-e2)*(s2-e2)+(s3-e3)*(s3-e3)的值最小
VB最原始的方法代码为：
VB code
m1 = -1: m2 = -1: m3 = -1: m4 = -1
aaa = -1
For n1 = 0 To 9000
For n2 = 0 To 9000
For n3 = 0 To 9000
For n4 = 0 To 9000
s1 = a1 * n1 + b1 * n2 + c1 * n3 + d1 * n4
s2 = a2 * n1 + b2 * n2 + c2 * n3 + d2 * n4
s3 = a3 * n1 + b3 * n2 + c3 * n3 + d3 * n4
If aaa = -1 Then
m1 = n1: m2 = n2: m3 = n3: m4 = n4
aaa = (s1 - e1) * (s1 - e1) + (s2 - e2) * (s2 - e2) + (s3 - e3) * (s3 - e3)
&n
相关问答：
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
初学，大胆提问，请高手不吝赐教
1、滚动条点击与绘图板（屏幕,Piceure1）的移动问题已经解决。
Picture1.Top = -VScroll1.Value + bcW '垂直移动
Picture1.Left = -HScroll1.Value + bcW ' ......
各位大虾：
我是刚学VB，现在想用VB调用一个动态库，动态库里面有很多函数。我知道使用VB调用动态库调用函数，需要将要调用的函数在程序中声明即可，但是里面有很多函数，不会每一个函数都要声明吧。请� ......
刚接触vb6.0，有些摸不到的感觉，敬请各位大虾给点建议！！！
不会吧，推荐学习.NET。顺便推荐实用代码网站http://bingning.net/free/source/index.html。
如果没基础 就用易语言吧 中文编程呢 代码都是中文 ......
Private Sub Form_Load()
recs = Adodc1.Recordset.RecordCount '求当前记录数
If recs > 0 Then '已有考生
Adodc1.Recordset.MoveLast '移到最后一条记录
num = V ......
