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 ("⽅程⽆实数根！")
Elsetextbox控件边框设置
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求⼀元⼆次⽅程的根，希望⼤家喜欢，请继续关注。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。