问题标题：
【用VB解一元二次方程ax^2+bx+c=0的流程图】
问题描述：
用VB解一元二次方程ax^2+bx+c=0的流程图
郭俊国回答：
在窗体上分别放三个文本框用于输入a,b,c的值,再放一个按钮用于求解
privatesubcommand1_click()
dimxasdouble,x1asdouble,x2asdouble,a1asdouble,a2asdouble
a=val(text1.text)
b=val(text2.text)
c=val(text3.text)
cls
currentx=600
currenty=1100
ifa=0then
ifb=0then
msgbox"系数为0,请重新输入!"
text1.setfocus
text1.selstart=0
text1.sellength=len(text1.text)
else
x=-c/b
print"x=";format(x,"0.000")
endif
exitsub
endif
dimnasdouble
n=b^2-4*a*c
selectcasen
case0
print"x1=x2=";format(-b/(2*a),"0.000")
caseis>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")
caseis
查看更多
八字精批
八字合婚
八字起名
八字财运
2024运势
测终身运
姓名详批
结婚吉日
