方程： 　　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最原始的方法代码为： 　　VBcode 　　m1=-1:m2=-1:m3=-1:m4=-1 　　aaa=-1 　　Forn1=0To9000 　　Forn2=0To9000 　　Forn3=0To9000 　　Forn4=0To9000 　　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 　　Ifaaa=-1Then 　　m1=n1:m2=n2:m3=n3:m4=n4 　　aaa=(s1-e1)*(s1-e1)+(s2-e2)*(s2-e2)+(s3-e3)*(s3-e3) 　　Else 　　Ifaaa