求一元二次方程ax^2+bx+c=0的根.用VB语言怎么编?知道的都来帮帮忙,急.
来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/12 20:20:39
求一元二次方程ax^2+bx+c=0的根.用VB语言怎么编?知道的都来帮帮忙,急.
Private Sub Command1_Click()
Dim A As Single,B As Single,C As Single
Dim R1 As Single,R2 As Single
A = Val(Text1.Text)
B = Val(Text2.Text)
C = Val(Text3.Text)
If B ^ 2 - 4 * A * C < 0 Then
MsgBox "该方程无解."
ElseIf B ^ 2 - 4 * A * C = 0 Then
R1 = -B / 2 / A
MsgBox "该方程仅有一个根为" & R1 & "."
Else
R1 = (-B + Sqr(B ^ 2 - 4 * A * C)) / (2 * A)
R2 = (-B - Sqr(B ^ 2 - 4 * A * C)) / (2 * A)
MsgBox "该方程有两个根分别为" & R1 & "和" & R2 & "."
End If
End Su
Dim A As Single,B As Single,C As Single
Dim R1 As Single,R2 As Single
A = Val(Text1.Text)
B = Val(Text2.Text)
C = Val(Text3.Text)
If B ^ 2 - 4 * A * C < 0 Then
MsgBox "该方程无解."
ElseIf B ^ 2 - 4 * A * C = 0 Then
R1 = -B / 2 / A
MsgBox "该方程仅有一个根为" & R1 & "."
Else
R1 = (-B + Sqr(B ^ 2 - 4 * A * C)) / (2 * A)
R2 = (-B - Sqr(B ^ 2 - 4 * A * C)) / (2 * A)
MsgBox "该方程有两个根分别为" & R1 & "和" & R2 & "."
End If
End Su
求一元二次方程ax^2+bx+c=0的根.用VB语言怎么编?知道的都来帮帮忙,急.
一元二次方程的根 ax平方+bx+c=0 C语言 编程序
用VB解一元二次方程ax^2+bx+c=0的流程图
用数学语言描述一元二次方程ax^2+bx+c=0的根的过程
用vb做:输入一元二次方程ax^2+bx+c=0的系数abc,计算并输出一元二次方程的两个根x1,x2
编写程序,(C语言)求一元二次方程ax的2次方+bx+c=0的根
vb程序改错 求解一元二次方程(ax^2+bx+c=0)的程序
c语言编程 求一元二次方程的实数根.ax^2+bx+c=0,abc均由键盘读入.
怎样用vb求一元两次方程ax^2+bx+c=0的根?
关于VB的题 从键盘输入a,b,c,求一元二次方程Ax方 +bx+c=0 的根,如果无实根,则输出“没有实数根”
一元二次方程ax^2+bx+c=0的解x VB代码及添加的控件
一元二次方程ax^2+bx+c=0的判别式