VFP 常见编程实例 1、1-100的累加 ** 求1到100的累加值 CLEAR s=0 i=1 DO WHILE i<=100 s=s+i i=i+1 &&一定记住先累加后循环 ENDDO s RETURN 2、阶乘 ** 求5的阶乘 CLEAR j=1 i=1 DO WHILE i<=5 j=j*i i=i+1 ENDDO j RETURN 3、求阶乘和 ** 求1至5的阶乘和 CLEAR s=0 i=1 j=1 DO WHILE i<=5 j=j*i s=s+j i=i+1 ENDDO s RETURN 4、条件定位 ** 查询定位记录指针在赵伟上 CLEAR USE 学生 LOCATE FOR 姓名="赵伟" IF FOUND() DISPLAY ELSE CANCEL ENDIF CONTINUE 5、用 scan 语句查询定位 ** 用 scan 语句查询定位记录在赵伟上 CLEAR SCAN FOR 姓名="赵伟" DISPLAY ENDSCAN RETURN 6、用 scan 语句扫描符合条件的记录，并显示出来 ** 把年龄小于30岁的人显示出来 CLEAR SCAN FOR 年龄<30 DISPLAY ENDSCAN RETURN 7、查找男性职工 ** 查找男性职工 CLEAR LOCATE FOR 性别="男" DO WHILE FOUND() DISPLAY CONTINUE ENDDO RETURN ** 查找男性职工 CLEAR LOCATE FOR 性别="男" DO WHILE NOT EOF() DISPLAY CONTINUE ENDDO RETURN ** 查找男性职工 CLEAR USE 职员基本信息表 LOCATE FOR 性别="男" DO WHILE .t. IF FOUND() then DISPLAY ELSE &&记住最后一个 ELSE 语句后面不需要条件表达式 CANCEL ENDIF CONTINUE ENDDO ** 查找男性职工 set talk off clear open database 家庭成员管理.dbc use stu.dbf scan for not eof() if xb="女" skip else display skip endif endscan close database use set talk on return 8、新值换旧值 ** 有一对新生的兔子，从第三个月开始，每个月出生一对兔子，请问到第十二个月共出生多少对兔子？ clear store 1 to a,b i=3 do while i<=12 c=a+b a=b b=c i=i+1 enddo " 一年共出生兔子：",c return 9、多位整数各个位数相加 ** 求多位整数各个位数之和 CLEAR s=0 input "请输入一个多位整数:" to a DO WHILE a<>0 s=s+MOD(a,10) &&将a 取余正好是个位上的数 a=INT(a/10) &&将a 除10取整正好是除个位之后的数 ENDDO " 这个整数的各个位数之和是：",s RETURN 10、找100-999之间的“水仙花数” CLEAR FOR i=100 TO 999 a=INT(i/100) b=INT((i-100*a)/10) c=i-INT(i/10)*10 IF i=a^3+b^3...
