高校问答贪婪洞窟攻略80层boss:这是一个求解一元二次方程组解的程序。可是运行的结果全是负数。帮我修改一下嘛!!!!!
来源：百度文库 编辑：高校问答 时间：2024/04/28 00:07:12
Private Sub Form_Click()
a = InputBox("请输a入的值:")
a = Val(a)
b = InputBox("请输b入的值:")
b = Val(b)
c = InputBox("请输c入的值:")
c = Val©
If b ^ 2 - 4 * a * c > 0 Then
x = ((-b) + Sqr(b ^ 2 - 4 * a * c)) / 2 * a
y = ((-b) - Sqr(b ^ 2 - 4 * a * c)) / 2 * a
Print "当"; "a = "; a, "b = "; b, "c = "; c; "时", Chr$(13) + Chr$(10) _
; "方程ax^2+bx+c=0的解:"; " x = "; x, "; y = "; y; ""
Else
Print "输入错误?????,方程无解"
End If
End Sub
a = InputBox("请输a入的值:")
a = Val(a)
b = InputBox("请输b入的值:")
b = Val(b)
c = InputBox("请输c入的值:")
c = Val©
If b ^ 2 - 4 * a * c > 0 Then
x = ((-b) + Sqr(b ^ 2 - 4 * a * c)) / 2 * a
y = ((-b) - Sqr(b ^ 2 - 4 * a * c)) / 2 * a
Print "当"; "a = "; a, "b = "; b, "c = "; c; "时", Chr$(13) + Chr$(10) _
; "方程ax^2+bx+c=0的解:"; " x = "; x, "; y = "; y; ""
Else
Print "输入错误?????,方程无解"
End If
End Sub
c = Val© ???
程序有点写错了
把 c = Val© 改成 c = Val（c）