二分法求近似解 哪里错了啊
--------------------编程问答-------------------- 首先是语法的明显错误！
'先声明了一个函数（可是你为什么后面不用他呢？）
Function f(ByVal x As Single) As Double
f = x ^ 2 - 2
End Function
Private 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
补充：VB , 基础类
