在初学VB6.0编程过程中，求解一元二次方程是一个经典例子，在国家计算机二级中也常考，这里就简要介绍下如何用VB6.0编程实现一元二次方程的求解。
工具/原料
VB6.0
计算机(WIN7系统)
方法/步骤
1、打开VB6.0，新建一个工程，在窗体中添邹菁惨挣加两个命令按钮，caption分别改为“计算”、“输出”，将窗体Form1的caption属性改为“解一元二次方程”，添加笙剽茑镙5个标控件，将其caption属性分别改为“a”、"b”、“c”、“X1”、“X2”，添加5个文本框，并将其Text属性清空，将界面设置成下图
2、一元二次方程的基本形式是：ax^2+bx+c=0，其中a不等于0。程序中的a、b、c分别与上式中的系数对应，XX2表示两个根。程序的思路是：先判断方程有无实数解(b^2-4ac大于等于0)，有的话就用求根公式进行求解。
3、双击窗体Form1，进入代码编辑窗口，在通用段对变量进行定义。DimaAsSingl娣定撰钠e,bAsS足毂忍珩ingle,cAsSingle,X1AsDouble,X2AsDouble,TAsDouble
4、双击“计算”命令按钮，进入代码编辑窗口，输入如下代码：a=Text1.Text:b屏顿幂垂=Text2.Text:c=惺绅寨瞀Text3.TextT=b^2-4*a*cIfT<0ThenMsgBox("该方程无实数根")ElseX1=(-b+Sqr(b^2-4*a*c))/(2*a)X2=(-b-Sqr(b^2-4*a*c))/(2*a)EndIf
5、双击“输出”命令按钮，进入代码编辑窗口，输入如下代码：Text4.Text=X1Text5.Text=X2
6、关闭代码窗口，按下F5运行程序，在文本框中输入一元二次方程系数的值，单击“计算”命令按钮进行实数解情况判断及计算，单击“输出”命令按钮，将实数解输出，如图：
