![[填空题] 下列程序段的功能是输入一元二次方程ax2+bx+c=0(a≠0)的3个系数a、b、c，并判断它根的情况，请将程序补充完整。 Dim a As Single,b As Single,c As](http://www.mshxw.com/aiimages/31/248452.png "[填空题] 下列程序段的功能是输入一元二次方程ax2+bx+c=0(a≠0)的3个系数a、b、c，并判断它根的情况，请将程序补充完整。 Dim a As Single,b As Single,c As")
[填空题] 下列程序段的功能是输入一元二次方程ax2+bx+c=0(a≠0)的3个系数a、b、c，并判断它根的情况，请将程序补充完整。
Dim a As Single,b As Single,c As Single
Dim delta As Single
a=txtA. Text:b=txtB. Text:c＝txtC. Text
delta= 【11】
If delta＞0 Then
lblResult. Caption="有两个不相等的实根"
Elself delta＝0 Then
lblResult. Caption="有两个相等的实根"
【12】
lblResult. Caption＝"没有实根"
End If
参考答案：
[11] b*b—4*a*c问题解析:
[12] Else 根据题意可分析出变量delta表示一元二次方程的判别式。故用表达式表示出来为b*b-4*a*c。“没有实根”是求二次方程根的一种情况，与前面的两种情况是平行的，但条件不同，又根据题中的if语句结构可知[12]处应填Else。
