VB的编程求一元二次方程的根

求一元二次方程ax^2+bx+c=0的根，系数a、b、c用赋值语句输入，设a=2b=1c=-6当判别式b^2-4ac>=0时，x1=[-b+sqr(b^2-4ac)]/2... 求一元二次方程ax^2+bx+c=0的根，系数a、b、c用赋值语句输入，设a=2 b=1 c=-6
当判别式 b^2-4ac>=0时，x1 =[-b+sqr(b^2-4ac)]/2a, x2==[-b-sqr(b^2-4ac)]/2a
不是VB,是VFP编程展开

 我来答

1个回答

#合辑# 机票是越早买越便宜吗？

艾迪康乐园
2013-10-23 · TA获得超过491个赞

知道小有建树答主

回答量：493

采纳率：0%

帮助的人：659万

我也去答题访问个人页

关注

展开全部

这里分别采用两种输入输出方法。本题的关键点是判断输入数据的合法性，特别是a不能等于0。

第一种，系数a、b、c及方程的根都采用TextBox控件输入、输出；

第二种，系数a、b、c及方程的根都采用对话框方式输入、输出；

代码如下：

'对话框输入输出法
Private Sub Command1_Click()
    Dim a As Single, b As Single, c As Single
    Dim delta As Single, x1 As Single, x2 As Single
    a = Val(InputBox("输入一元二次方程系数a"))
    If a = 0 Then
        a = InputBox("你输入的a＝0，请重新输入系数a")
    Else
        b = Val(InputBox("输入一元二次方程系数b"))
        c = Val(InputBox("输入一元二次方程系数c"))
        delta = b * b - 4 * a * c
        If delta >= 0 Then
            x1 = (-b + Sqr(delta)) / (2 * a)
            x2 = (-b - Sqr(delta)) / (2 * a)
            MsgBox a & " x^2 +" & b & " x + " & c & "的根分别为: " & x1 & " " & x2
        Else
            MsgBox "此方程无实根"
        End If
    End If
End Sub

'文本框输入输出法
Private Sub Command2_Click()
    a = Text1.Text
    If a = 0 Then
        a = InputBox("你输入的a＝0，请重新输入系数a")
    Else
        b = Text2.Text
        c = Text3.Text
        delta = b * b - 4 * a * c
        If delta >= 0 Then
            x1 = (-b + Sqr(delta)) / (2 * a)
            x2 = (-b - Sqr(delta)) / (2 * a)
            Text4.Text = x1
            Text5.Text = x2
        Else
            MsgBox "在实数范围内无解"
        End If
    End If
End Sub