编写一元二次方程的求解程序，要求能够判断方程是否有根，如果没有根则给出相应的提示信息。
程序如下：
Private Sub Command1_Click（）
Dim a as Single, b as Single, c as Single
Dim t as Single, x1 as Single, x2 as Single
a = Val（InputBox（"a=", "数据输入框", 1））
b = Val（InputBox（"b=", "数据输入框", 2））
c = Val（InputBox（"c=", "数据输入框", 1））
If a =" 0" Then
If b =" 0" Then
If c =" 0" Then Print "解得:x有无穷解" Else Print "x无解"
Else
Print "解得:x=" & -c / b
End If
Else
t = ________（1）______________
If t < 0 Then ①
x1 = （-b + Sqr（t）） / （2 * a） ②
x2 = （-b - Sqr（t）） / （2 * a） ③
Print "解得:x1=" & x1,
Print "x2=" & x2
Else
x1 = ______（2）__________
If t =" 0" Then Print "解得:x=" & x1
If t > 0 Then    ④
Print "无实根"
End If
End If
End If
End Sub
请认真分析任务和程序段，完成下列题目。
（1）用计算机编程解决问题，一般分为几个过程：①编写程序②分析问题③确定算法④调试程序，正确排序应该是_________（填序号）。
（2）流程图是用图框及流程线来表示算法的，流程图中的“◇”（菱形框）用来表示_______________（选填“选择分支”、“数据输出”、“条件判断”）。
（3）程序段出现的语句“Dim a as Single”是将“a”定义为________________（写汉字）数据类型。
（4）程序中的语句Sqr（t）所表示的含义是____________________。
（5）调试过程中，运行的结果跟预期结果不符，编译过程中语句出现错误，请找出①②③④中选出错误_____________。
（6）程序中所在（1）横线处的表达式是___________________。
（7）依次输入的数据为：4,-2,1后，运行该程序，输出的结构是_________________。
（8）程序中所在（2）横线处的表达式是___________________。
（9）该程序属于__________结构的程序设计。
（10）将设计好的窗体文件保存到磁盘上，窗体文件的扩展名为______________。（选填“exe”、“frm”、“vbp”或“vbw”）