请大家具体给解释一下

dim a ,b ,c , d as single

a=val(textbox1.text)
b=val(textbox2.text)
c=val(textbox3.text)
d=b^2-4*a*c
if d<0 then
label1.text="方程无实数根"
elseif d=0 then
label1.text="方程有一个实数根" & str(-b/(2*a))
else
label1.text="方程有两个实数根" & str((-b+math.sqrt(d))/(2*a)) & str((-b-math.sqrt(d))/(2*a))
end if


请大家具体给解释一下，为什么这样写 为什么d=b^2-4*a*c
怎么d<0 方程就没有根 d=0 有一个