下列程序段的功能是输入一元二次方程 ax 2 + bx + c = 0 ( a ≠ 0 ) 的 3 个系数 a 、 b 、 c ,并判断它的根的情况,请将下列程序补充完整。 Dim a As Single , b As Single , c As Single Dim delta As Single a = Val ( txtA.Text ): b = Val ( txtB.Text ): c = Val ( txtC.Text ) delta =【 】 If delta > 0 Then lb1Result.Caption = ′′ 有两个不相等的实根 ′′ ElseIf delta = 0 Then lb1Result.Caption = ′′ 有两个相等的实根 ′′ 【 】 lb1Result.Caption = ′′ 没有实根′′ End If