vb 一元二次方程 输入一元二次方程 ax^2+bx+c=0的系数a、b、c、计算并输出一元二次方程的两个根、x1、x2

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/29 18:58:27
vb一元二次方程输入一元二次方程ax^2+bx+c=0的系数a、b、c、计算并输出一元二次方程的两个根、x1、x2vb一元二次方程输入一元二次方程ax^2+bx+c=0的系数a、b、c、计算并输出一元

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