可以编写这样的程序.二元一次方程组的标准形式是：
ax+by=e
cx+dy=f
那么：
y=(ec-af)/(bc-ad)
x=(e-by)/a
程序如下：
input {text-align:right}
x + y =
x + y =
x=
y=
function comp(){
a=parseFloat(document.form1.a.value);
b=parseFloat(document.form1.b.value);
c=parseFloat(document.form1.c.value);
d=parseFloat(document.form1.d.value);
e=parseFloat(document.form1.e.value);
f=parseFloat(document.form1.f.value);
x=document.form1.x;
y=document.form1.y;
vy=(e*c-a*f)/(b*c-a*d);
vx=(e-b*vy)/a;
y.value=vy;
x.value=vx;
return false;
}
把上面的内容粘贴到记事本里面,保存为html文件（比如a.html),然后鼠标双击就能在浏览器里面打开,你填充方程组的六个系数之后,点“求解”按钮就可以得出x,y.
------------------- 犯懒 就帮你找了个与之相关的 希望能帮助你吧
再问： 拜托了，我要的是一元二次不是二元一次
再答： vb代码如下： Private Sub Command1_Click() Dim a As Single, b As Single, c As Single Dim d As Single, x1 As Single, x2 As Single a = InputBox("请输入一元二次方程的系数a") b = InputBox("请输入一元二次方程的系数b") c = InputBox("请输入一元二次方程的系数c") If a = 0 Then a = InputBox("因为a≠0，你输入的a＝0，请重新输入系数a") End If d = b * b - 4 * a * c If d >= 0 Then x1 = (-b + Sqr(d)) / (2 * a) x2 = (-b - Sqr(d)) / (2 * a) Print "系数为"; a; b; c; "的一元二次方程的根分别为"; x1 Print "系数为"; a; b; c; "的一元二次方程的根分别为"; x2 Else Print "此方程在实数范围内无解" End If End Sub 一、按钮“求一元二次方程”的vb代码如下： Private Sub Command1_Click() a = Text1.Text b = Text2.Text c = Text3.Text d = b * b - 4 * a * c If d >= 0 Then X1 = (-b + Sqr(d)) / (2 * a) X2 = (-b - Sqr(d)) / (2 * a) Label4.Caption = X1 Label5.Caption = X2 Else Label4.Caption = "在实数范围内无解" End If End Sub 二、按钮“重置”的vb代码如下： Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Label4.Caption = "" Label5.Caption = "" End Sub 三、按钮“退出”的vb代码如下： Private Sub Command3_Click() End End Sub 特殊例子（指定系数c的值为5）： 在窗体“Form1.frm”的“Command1_click“事件中编写代码（请不要随便更改其它代码），使之能够实现如下功能：在Text1输入整数a、、Text2输入b，判断一元二次方程ax2+bx+5=0有无实数根。并在Text3文本框中显示判断结果，即有实数根则在Text3文本框中输出“有”，否则输出“无”。 VB程序代码如下： Private Sub Command1_Click() dim a as single,b as single a = Text1.Text b = Text2.Text d = b * b - 4 * a * 5 If d >= 0 Then Text3.Text="有" Else Text3.Text="无" End If End Sub 如果不用dim定义变量，则上面的输入部分语句改为下面的语句，这样可以把字符变量类型转化为数值类型： a =val(Text1.Text) b =val(Text2.Text) --------------------------------这个总是了吧
