[填空题] 下列程序段的功能是输入一元二次方程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