以下是一个判断一元二次方程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
以下是一个判断一元二次方程ax2+bx+c=0根的方程的程序，请补充该程序。提示：
&8226;当a＜＞0时有两个根．设delta=b2-4ac，当delta＞0时，有两个不同的实根．当delta=0时，有两个相同的实根。当delta＜0时，有两个不同的虚根。
&8226;当a=0，b＜＞0时，有一个根。
&8226;当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
相关考题：
下列程序段的功能是输入一元二次方程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
针对“一元二次方程”起始课的教学，两位老师给出了如下教学片断：【教师甲】设置问题：请同学们根据下列问题，只列出含未知数的方程：预设：学生会分别列出两个方程。教师要求学生分别整理成方程左侧降幂排序，右侧为零的形式，然后引导学生完成下面两件事：对比“一元一次方程”的定义，为这类方程定义一个名称——一元二次方程。再请学生自行写出几个不同的一元二次方程，并提炼出一元二次方程的一般表达式。【教师乙】 上课开始。提问：什么是“一元一次方程”？请你根据“一元一次方程”的定义，给出“一元二次方程”的定义，并举出几个“一元二次方程”的例子。在学生举例的基础上，提炼出“一元二次方程”的一般表达式。请完成下列任务：（1）请分析两位老师引入“一元二次方程”概念设计方案的各自的特点。（15分）（2）在教学中，当引入一个新的数学概念之后，往往通过例题、习题加深对概念的理解。请针对“一元二次方程”概念，设计不同难度的两道例题和两道练习题，加深学生对“一元二次方程”概念的理解。（15分）
针对“一元二次方程”起始课的教学，两位老师给出了如下教学片断：【教师甲】设置问题：请同学们根据下列问题，只列出含未知数的方程：（1）一个正方形的面积为2，求正方形的边长x。预设：学生会分别列出两个方程。教师要求学生分别整理成方程左侧降幂排序，右侧为零的形式，然后引导学生完成下面两件事：对比“一元一次方程”的定义，为这类方程定义一个名称——一元二次方程。再请学生自行写出几个不同的一元二次方程，并提炼出一元二次方程的一般表达式。【教师乙】 上课开始。提问：什么是“一元一次方程”？请你根据“一元一次方程”的定义，给出“一元二次方程”的定义，并举出几个“一元二次方程”的例子。在学生举例的基础上，提炼出“一元二次方程”的一般表达式。请完成下列任务：（1）请分析两位老师引入“一元二次方程”概念设计方案的各自的特点。（15分）（2）在教学中，当引入一个新的数学概念之后，往往通过例题、习题加深对概念的理解。请针对“一元二次方程”概念，设计不同难度的两道例题和两道练习题，加深学生对“一元二次方程”概念的理解。（15分）
针对“一元二次议程”起始课的教学,两位老师给出了如下教学设计片段:【教师甲】设置问题:请同学们根据下列问题,只列出含未知数x的方程:(1)一个正方形的面积为2,求正方形的边长x。(2)长度为1的线段AB有一点C,且满足AC/AB=BC/AC,求线段AC的长x。预设:学生会分别列出两个方程。教师要求学生分别整理成方程左侧降幂排列,右侧为零的形式,然后引导学生完成下面两件事:对比”一元一次方程“的定义,为这类议程定义一个名称——一元二次方程。再请学生自行写出几个不同的一元二次议程,并提炼出一元二次方程的一般表达式。【教师乙】上课开始。提问:什么是“一元一次方程”?请你根据“一元一次方程”的定义,给出“一元二次方程”的定义,并举出几个“一元二次方程”的例子。在学生举例的基础上,提炼出“一元二次方程”的一般表达式。请完成下列任务:(1)请分析两位老师引入“一元二次方程”概念设计方案的各自的特点。(2)在教学中,当引入一个新的数学概念之后,往往通过例题、习题加深对概念的理解。请针对“一元二次方程”概念,设计不同难度的两道例题和两道习题,以加深学生对“一元二次方程”概念的理解。
针对“一元二次方程”起始课的教学，两位老师给出了如下教学片断：【教师甲】设置问题：请同学们根据下列问题，只列出含未知数x的方程：（1）一个正方形的面积为2，求正方形的边长x。预设：学生会分别列出两个方程。教师要求学生分别整理成方程左侧降幂排序，右侧为零的形式，然后引导学生完成下面两件事：对比“一元一次方程”的定义，为这类方程定义一个名称——一元二次方程。再请学生自行写出几个不同的一元二次方程，并提炼出一元二次方程的一般表达式。【教师乙】 上课开始。提问：什么是“一元一次方程”？请你根据“一元一次方程”的定义，给出“一元二次方程”的定义，并举出几个“一元二次方程”的例子。在学生举例的基础上，提炼出“一元二次方程”的一般表达式。请完成下列任务：（1）请分析两位老师引入“一元二次方程”概念设计方案的各自的特点。（15分）（2）在教学中，当引入一个新的数学概念之后，往往通过例题、习题加深对概念的理解。请针对“一元二次方程”概念，设计不同难度的两道例题和两道练习题，加深学生对“一元二次方程”概念的理解。（15分）
针对“一元二次方程”起始课的教学，两位老师给出了如下教学片断：【教师甲】设置问题：请同学们根据下列问题，只列出含未知数的方程：（1）一个正方形的面积为，求正方形的边长。预设：学生会分别列出两个方程。教师要求学生分别整理成方程左侧降幂排序，右侧为零的形式，然后引导学生完成下面两件事：对比“一元一次方程”的定义，为这类方程定义一个名称——一元二次方程。再请学生自行写出几个不同的一元二次方程，并提炼出一元二次方程的一般表达式。【教师乙】 上课开始。提问：什么是“一元一次方程”？请你根据“一元一次方程”的定义，给出“一元二次方程”的定义，并举出几个“一元二次方程”的例子。在学生举例的基础上，提炼出“一元二次方程”的一般表达式。请完成下列任务：（1）请分析两位老师引入“一元二次方程”概念设计方案的各自的特点。（15分）（2）在教学中，当引入一个新的数学概念之后，往往通过例题、习题加深对概念的理解。请针对“一元二次方程”概念，设计不同难度的两道例题和两道练习题，加深学生对“一元二次方程”概念的理解。（15分）
编程实现一元二次方程求解，要求从屏幕输入三个系数, 程序判断是否是一元二次方程，如果是二次方程，则求出该方程的根（包括虚数根）, 否则利用循环继续接收下一组三个系数。如果碰到＃则退出循环。