Private Sub Command1_Click()
a = Val(InputBox("a = ", " 二次项系数"))
b = Val(InputBox("b = ", "一次项系数"))
c = Val(InputBox("c= ", "常数"))
If b ^ 2 - 4 * a * c < 0 Then
MsgBox ("此式无解")
Else
X1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
X2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
Print "x1="; X1, "x2="; X2
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
End Sub