VB6.0如何实现一元二次方程的求解? 用vb求一元二次方程的根

在vb6.0编程中，我们可以解决很多数学上的问题，极大的方便了我们的数学计算，下面我们就来看看求解一元二次方程是一个经典例子，在国家计算机二级中也常考，今天我们就详细介绍如何用vb6.0编程实现一元二次方程的求解。

vb 6.0中文企业版免费下载(206m)

• 类型：编译工具
• 大小：206mb
• 语言：简体中文
• 时间：2020-01-08

首先打开vb6.0软件，在打开的界面上，点击【标准exe】按钮，建立一个标准的exe可执行文件，然后点击【打开】，如图所示。

然后，可以看到，界面上新弹出来一个form1，在这个form1里面，可以进行界面的设计及对应代码的编写，如图所示。

我们根据一元二次方程的公式，需要3个系数，这里分别设为a，b，c，然后我们需要两个实数解的输出结果，这里设置为x1，x2，然后加上相应的文本框及计算按钮，这些控件都在左侧工具箱里可以找到，只需点击某个控件，然后在form1上绘制出来即可。

我们需要在form1的代码编辑窗口，编辑一段代码：

private sub form_load()
dim a as single, b as single, c as single, x1 as double, x2 as double, r as double
end sub

以上代码，定义了变量a，b，c，x1，x2，r，其中r是用于计算是否存在实数解。

private sub command1_click()
a = text1.text: b = text2.text: c = text3.text
r = b ^ 2 - 4 * a * c
if r < 0 then
msgbox ("方程无实数根！")
else
x1 = (-b + sqr(b ^ 2 - 4 * a * c)) / (2 * a)
x2 = (-b - sqr(b ^ 2 - 4 * a * c)) / (2 * a)
text4.text = x1
text5.text = x2
end if

以上代码是计算，点击按钮后，能否存在实数解，以及如果存在实数解，就计算出来，将结果赋值给对应的文本框。

全部编辑完成之后，我们点击上方的【运行】按钮，然后再点击下方的【启动】按钮，启动程序，如图所示。

在启动的窗口中，分别输入三个系数，a，b，c，然后点击【计算】按钮。如果存在实数解，则会在右侧文本框输出，如果不存在，会弹框提醒不存在。

如果觉得有用，记得点赞或投票支持！

注意事项：

需要控制好，所有系数的输入必须是数字。需要先判断有无实数解，再计算值。

以上就是用vb求一元二次方程的根，希望大家喜欢，请继续关注。