作业帮vb 一元二次方程 输入一元二次方程 ax^2+bx+c=0的系数a、b、c、计算并输出一元二次方程的两个根、x1、x2
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/27 22:25:33
vb 一元二次方程 输入一元二次方程 ax^2+bx+c=0的系数a、b、c、计算并输出一元二次方程的两个根、x1、x2
vb 一元二次方程
输入一元二次方程 ax^2+bx+c=0的系数a、b、c、计算并输出一元二次方程的两个根、x1、x2
vb 一元二次方程 输入一元二次方程 ax^2+bx+c=0的系数a、b、c、计算并输出一元二次方程的两个根、x1、x2
Private Sub Form_Load()
a = InputBox("a=")
b = InputBox("b=")
c = InputBox("c=")
If b ^ 2 - 4 * a * c < 0 Then
MsgBox "在实数范围内无解!"
ElseIf b ^ 2 - 4 * a * c = 0 Then
MsgBox "只有一个" & Str(-b / 2 / a )
Else
MsgBox "第一个" & Str(-b / 2 / a + Sqr(b ^ 2 - 4 * a * c) / 2 / a) & ",第二个" & Str(-b / 2 / a - Sqr(b ^ 2 - 4 * a * c) / 2 / a)
End If
End Sub