给你个自定义函数更方便
Function x1x2(a, b, c As Integer)
If b ^ 2 - 4 * a * c >= 0 Then
x1x2 = "x1=" & (-b + Sqr(b ^ 2 - 4 * a * c)) / 2 / a & " x2=" & (-b - Sqr(b ^ 2 - 4 * a * c)) / 2 / a
Else
MsgBox "参数输入错误，无解！"
End If
End Function
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024