作业帮 > 数学 > 作业

用vb做:输入一元二次方程ax^2+bx+c=0的系数abc,计算并输出一元二次方程的两个根x1,x2

来源:学生作业帮 编辑:灵鹊做题网作业帮 分类:数学作业 时间:2024/05/08 22:50:54
用vb做:输入一元二次方程ax^2+bx+c=0的系数abc,计算并输出一元二次方程的两个根x1,x2
用vb做:输入一元二次方程ax^2+bx+c=0的系数abc,计算并输出一元二次方程的两个根x1,x2
dim a ,b,c,x1,x2,d
a =val(inputbox("请输入系数a"))
b =val(inputbox("请输入系数b"))
c =val(inputbox("请输入系数c"))
d=b^2-4*a*c
if d>0 then
x1=(-b+sqr(d))/2
x2=(-b-sqr(d))/2
elseif d=0 then
x1=-b/2
x2=x1
else
msgbox "方程无实根!"
end if