Question

有关VB的问题实验要求：设计一窗口程序,可以输入一元二次方程ax2+bx+c=0的三个系数a、b、c实验提示：充分考虑方

Answer 1

dim a,b,c ,s as integer

a=inputbox("请输入a")

b=inputbox("请输入b")

c=inputbox("请输入c")

if a=0 then

msgbox("a=0,该方程非二次方程")

end if

s=b^2-4ac

if s0 then ,msgbox("该题有两解,一：" & ((-b)+(s^(1/2))/2a & ",另一解为:"&((-b)-(s^(1/2))/2a )