VB作业请教

来源：百度知道 编辑：UC知道 时间：2024/06/05 04:59:24
求方程AX*X+BX+C=0的解，用三个函数分别求当：
B*B-4AC>0,B*B-4AC=0,B*B-4AC<0时的根，在窗体上的文本框中输入A，B，C的值，并显示运算的结果

Dim ww As float,yy As float
Inputbox(在文本框中输入数据：)，A，B，C
Private Sub Text1_Click()
ww=B*B-4*A*C
If ww>0 elseif printyy 'yy是该一元二次方程的解 你自己求吧
If ww=0 elseif print yy
if ww<0 elseif print yy
End SUB

dim x#,y#,a#,b#,c#
a=val(text1.text)
b=val(text2.text)
c=val(text3.text0
if b*b-4*a*c<0 then
label1.cption="无解"
end if

if b*b-4*a*c=0 then
x=-b/2*a
label1.cption "x=" & x & "y=" & x
end if

if b*b-4*a*c>0 then
x=(-b-sqr(b*b-4*a*c)/2*a
y=(-b+sqr(b*b-4*a*c)/2*a
label1.cption "x=" & x & "y=" & y
end if