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<0
a1 = -b/(2*a)
a2 = sqr(abs(n))/(2*a)
print "x1=";format(a1,"0.000");"+";format(a2,"0.000");"i"
currentx=600
currenty=1300
print "x2=";format(a1,"0.000");"-";format(a2,"0.000");"i"
end select
end sub
=>d=b*b-4*a*c
d<0? ----Y=>输出"无实数根"
N=>x1=(-b+sqr(d))/(2*a)
x2=(-b-sqr(d))/(2*a)
=>输出x1,x2
若题目有要求判断a,b,c
a=0,b<>0 x=-c/b
a=0,b=0,c=0 无数解
a=0,b=0,c<>0 无解
用VB解一元二次方程ax^2+bx+c=0的流程图
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.s...
VB6.0实现一元二次方程的求解
一元二次方程的基本形式是：ax^2+bx+c=0，其中a不等于0。 程序中的a、b、c分别与上式中的系数对应，X1、X2表示两个根。 程序的思路是：先判断方程有无实数解(b^2-4ac大于等于0)，有的话就用求根公式进行求解。双击窗体Form1，进入代码编辑窗口，在 通用段对变量进行定义。 Dim a As Singl...
大学vb,设计应用程序求解一元二次方程ax^2+bx+c=0
a * x ^ 2 + b * x + c = 0 Then List1.AddItem "a=" & a & " b= " & b & " c=" & c & " x=" & x List1.AddItem a & "*" & x & "^2+" & b & "*" & x & "+" & c & "=0" List1.AddItem "" End If End ...
vb程序改错 求解一元二次方程(ax^2+bx+c=0)的程序
a=InputBox ("a=")b=InputBox ("b=")c=InputBox ("c=")第二个：x1 = (-b - d)\/ (2 a)应该是 x2 = (-b - d)\/ (2 a)另外d有开方过程 ，最好设为 double而不是 integer 最好再加个判断判别式的过程：Private Sub Command1_Click()Dim a As Integer,b As Integer,c As...
一元二次方程计算机解
在VB编程中，可以使用以下代码来实现一元二次方程的求解。这个代码适用于一般形式的一元二次方程 ax^2 + bx + c = 0，并会以对话框的形式显示解的结果。首先，需要定义变量a、b和c，以及可能的解x1和x2，例如：vbDim a As Double, b As Double, c As Double, x1 As Double, x2 As ...
VB程序编程:画出求一元二次方程的流程图
以下是画一元二次方程的图的代码：（假设y=a*x^2+b*x+c，将窗口的大小调为4800×4800）Private Sub Command1_Click()Cls Line (0, 2400)-(4800, 2400), RGB(255, 0, 0)Line (2400, 0)-(2400, 4800), RGB(255, 0, 0)Dim x Dim xx Dim y Dim yy Dim a Dim b Dim c a ...
...b,c的值,编程求解一元二次方程ax^2+bx+c=0的根
界面的abc输入托文本框获取把Private Sub Command1_Click() 。Dim a As Single, b As Single, c As Single, t As Double a = Val (Text1.Text) b = Val (Text2.Text)。含义及特点：（1）一元二次方程的解（根）的意义：能使一元二次方程左右两边相等的未知数的值称为一元二次方程...
用vb做:输入一元二次方程ax^2+bx+c=0的系数abc,计算并输出一元二次方 ...
a ,b,c,x1,x2,d a =val(inputbox("请输入系数a"))b =val(inputbox("请输入系数b"))c =val(inputbox("请输入系数c"))d=b^2-4*a*c if d>0 then x1=(-b+sqr(d))\/2 x2=(-b-sqr(d))\/2 elseif d=0 then x1=-b\/2 x2=x1 else msgbox "方程无实根！"end if ...
如何利用VB解一元二次方程
你知道一元二次方程求根公式吗？直接用就行了 方程aX^2+bX+c=0 解为 X1 = (-b + Sqr(b * b - 4 * a * c)) \/ 2.0 * a X2 = (-b - Sqr(b * b - 4 * a * c)) \/ 2.0 * a 其实应该先判断一下b * b - 4 * a * c是否小于零，但你又说不用IF 等复杂结构...
用VB编写求一元二次方程的代码是什么?
'求一元二次方程的跟ax^2+bx+c=0 Private Sub Command1_Click()Dim a#, b#, c#, gen a = InputBox("输入A的值")b = InputBox("输入B的值")c = InputBox("输入C的值")If a = 0 And b = 0 And c = 0 Then Print "x的值是全体实数."ElseIf a = 0 And b = 0 And ...
