如何用VB求解二元一次方程

Question

你好，请问这个二元一次方程如何求解？ x+y=100 4*x+0.25*y=100; 如何用VB表达出来

Answer 1

因为sqr(y)中，y不能小于0，所以
x1
=
(-b
+
sqr(y))
/
(2
*
a)
x2
=
(-b
-
sqr(y))
/
(2
*
a)
需要放在判断if
y
>=
0
then之后。
修改：
private
sub
command1_click()
dim
a
as
single,
b
as
single,
c
as
single
dim
x1
as
single,
x2
as
single,
y
as
single
a
=
inputbox("a",
"求解二元一次方程")
b
=
inputbox("b",
"求解二元一次方程")
c
=
inputbox("c",
"求解二元一次方程")
y
=
b
^
2
-
4
*
a
*
c
if
y
>=
0
then
x1
=
(-b
+
sqr(y))
/
(2
*
a)
x2
=
(-b
-
sqr(y))
/
(2
*
a)
print
"求解结果"
print
"x1=";
x1
print
"x2=";
x2
else:
print
"无解"
end
if
end
sub

Answer 2

将方程转换如下格式:
y=ax+b
y=cx+d
(a,b,c,d皆为已知数，求x,y的值。)
然后得到a=-1,b=100,c=-16,d=400,再编程如下

Private Sub Command1_Click()
Dim a, b, c, d As Long
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = Val(Text4.Text)

If a = c Then
If b = d Then
MsgBox "方程组有无穷多组解！"
Else
MsgBox "方程组无解！"
End If
Else
x = (d - b) / (a - c)
y = a * x + b
MsgBox "x = " & x & " y = " & y, vbOKCancel, "结果"
End If

End Sub

参考资料：http://hi.baidu.com/mizuda/blog/item/274c471140a9260b213f2e85.html

Answer 3

我们来做一个循环。估计一下。解最小-10000，最大10000。
精度0.00。
for i=-10000 to 10000 step 0.01
for j=-10000 to 10000 step 0.01
if i+j=1004*i+0.25*j and i+j=100 then
text1.text="X="+cstr(i)+":Y="+cstr(j)
end if
next j
next i
^_^上面的代码千万别运行啊。理论上是能求是解的，但你运行下就知道了，嘿嘿。
放两个时间函数
private x as long
private y as long
from_load
x=-10000
y=-10000
timer1.interval=100
timer2.interval=100
end sub
timer1_timer()
x=x+0.01
if x+y=1004*x+0.25*y and x+y=100 then
text1.text=text1.text+="X="+cstr(x)+":Y="+cstr(y)+":"
timer1.interval=0
end if
end sub
timer2_timer()
y=y+0.01
if x+y=1004*x+0.25*y and x+y=100 then
text1.text=text1.text+="X="+cstr(x)+":Y="+cstr(y)+":"
timer2.interval=0
end if
end sub

Answer 4

…(1) …(2)
解：将2式等式两边乘以4得：16x+y=400(3)
用3式减1式得：
(16x+y)-(x+y)=400-100
整理得：15x=300解得：x=20代入1式得：
20+y=100解得y=800

Answer 5

呵呵，主要是方法，不是表达式的问题：）

这样的问题才给 5分？太小气了啊，哈哈