代码Private Sub Command1_Click()Dim a, b, c, x1, x2
a = InputBox("a", , 2)
b = InputBox("b", , 4)
c = InputBox("c", , 1)
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)
MsgBo
|