填空题

下列程序段的功能是输入一元二次方程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=txt
  • A. Text:b=txt
  • B. Text:c=txt
  • C. 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