用VB解一元二次方程ax^2+bx+c=0的流程图
发布网友
发布时间：2022-05-02 01:13
我来回答
共3个回答
热心网友
时间：2022-06-26 00:45
在窗体上分别放三个文本框用于输入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<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
热心网友
时间：2022-06-26 00:46
输入a,b,c
=>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 无解
热心网友
时间：2022-06-26 00:46
人家要的是流程图
用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实现一元二次方程的求解
打开VB6.0，新建一个工程，在窗体中添加两个命令按钮，caption分别改为“计算”、“输出”，将窗体Form1的caption属性改为“解一元二次方程”，添加5个标控件，将其caption属性分别改为“a”、"b”、“c”、“X1”、“X2”，添加5个文本框，并将其Text属性清空，将界面设置成下图 一元二次...
大学vb,设计应用程序求解一元二次方程ax^2+bx+c=0
List1.AddItem a & "*" & x & "^2+" & b & "*" & x & "+" & c & "=0" List1.AddItem "" End If End If Next x Next c Next b Next a使用穷举法计算
用VB编程 对于ax^2+bx+c=0来说 只要输入 abc 即可获得根
TextBox1.Text b = TextBox2.Text c = TextBox3.Text d = b ^ 2 - 4 a c If d = 0 Then TextBox4.Text = "只有一个实数解：x="& -b / (2 a)ElseIf d > 0 Then d = Math.Sqrt(d)TextBox4.Text = "有两个实数解：x1="& -(b + d)/ (2 a)& ",x2="& -(...
一元二次方程计算机解
在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程序
Dim x1, x2 As Double '方程的两个解 Dim info As String '输出结果 A = CDbl(txt1.Text)B = CDbl(txt2.Text)C = CDbl(txt3.Text)'根据b*b-4ac判断方程的解 If ((B * B - 4 * A * C) = 0) Then info = "x1=x2=" & res(A, B, C) '方程只有1解 ElseIf...
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 ...
用VB怎么编一元二次方程计算?
利用公式法来解Private Sub Command1_Click()Dim a As Double, b As Double, c As Double a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If a = 0 Then MsgBox "a不能为0"GoTo r End If If b ^ 2 - 4 * a * c < 0 Then Label1.Caption = "实数范围内无...
怎样用vb设计一个解方程的程序
这是不好办的。用vb解方程不是一个好办法。你可以使用sas、mathmatics等等的软件。如果你硬要用vb的话，可以去参考一下牛顿-莱布尼兹迭代法等解多次方程的方法。
如何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 ...
