【正确答案】Public Function f1(a As Single,b As Single,C As Single)as Single
     f1=(-b+Sqr(b^2-4*a*c))/(2*a)
   End Function
   Public Function f2(a As Single,b As Single,c As Single)as Single
     f2=(-b-Sqr(b^2-4*a*c))/(2*a)
   End Function
   Public Sub p5()
     Dim a As Single，b As Single，c As Single
     a=InputBox("a=")
     b=InputBox("b=")
     C=InputBox("C=")
     If b^2-4*a* c＜0 or a=0 Then
        Debug.Print"没有实数解!"
     Else
       Debug.Print"x1="; f1(a,b,C)
       Debug.Print"x2="; f2(a,b,c)
     End If
   End Sub

【答案解析】本题考查的知识点是函数的定义和调用。函数f1和f2除了求解的公式略有不同，3个Single型的参数分别代表一元二次方程各项的系数，最后返回的类型也是Single型。请注意函数调用的形式。