1、首先打开VB6.0软件，在打开的界面上，点击【标准exe】按钮，建立一个标准的exe可执行文件，然后点击【打开】，如图所示。
2、然后，可以看到，界面上新弹出来一个Form1，在这个Form1里面，可以进行界面的设计及对应代码的编写，如图所示。
3、我们劐聂赞陶根据一元二次方程的公式，需要3个系数，这里分别设为a，b，c，然后我们需要两个实数解的输出结果，这里设置为x1，x2，然后加上相应的文本框及计算按钮，这些控件都在左侧工具箱里可以找到，只需点击某个控件，然后在Form1上绘制出来即可。
4、我们酋篚靶高需要在Form1的代码编辑窗口，编辑一段代码：Private Sub Form_Load()Dim a As Single, 芟鲠阻缒b As Single, c As Single, x1 As Double, x2 As Double, R As DoubleEnd Sub以上代码，定义了变量a，b，c，x1，x2，R，其中R是用于计算是否存在实数解。Private Sub Command1_Click()a = Text1.Text: b = Text2.Text: c = Text3.TextR = b ^ 2 - 4 * a * cIf R < 0 ThenMsgBox ("方程无实数根！")Elsex1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)x2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)Text4.Text = x1Text5.Text = x2End If以上代码是计算，点击按钮后，能否存在实数解，以及如果存在实数解，就计算出来，将结果赋值给对应的文本框。
5、全部编辑完成之后，我们点击上方的【运行】按钮，然后再点击下方的【启动】按钮，启动程序，如图所示。
6、在启动的窗口中，分别输入三个系数，a，b，c，然后点击【计算】按钮。如果存在实数解，则会在右侧文本框输出，如果不存在，会弹框提醒不存在。如果觉得有用，记得点赞或投票支持！
