vb编写程序f(x)=0 x