用VB解一元二次方程ax^2+bx+c=0的流程图
题目
用VB解一元二次方程ax^2+bx+c=0的流程图
答案
在窗体上分别放三个文本框用于输入a,b,c的值,再放一个按钮用于求解
private sub command1_click()
dim x as double,x1 as double,x2 as double,a1 as double,a2 as double
a =val(text1.text)
b =val(text2.text)
c =val(text3.text)
cls
currentx=600
currenty=1100
if a =0 then
if b =0 then
msgbox "系数为0,请重新输入!"
text1.setfocus
text1.selstart=0
text1.sellength=len(text1.text)
else
x=-c/b
print "x=";format(x,"0.000")
end if
exit sub
end if
dim n as double
n=b^2-4*a*c
select case n
case 0
print "x1=x2=";format(-b/(2*a),"0.000")
case is >0
x1=(-b+sqr(n)/(2*a)
x2=(-b-sqr(n)/(2*a)
print "x1=";format(x1,"0.000")
currentx=600
currenty=1300
print "x2=";format(x2,"0.000")
case is
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
热门考点
- 商品的进价是150元,销售价是180元,那么此商品的利润率为_.
- 一个长方形的宽是7/3米,相当于长的8/3,长方形的长是多少米?面积是多少平方米?
- 一件工程如果增加20人去做,可以提前10天完成,如果减少20人去做,则要比计划多用1/4的时间才能完成,求原计划多少人多少天可以完成?
- DNA和RNA的对比
- 求50道初一化简求值题(急)
- 位于秘鲁的安第斯山脉,山体表面的自然景观呈现明显的垂直变化.在山麓地带,主要分布着什么
- 1、神经系统的功能:是人体主要的( )机构,是( )的物质基础
- 有氧呼吸和无氧呼吸释放的CO2量相等,二者消耗的葡萄糖是不是也一样多
- 用长度相同的7根火柴首尾相连可以拼几个三角形?
- 前面有一条小路和一条大路,你会走哪条?