(求助)解一元二次方程(包括复根)

lcl99315

很简单,这样子做

Private Sub cmdRun_Click()
    Dim A#, B#, C#
    Dim D#, X1#, X2#
    A = Val(txtA.Text)
    B = Val(txtB.Text)
    C = Val(txtC.Text)
    If A <> 0 Then
       D = B ^ 2 - 4 * A * C
       If D < 0 Then
           MsgBox "出错！B^2-4*A*C < 0"
       Else
           X1 = (-B + Sqr(D)) / 2 * A
           X2 = (-B - Sqr(D)) / 2 * A
       End If
    ElseIf B <> 0 Then
       X1 = -C / B
    Else
        MsgBox "出错！A=0,B=0"
    End If
    txtX1.Text = X1
    txtX2.Text = X2
End Sub

Private Sub Form_Load()
    txtA = 1: txtB = -4: txtC = 4
    cmdRun_Click
End Sub