用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*cif d>0 then x1=(-b+sqr(d))/2x2=(-b-sqr(d))/2elseif d=0 thenx1=-b/2x2=x1els...