|
问题：【如何用VB求一元二次方程的虚数解（一定是虚数解）.】
答案：↓↓↓ 陆鸣的回答： 网友采纳 解一元二次方程的Vb程序： 在窗体上画一个命令按钮,输入下列代码,运行后可在窗体打印结果. PrivateSubCommand1_Click() dimaasdouble,basdouble,casdouble,xasstring a=inputbox("请输入系数a:") b=inputbox("请输入系数b:") c=inputbox("请输入系数c:") x=QuarEquation(a,b,c) printx endsub printefunctionQuarEquation(byvalaasdouble,byvalbasdouble,byvalcasdouble)asstring dimaasdouble,basdouble,casdouble,Pasdouble dimxrasdouble,xiasdouble,xasstring,xpasdouble dimx1asstring,x2asstring,hhasstring hh=chr(13)+chr(10) xr=-b/2 p=b^2-4*a*c selectcasep caseis>0 xp=sqr(P)/2 x1=xr+xp x2=xr-xp x="x1="&x1&";"&hh"x2="&x2 QuarEquation=x caseis=0 x="x1=x2="&xr QuarEquation=x caseis | 
