Dim a As Integer, b As Integer, c As Integer, d As Long, t As Double
a = 1
b = 4
c = 2
d = b * b - 4 * a * c
If a = 0 Then
Debug.Print "不是一元二次方程!"
ElseIf d < 0 Then
Debug.Print "虚根"
Else
t = Sqr(d)
Debug.Print "x1=" & (-b + t) / (2 * a)
Debug.Print "x2=" & (-b - t) / (2 * a)
End If
答：disp('方程形式:a*x^2+b*x+c=0'); a=input('a='); b=input('b='); c=input('c='); p=[a b ...详情>>
