如何编程求二元一次方程组的解

1、首先启动vb6，执行ctrl+n命令，新建一个标准的exe工程文件。

2、调整窗体的大小，直至自己认为合适为止，修改form1的caption属性值为“二元一次方程组求解”，同时修改boderstyle为4-fiexd。

3、在窗体上依次创建8个标签对象，并修改他们的caption属性值依次为“二元一次方程组求解”、“请输入方程组”、“x+”、“y+”等等。

4、接着在窗体上依次创建8个文本框对象，并修改这8个文本框对象的text属性值为空，同时调整他们在窗体上的排放位置。

5、再次在窗体上创建2个按钮对象，同时修改commmand1的caption 属性值为“求解”，commmand2属性值为“退出”。

6、双击commmand1对象进入该对象的代码区域，选择对象为commmand1，过程选择click，然后输入代码：

Dim a As Single

Dim b As Single

Dim c As Single

Dim d As Single

Dim e As Single

Dim f As Single

If (Text1.Text > 0) And (Text2.Text > 0) Then

a = Text2.Text * Text4.Text

b = Text5.Text * Text1.Text

c = a - b

d = Text3.Text * Text4.Text - Text6.Text * Text1.Text

e = d / c

f = (Text3.Text - Text2.Text * e) / Text1.Text

Text7.Text = f

Text8.Text = e

End If

 If ((Text1.Text > 0) And (Text2.Text < 0)) Or ((Text1.Text < 0) And (Text2.Text > 0)) Then

a = Text2.Text * Text4.Text

b = Text5.Text * Text1.Text

c = a + b

d = Text3.Text * Text4.Text - Text6.Text * Text1.Text

e = d / c

f = (Text3.Text - Text2.Text * e) / Text1.Text

Text7.Text = f

Text8.Text = e

End If

7、点击运行按钮进行编译调试，如果有错误会出现错误提示，同时会自动定位到错误位置，根据错误提示进行修改直至无误为止。

8、接着双击退出按钮进入代码区域，输入代码为end，语句虽少但可以退出整个运行程序。

9、再次运行调试发现，仍就有错误，错误提示为变量为定义，解决方案为对于变量a应该遵循先定义后使用的原则，修改为Dim a As Single。

10、调试无错误后，输入二元一次方程组的系数，进行测试结果是否正确，同时也是检验算法是否正确。

11、执行文件-保存工程命令，首先保存窗体，接着保存工程，保存后接着执行文件-生成工程命令，生成一个可执行文件。