VB6.0如何实现一元二次方程的求解? 用vb求一元二次方程的根
脚本之家
在VB6.0编程中，我们可以解决很多数学上的问题，极大的方便了我们的数学计算，下面我们就来看看求解一元二次方程是一个经典例子，在国家计算机二级中也常考，今天我们就详细介绍如何用VB6.0编程实现一元二次方程的求解。
首先打开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求一元二次方程的根，希望大家喜欢，请继续关注脚本之家。
相关推荐：