Question

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

Answer 1

创建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 '判断并输出结果