VB6.0实现一元二次方程的求解

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

3、双击窗体Form1，进入代码编辑窗口，在通用段对变量进行定义。Dim a As Single, b As S足毂忍珩ingle, c As Single, X1 As Double, X2 As Double, T As Double

5、双击“输出”命令按钮，进入代码编辑窗口，输入如下代码：Text4.Text = X1Text5.Text = X2