Do
c = Val((a + b) / 2)
If f(a) * f(c) > 0 Then '这儿的0你输成字母o了
a = c
Else: b = c
Loop Until f(a) = f(c) Or f(b) = f(c)
少了个ENDIF
Public Function f(ByVal x)
f = x ^ 3 - x ^ 4 + 4 * x ^ 2 - 1
End Function
Private Sub Command1_Click()
a = Val(1)
b = Val(0)
Do
c = Val((a + b) / 2)
If f(a) * f(c) > O Then
a = c
Else: b = c
ENDIF
Loop Until f(a) = f(c) Or f(b) = f(c)
Print c
Text1.Text = "c"
End Sub
Private Sub Command2_Click()
End
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除!