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

创建text1,text2,text3
dim a,b,c,x1,x2 '声明变量
val(text1.text)=a
val(text2.text)=b
val(text3.text)=c '给变量赋值
if b^2-4ac>=0 then
x1=(-b+sqr(b^2-4ac))/2a
x2=(-b-sqr(b^2-4ac))/2a '利用求根公式计算
print "方程的解为：" & x1 & ";" & x2
else
print "方程没有实数解"
end if '判断并输出结果