下列程序段的功能是输入一元二次方程ax2+bx+c=0(a≠0)的3个系数a、b、c,并判断它根的情况,请将程序补充完整。 Dim a As Single,b As Single,c As Single Dim delta As Sin

admin2010-03-30  29

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

选项

答案 b*b—4*a*c , Else

解析 根据题意可分析出变量delta表示一元二次方程的判别式。故用表达式表示出来为b*b-4*a*c。“没有实根”是求二次方程根的一种情况,与前面的两种情况是平行的,但条件不同,又根据题中的if语句结构可知[12]处应填Else。
转载请注明原文地址:https://kaotiyun.com/show/4K1p777K
0

最新回复(0)