解一元二次方程的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