用vb6.0如何编程算这个方程?㏑（x+1）-x=-a（a为常量,x为未知数）,因为要处理大批数据,而且时间有限,人工算

double fun(double x,double a){return x-log(x+1)-a;}
int main(){
double x=1.0,y=0.0;
double a;
double epsilon=0.00001;//误差项
scanf("%lf",&a);
while(a>0){
while(fabs(fun(x))