一元二次方程ax^2+bx+c=0的解x VB怎么写?
来源:学生作业帮 编辑:拍题作业网作业帮 分类:数学作业 时间:2024/05/12 18:36:10
一元二次方程ax^2+bx+c=0的解x VB怎么写?
Private Sub Command1_Click()
Dim a As Integer,b As Integer,c As Integer
Dim m As Integer,x1 As Integer,x2 As Integer
a = Text1.Text
b = Text2.Text
c = Text3.Text
m = b ^ 2 - 4 * a * c
If a = 0 Then
Print wrong
Else
Select Case m
Case Is > 0
x1 = (-b + Sqr(m) / (2 * a))
x2 = (-b - Sqr(m) / (2 * a))
Print "不相等的两根 x1=" & x1 & ",x2=" & x2
Case 0
x1 = x2 = (-b / (2 * a))
Print "相等的两根 x1=x2 =" & x1
Case Is < 0
Print "No Real"
End Select
End If
End Su
Dim a As Integer,b As Integer,c As Integer
Dim m As Integer,x1 As Integer,x2 As Integer
a = Text1.Text
b = Text2.Text
c = Text3.Text
m = b ^ 2 - 4 * a * c
If a = 0 Then
Print wrong
Else
Select Case m
Case Is > 0
x1 = (-b + Sqr(m) / (2 * a))
x2 = (-b - Sqr(m) / (2 * a))
Print "不相等的两根 x1=" & x1 & ",x2=" & x2
Case 0
x1 = x2 = (-b / (2 * a))
Print "相等的两根 x1=x2 =" & x1
Case Is < 0
Print "No Real"
End Select
End If
End Su
一元二次方程ax^2+bx+c=0的解x VB代码及添加的控件
用VB解一元二次方程ax^2+bx+c=0的流程图
vb程序改错 求解一元二次方程(ax^2+bx+c=0)的程序
求一元二次方程ax^2+bx+c=0的根.用VB语言怎么编?知道的都来帮帮忙,急.
用vb做:输入一元二次方程ax^2+bx+c=0的系数abc,计算并输出一元二次方程的两个根x1,x2
一元二次方程ax^2+bx+c=0的判别式
若(x+5)(x-2)=ax²+bx+c,则一元二次方程ax²+bx+c=0的解是?
解关于X的一元二次方程ax²+bx+c=0
已知关于x的一元二次方程ax^2+bx+c=0 求解?
用VB编写一个解一元二次方程 AX2+BX+C=0的程序
excel求一元二次方程,ax^2+2bx+c =0,a、b、c都是已知数怎么求x
求一元二次方程ax^2+bx+c=0的解.