Question

如何用VB求一元二次方程的虚数解

Answer 1

d=b*b-4*a*c
if d>=0 then
print "x1=";(-b+sqr(d))/(2*a)
print "x2=";(-b-sqr(d))/(2*a)
else
print "x1=";-b/(2*a)+sqr(-d))/(2*a);"i"
print "x2=";-b/(2*a)-sqr(-d))/(2*a);"i"
end if