下列一元二次方程有两个相等实数根的是（）

A.方程有两个相等的实数根

B.方程有两个不相等的实数根

C.没有实数根

D.无法确定

A.有两个不相等的实数根

B.有两个相等的实数根

C.无实数根

D.无法确定

A.没有实数根

B.有两个相等的实数根

C.有两个不相等的正根

D.有两个不相等的负根

A.有两个实数根

B.有两个相等的实数根

C.有两个不相等的实数根

D.没有实数根

A.有两个相等的实数根

B.有两个不相等的实数根

C.只有一个实数根

D.没有实数根

A.无实数根

B.有一个正根，一个负根

C.有两个负根

D.有两个正根

A.k≥0

B.k≤0

C.k＜0且k≠﹣1

D.k≤0且k≠﹣1

A.k＞0.5

B.k≥0.5

C.k＞0.5且k≠1

D.k≥0.5且k≠1

可以使用下面的公式求一元二次方程ax²+bx+c=0的两个根：

b²-4ac称为一元二次方程的判别式，如果它是正值，那么方程有两个实数根;如果它为0，方程就只有一个根;如果它是负值，方程无实根。

编写程序，提示用户输入a、b和c的值，程序根据判别式显示方程的根，如果判别式为负值，显示“方程无实根”。

A.1

B.12

C.13

D.25

下列程序段的功能是输入一元二次方程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=【 】

If delta＞0 Then

lblResult. Caption="有两个不相等的实根"

Elself delta＝0 Then

lblResult. Caption="有两个相等的实根"

【 】

lblResult. Caption＝"没有实根"

End If