用VB程序编写：问题;创建一个工程来计算一元二次方程的根.要求 输入一元二次方程的系数,求出方程的根

创建text1,text2,text3dim a,b,c,x1,x2 '声明变量val(text1.text)=aval(text2.text)=bval(text3.text)=c '给变量赋值if b^2-4ac>=0 then x1=(-b+sqr(b^2-4ac))/2ax2=(-b-sqr(b^2-4ac))/2a '利用求根公式计算print "...