求教VB编程

来源：百度知道 编辑：UC知道 时间：2024/06/13 01:27:40
编程求解一元二次方程（ax^2+bx+c=0），要求考虑所有可能情况（只剩6分了，先谢谢各位了！）

大致的代码：
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
Dim x1 As Single, x2 As Single, st As Single
a = Val(Text1): b = Val(Text2): c = Val(Text3)
If a < 10 ^ -6 Then
x1 = x2 = -c / b
Else
st = b * b - 4 * a * c
If st = 0 Then
x1 = x2 = (-b) / (2 * a)
ElseIf st < 0 Then
MsgBox "不存在实根"
Exit Sub
ElseIf st > 0 Then
x1 = (-b + Sqr(st)) / (2 * a)
x2 = (-b - Sqr(st)) / (2 * a)
End If
End If
Label1.Caption = "x1=" & x1 & " x2=" & x2
End Sub