我们知道求二元一次方程组解的问题，方法多种多样，比方说加减消元法，那么如何利用编辑来解决这个问题呢?现在本人就利用vb编程来解决这个问题，同时分享解决的步骤以及截图，希望对你有所帮助。工具/原料morevb6方法/步骤1/11分步阅读

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

2/11

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

3/11

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

4/11

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

5/11

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

6/11

双击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/11

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

8/11

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

9/11

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

10/11

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

11/11

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

编程二元一次方程方程组求解百度经验