打开VB6.0，新建一个工程，在窗体中添加两个命令按钮，caption分别改为“计算”、“输出”，将窗体Form1的caption属性改为“解一元二次方程”，添加5个标控件，将其caption属性分别改为“a”、b”、“c”、“X1”、“X2”，添加5个文本框，并将其Text属性清空，将界面设伟强置成下图

一元二次方程的基本形式是：ax^2+bx+c=0，其中a不等于0。

程序中的a、b、c分别与上式中的系数对应，X1、X2表示两个根。

程序的思路是捕愁：先判断方程有无实数解(b^2-4ac大于等于0)，有的话就用求根公式进行求解。

双击窗体Form1，进入代码编辑窗口，在通用段对变量进行定义。

Dim a As Single, b As Single, c As Single, X1 As Double, X2 As Double, T As Double

双击“计算”命令按钮，进入代码编辑窗口，输入如下代码：

a = Text1.Text: b = Text2.Text: c = Text3.Text

T = b ^ 2 - 4 * a * c

If T 0 Then

MsgBox (该方程无实数根)

Else

X1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)

X2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)

End If

双击“输出”命令按钮，进入代码编辑窗口，输入如下代码：

Text4.Text = X1

Text5.Text = X2

关闭代码窗口，按下F5运行程序，在文本框中输入一元二次方程系数的值，单击“计算”命令按钮进行实数解茄槐塑情况判断及计算，单击“输出”命令按钮，将实数解输出，如图：

在求解一元二次方程前，需要先判断方程有无实数解。

注意求根公式怎么用VB表达式书写。

“计算”按钮完成一元二次方程实数解情况的判断以及求解，“输出”命令按钮完成实数解的输出。