输入一元二次方程ax2+bx+c=0系数a,b,c的值,计算并输出一元二次方程的两个根x1和x2.
Private Sub Command1_Click()
Dim a%,b%,c%,,x1!,x2!
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
d = b ^ 2 - 4 * a * c
If d >= o Then
x1 = (-b + d ^ 1 / 2) / (2 * a)
x2 = (-b - d ^ 1 / 2) / (2 * a)
MsgBox "x1=" & x1
Else
MsgBox "No Root!"
End If
End Sub
到底错在哪里,