PrivateSubCommand1_Click()

　　DimaAsSingle,bAsSingle,cAsSingle,x1AsSingle,x2AsSingle,deltaAsSingle,sqrdeltaAsSingle

　　Do

　　a=Val(InputBox("请输入二次项系数"))

　　Ifa=0Then

　　MsgBox"二次想系数不得为零!"

　　Else

　　ExitDo

　　EndIf

　　Loop

　　b=Val(InputBox("请输入一次项系数"))

　　c=Val(InputBox("请输入常数项"))

　　delta=b*b-4*a*c

　　Ifdelta

　　题目中已经给出条件b^2-4ac>0还用考虑这么多情况么？

　　当然，作为一个计算机程序，处理意外要占到所有代码的百分之就是以上！以本题为例，也许准备的题目是有可以保证判别式大于等于0，但用户在输入个系数的时候完全有可能因为操作错误而导致程序中断！如果程序不能自己处理这些，二错误就被windows截获，这是典型的失败！