题目
用VB解一元二次方程ax^2+bx+c=0的流程图
提问时间:2021-02-14
答案
在窗体上分别放三个文本框用于输入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
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的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 1the police -----(search) the thief at the present
- 2开发公路、铁路总投资增至66亿,其中公路投资增加了20%,原计划铁路投资比公路多6亿 公铁路个投资多少亿
- 3一个七位数的数字各不相同,并且它能被11整除,这样的数中最大的是什么?
- 4√27+√1/3-(√12+√1/5-√45)
- 5英语 Jack _______ enter the competition because he thought the judges were all white,
- 6改错Is that yuor id card at the lost and found case?
- 7函数应用题:某桶装水经营部每天的房租、人员工资等固定成本为600元,每桶水的进价是10元.若每桶按11元销
- 8看不懂-_-
- 9你喜欢这本书吗?我很喜欢.用西班牙语怎么说
- 10DNA复制期间出现异常,基因会出现什么变化,产生什么样的病
热门考点
- 1判断原级比较级最高级关键词,如:than.
- 2某学校组织学生春游,如果租用若干辆45座的客车,则有15个人没有座位,如果租用同数量的60座的客车,则多出1辆,其余车恰好坐满,已知租用45座的客车日租金为每辆车250元,60座的客车
- 3电能的符号到底是什么
- 4大海给人类带来了哪些航行便利
- 5河北:1 3,2 6,3 10,4 15,这组数字有什么规律,用n表示.
- 6标况下一氧化碳与二氧化碳的混合气体共6.72升、则该混合气体中的碳原子个数是多少?为什么?
- 7在英语里女的说很好谢谢你用VERY WELL THANKYOU 如果男的说很好谢谢你 就要用IM FINE THANKS 是这样吗
- 8为什么晚上的空气要比早上的清新?
- 9如图,△ABC和△DCE都是边长为2的等边三角形,点B、C、E在同一条直线上,连接BD,则BD的长为_.
- 10已知数轴上点A和点B分别表示互为相反数的两个数a,b,且a,b两点之间的距离是8个单位长度,求a,b的值.