下列程序段的功能是输入一元二次方程ax2+bx+c=0(a≠0)的3个系数a、b、c，并判断它根的情况，请将程序补充完整。Dim a As Single,b As Single,c As SingleDim delta As Singlea=txtA. Text:b=txtB. Text:c＝txtC. Textdelta=【 】If delta＞0 ThenlblResult. Caption="有两个不相等的实根"Elself delta＝0 ThenlblResult. Caption="有两个相等的实根"【 】lblResult. Caption＝"没有实根"End If
下列程序段的功能是输入一元二次方程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
相关考题：
以下是一个判断一元二次方程ax2+bx+c=0根的方程的程序，请补充该程序。提示：当a＜＞0时有两个根．设delta=b2-4ac，当delta＞0时，有两个不同的实根．当delta=0时，有两个相同的实根。当delta＜0时，有两个不同的虚根。当a=0，b＜＞0时，有一个根。当a=0、b=0时，方程无意义。Private Sub Command1_Click()Dim a As SingleDim b As SingleDim c As SingleDim sb As SingleDim xb As SingleDim re As Singlea = InputBox (“请输入a的值”)c = InputBox(“请输入c的值”)if【 】thendelta = b ^2- 4 * a * cre = -b/(2 * a)if【 】thensb = Sqr (delta)/(2 * a)Print “方程有两个实根”Elseif delta = 0 thenPrint “方程有两个相等实根”Elsexb = Sqr( - delta)/(2 * a)Print “方程有两个虚要”End ifElseif【 】thenygz = - b / cPrint “方程仅有一个根”Elseprint “方程无意义”End ifEnd ifEnd Sub
阅读下列程序段，则程序段实现的功能是（）。 #include "stdio.h" main（） { int k［10］; int j; for（j=0;j＜10;j++） scanf（"%d",k［j］）; for（j=9;j＞=0;j--） printf（"%d,",k［j］）; }A．输入10个数据的顺序输入并输出B．输入10个数据并逆序存放C．输入10个数据并逆序输出D．以上叙述均错误
求解一元二次方程：ax²+bx+c=0的根，其中a，b，c由键盘输入。选择正确的程序顺序描述。 ①计算判别式：disc=b²-4ac； ②输入a，b，c ③输出结果； ④如果b²-4ac小于0，则该方程无根；如果b²-4ac大于等于0，则方程有两个根；A．①②③④B．①②④③C．②①④③D．②④①③
13、求解一元二次方程：ax²+bx+c=0的根，其中a，b，c由键盘输入。选择正确的程序顺序描述。 ①计算判别式：disc=b²-4ac； ②输入a，b，c ③输出结果； ④如果b²-4ac小于0，则该方程无根；如果b²-4ac大于等于0，则方程有两个根；A．①②③④B．①②④③C．②①④③D．②④①③