百科知识

电脑/网络

vb输入一元二次方程的三个系数，求该方程的根，并输出结果vb中程

2009-01-06 14:02:00b***
vb中程序题，输入一元二次方程的三个系数，求该方程的根，并输出结果vb输入一元二次方程的三个系数，求该方程的根，并输出结果vb中程序题，输入一元二次方程的三个系数，求该方程的根，并输出结果： Dim a As Integ?

最佳回答

  • Dim a As Integer, b As Integer, c As Integer, d As Long, t As Double a = 1 b = 4 c = 2 d = b * b - 4 * a * c If a = 0 Then Debug.Print "不是一元二次方程!" ElseIf d < 0 Then Debug.Print "虚根" Else t = Sqr(d) Debug.Print "x1=" & (-b + t) / (2 * a) Debug.Print "x2=" & (-b - t) / (2 * a) End If
    2009-01-09 10:12:10
    • 很赞哦！ (217)

    相关文章