用VB程序编写:问题;创建一个工程来计算一元二次方程的根.要求 输入一元二次方程的系数,求出方程的根
首页/题库/156℃/2024-07-05 04:26:16
优质解答:
创建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 '判断并输出结果
我来回答修改/报错/举报内容!
猜你喜欢
- 【 】is good for your health A ,Walk B,walking C walk D
- 0,2)}和{1,0,2}有何区别
- 英语翻译,在线等,快,好的加分,句子如下
- 汉武帝如何加强中央集权制?结果如何?
- 第一道应用题.怎么算?急
- 初一下英语填空句子II.Choose the right words to complete the sentences
- 怎么样才能更快,更有效得记住外语单词,而且不易忘记?
- 如图所示,质量为4kg的物体静止于水平面上,物体与水平面间的动摩擦因数为0.5,物体受到大小为20N,与水平方向成37°
- A.B.C.D.E五种物质的焰色反应都显黄色,A.B与水反应都有气体放出,A与水的反应放出的气体具有氧化性,
- 每年有三千两百多万乘坐飞机出行,所以英国航空公司是繁忙的国际航空公司之一英语怎么说
- 下面这段话对吗?函数上的一个点的左导数和右导数相等,那么函数在这一点是可导的,又因为可导一定连续,那么函数在这一点连续.
- 怎样在matlab中编制一个命令式文件,计算100以内质数之和.