VB编程 输入一元二次方程的系数a,b,c判断解得情况,若一个解得话,输出“有一解”以及相应解得值,若两解得情况,则输出“有两解”以及相对应的值,若无解,则输出“无解”用嵌套方法

VB编程 输入一元二次方程的系数a,b,c判断解得情况,若一个解得话,输出“有一解”以及相应解得值,若两解得情况,则输出“有两解”以及相对应的值,若无解,则输出“无解”用嵌套方法
VB编程 输入一元二次方程的系数a,b,c判断解得情况,
若一个解得话,输出“有一解”以及相应解得值,若两解得情况,则输出“有两解”以及相对应的值,若无解,则输出“无解”
用嵌套方法

VB编程 输入一元二次方程的系数a,b,c判断解得情况,若一个解得话,输出“有一解”以及相应解得值,若两解得情况,则输出“有两解”以及相对应的值,若无解,则输出“无解”用嵌套方法
我给你关键代码：
dim a,b,c,dt,x1,x2 as single
dt=b*b-4*a*c
if dt>=0 then
if dt=0 then
msgbox("有一解")
x1=-(b/(2*a))
msgbox("x1=x2=" & x1)
else
msgbox("有两解")
x1=(-b+sqrt(dt))/2*a
x2=(-b-sqrt(dt))/2*a
msgbox("x1=" & x1 & ",x2=" & x2)
end if
else
msgbox(“无解")
end if
因为我没测试 所以你自己试试 错了改改