多语言展示
当前在线:1996今日阅读:27今日分享:41

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

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

vb6

方法/步骤
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 SingleDim b As SingleDim c As SingleDim d As SingleDim e As SingleDim f As SingleIf (Text1.Text > 0) And (Text2.Text > 0) Thena = Text2.Text * Text4.Textb = Text5.Text * Text1.Textc = a - bd = Text3.Text * Text4.Text - Text6.Text * Text1.Texte = d / cf = (Text3.Text - Text2.Text * e) / Text1.TextText7.Text = fText8.Text = eEnd If If ((Text1.Text > 0) And (Text2.Text < 0)) Or ((Text1.Text < 0) And (Text2.Text > 0)) Thena = Text2.Text * Text4.Textb = Text5.Text * Text1.Textc = a + bd = Text3.Text * Text4.Text - Text6.Text * Text1.Texte = d / cf = (Text3.Text - Text2.Text * e) / Text1.TextText7.Text = fText8.Text = eEnd If

7

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

8

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

9

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

10

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

11

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

推荐信息