请大家具体给解释一下

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 有一个

d=b^2-4*a*c
验证根
str((-b+math.sqrt(d))/(2*a)) & str((-b-math.sqrt(d))/(2*a))
求根公式
二元一次方程的求根公式，初中就学了

这个程序还应该加上a<>0

[此贴子已经被作者于2007-10-30 14:10:30编辑过]

:victory: THANKS:victory:

这明显不是程序问题:L

明明是數學問題！跟有什么關系？

这是人的思想的问题
不是程序的问题
呵呵