VF常见20道程题.docVIP

1、求解AX+BX+C=0的根、其中A、B、C三个参数由键盘输入。一元二次方程的求根公式是：X=-b±√b2-4ac/2a clear text 一元二次方程求解 ax^2+bx+c=0 endtext input 请输入a的值： to a input 请输入b的值： to b input 请输入c的值： to c m=b*b-4*a*c if m=0 x1=(-b+sqrt(m))/(2*a) x2=(-b-sqrt(m))/(2*a) ?x1的值是：,x1 ?x2的值是：,x2 else ?此方程无实根! endif 2、编写程序将1-100之间所有能被7和3整除的整数输出 clear for i=1 to 100 if i%3=0 and i%7=0 ??i endif endfor 3、编写程序计算e，e的近似值计算公式为： e=1+1/1!+1/2!+1/3!+...+1/n!，直到1/n!0.000001为止 e=1 n=1 do while .t. k=1 for i=1 to n k=k*i endfor m=1/k e=e+m if m0.000001 exit endif n=n+1 enddo ?e=1+1/1!+1/2!+1/3!+…+1/n!=,e 4、编写