二分法求近似解 哪里错了啊

Question

本帖最后由 bcrun 于 2012-11-18 11:58:44 编辑

Answer 1

首先是语法的明显错误！'先声明了一个函数（可是你为什么后面不用他呢？）
Function f(ByVal x As Single) As Double
f = x ^ 2 - 2
End FunctionPrivate Sub Command1_Click()
……
f(a) = a ^ 2 - 2'这两句的语法全错！！！
f(m) = m ^ 2 - 2
……这是程序，虽然它和数学有关，但是毕竟不是数学，除了在If语句里，“=”表示相等之外，其他都是表示赋值。那么你看一下，你说前面已经声明了一个函数Function f(ByVal x As Single) As Double，那么f(a)就是表示当自变量x取到a时，函数的值。而a ^ 2 - 2也是一个数值，那么数值赋值给数值，你想干什么？所以，正确的代码就是把我上面列出来的这两句去掉：f(a) = a ^ 2 - 2'不要！！
f(m) = m ^ 2 - 2

Answer 2

本帖最后由 bcrun 于 2013-01-19 10:43:34 编辑