用VB 程序解决方程问题

你这是一元二次，不是一元一次。 

Option Explicit

'公式法：把一元二次方程化成ax^2+bx+c的一般形式，

'然后把各项系数a, b, c的值代入求根公式就可得到方程的根。

'当b^2-4ac>0时，求根公式为x1=[-b+√(b^2-4ac)]/2a,x2=[-b-√(b^2-4ac)]/2a（两个不相等的实数根）

'当b^2-4ac=0时，求根公式为x1=x2=-b/2a（两个相等的实数根）

'当b^2-4ac<0时，求根公式为x1=[-b+√(4ac-b^2)i]/2a,x2=[-b-√(4ac-b^2)i]/2a（两个共轭的虚数根）（初中理解为无实数根）

Private Sub selectAll(obj As TextBox)

    obj.SelStart = 0

    obj.SelLength = Len(obj.Text)

End Sub

Private Sub Command1_Click()

On Error GoTo CMDCLICK_ERROR

    Dim a As Double

    Dim b As Double

    Dim c As Double

    Dim x1 As Double

    Dim x2 As Double