在窗体上分别放三个文本框用于输入a,b,c的值,再放一个按钮用于求解

　　privatesubcommand1_click()

　　dimxasdouble,x1asdouble,x2asdouble,a1asdouble,a2asdouble

　　a=val(text1.text)

　　b=val(text2.text)

　　c=val(text3.text)

　　cls

　　currentx=600

　　currenty=1100

　　ifa=0then

　　ifb=0then

　　msgbox"系数为0,请重新输入!"

　　text1.setfocus

　　text1.selstart=0

　　text1.sellength=len(text1.text)

　　else

　　x=-c/b

　　print"x=";format(x,"0.000")

　　endif

　　exitsub

　　endif

　　dimnasdouble

　　n=b^2-4*a*c

　　selectcasen

　　case0

　　print"x1=x2=";format(-b/(2*a),"0.000")

　　caseis>0

　　x1=(-b+sqr(n)/(2*a)

　　x2=(-b-sqr(n)/(2*a)

　　print"x1=";format(x1,"0.000")

　　currentx=600

　　currenty=1300

　　print"x2=";format(x2,"0.000")

　　caseis