以下是一个判断一元二次方程ax2+bx+c=0根的方程的程序,请补充该程序。提示: •当a<>0时有两个根.设delta=b2-4ac,当delta>0时,有两个不同的实根.当delta=0时,有两个相同的实根。当delta<0时,有两个不同的虚根。 •当

admin2013-04-11  22

问题 以下是一个判断一元二次方程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 Single
Dim b  As Single
Dim c  As Single
Dim sb  As Single
Dim xb  As Single
Dim re  As Single
a = InputBox (“请输入a的值”)
c = InputBox(“请输入c的值”)
if【  】then
delta = b ^2- 4 * a * c
re = -b/(2 * a)
if【  】then
sb = Sqr (delta)/(2 * a)
Print “方程有两个实根”
Elseif delta = 0 then
Print “方程有两个相等实根”
Else
xb = Sqr( - delta)/(2 * a)
Print “方程有两个虚要”
End if
Else
if【  】then
ygz = - b / c
Print “方程仅有一个根”
Else
print “方程无意义”
End if
End if
End Sub

选项

答案a<>0,delta>0,b<>0

解析 本题的难点是块结构if语句的使用问题,在程序中用到if语句的嵌套使用。从三个填空来看,均为逻辑关系式。
转载请注明原文地址:https://kaotiyun.com/show/qlhp777K
0

最新回复(0)