外部名未定义？？ 我想编 解 aX2+bX+c=0 一元二次方程的 程序 帮我改改

Private Sub Command1_Click()
Dim a As Single
Dim b As Single
Dim c As Single
Dim d As Single
Dim e As Single
Dim f As Single
Dim X1 As Single
Dim X2 As Single
a = InputBox("a=", "请输入a")
b = InputBox("b=", "请输入b")
c = InputBox("c=", "请输入c")
d = b * b - 4 * a * c
If d < 0 Then: Print "此方程的解为无解"
[Else: e = (-b - Sqr(d)) / (2 * a)f = (-b + Sqr(d)) / (2 * a) Print "此方程的解为 X1=e X2=f"]
End If
End Sub

你这样好像不行吧？？用一个输入的例子就来断定所有的解！我个人觉得行不通！！

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息