作业帮 > 数学 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/22 13:31:45
用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 '判断并输出结果