求一元二次方程的根
Private Sub Command1_Click()
Dim a, b, c, x1, x2, d As Single
a = Val(InputBox("请输入a!", "输入a"))
b = Val(InputBox("请输入b!", "输入b"))
c = Val(InputBox("请输入c!", "输入c"))
d = b ^ 2 - 4 * a * c
If d < 0 Then
Print "方程没有实根!"
Else
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
Print "x1="; x1; "x2="; x2
End If
End Sub
这样可以求出来
Private Sub Command1_Click()
Dim a, b, c, x1, x2, d As Single
a = Val(InputBox("请输入a!", "输入a"))
b = Val(InputBox("请输入b!", "输入b"))
c = Val(InputBox("请输入c!", "输入c"))
d = b ^ 2 - 4 * a * c
If d > 0 Then
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
Print "x1="; x1; "x2="; x2
else if d = 0 then
x1 = (-b / 2 * a)
x2 = x1
Print "x1=x2="; x1
Else
Print "方程没有实根!"
End If
End Sub
这样else if d = 0 then这里为什么会报错
Private Sub Command1_Click()
Dim a, b, c, x1, x2, d As Single
a = Val(InputBox("请输入a!", "输入a"))
b = Val(InputBox("请输入b!", "输入b"))
c = Val(InputBox("请输入c!", "输入c"))
d = b ^ 2 - 4 * a * c
If d < 0 Then
Print "方程没有实根!"
Else
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
Print "x1="; x1; "x2="; x2
End If
End Sub
这样可以求出来
Private Sub Command1_Click()
Dim a, b, c, x1, x2, d As Single
a = Val(InputBox("请输入a!", "输入a"))
b = Val(InputBox("请输入b!", "输入b"))
c = Val(InputBox("请输入c!", "输入c"))
d = b ^ 2 - 4 * a * c
If d > 0 Then
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
Print "x1="; x1; "x2="; x2
else if d = 0 then
x1 = (-b / 2 * a)
x2 = x1
Print "x1=x2="; x1
Else
Print "方程没有实根!"
End If
End Sub
这样else if d = 0 then这里为什么会报错