用VB解一元二次方程ax^2+bx+c=0的流程图

来源：学生作业帮助网编辑：作业帮时间：2024/04/30 10:41:45

用VB解一元二次方程ax^2+bx+c=0的流程图
用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

用VB解一元二次方程ax^2+bx+c=0的流程图一元二次方程ax^2+bx+c=0的解x VB怎么写? 一元二次方程ax^2+bx+c=0的解x VB代码及添加的控件用vb做：输入一元二次方程ax^2+bx+c=0的系数abc,计算并输出一元二次方程的两个根x1,x2 vb 一元二次方程输入一元二次方程 ax^2+bx+c=0的系数a、b、c、计算并输出一元二次方程的两个根、x1、x2 用VB编写一个解一元二次方程 AX2+BX+C=0的程序求一元二次方程ax^2+bx+c=0的根.用VB语言怎么编?知道的都来帮帮忙,急. 用配方法解一元二次方程ax^2+bx+c=0(a不等于0) 解一元二次方程的公式ax²+bx+c= 一元二次方程ax^2+bx+c=0求根公式二元一次方程ax^2+bx+c的虚数解是什么?ax^2+bx+c=0,一元二次方程用配方法解一元二次方程ax^+bx=c=0(a不等于0) 用配方法解关于x的一元二次方程ax+bx+c=0! 1、编写一程序,求一元二次方程ax^2+bx+c=0(a0)的解用MATLAB求解一元二次方程ax^2 +bx+c=0的根一元二次方程ax^2+bx+c=o两实数根为2和3.求一元二次方程cx^2+bx+a=0的解怎样用vb求一元两次方程ax^2+bx+c=0的根? 一元二次方程ax²+bx+c=0的公式