Private Sub Command1_Click()
Dim a, b, c As Integer
Dim x1, x2 As Single
a = Val(InputBox("a=", "输入二次项系数"))
b = Val(InputBox("b=", "输入一次项系数"))
c = Val(InputBox("c=", "输入常数项"))
delta = b * b - 4 * a * c
If delta < 0 Then
Print "此方程无实根"
Else
x1 = -b + Sqr(delta) / 2 * a
x2 = -b - Sqr(delta) / 2 * a
Print "x1="; x1, "x2="; x2
End If
End Sub
Private Sub Command2_Click()
Cls
End Sub
Private Sub Command3_Click()
End
End Sub