《2022年VFP常见编程实例》由会员分享，可在线阅读，更多相关《2022年VFP常见编程实例（28页珍藏版）》请在金锄头文库上搜索。
1、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 精品p d f 资料 - - - 欢迎下载 - - - - - - - - - - - - - - -第 1 页，共 28 页 - - - - - - - - - - 精品p d f 资料 - - - 欢迎下载 - - - - - - - - - - - - - - -第 1 页，共 28 页 - - - -
2、- - - - - - 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、条件定位精品p d f 资料 - - - 欢迎下载 - - - - - - - - - - - - - - -第 2 页，共 28 页 - - - - - - - - - - 精品p d f 资料 - - - 欢迎下载 - - - - - - - - - - - - - - -第 2 页，共 28 页 - - - - - - - - - - * 查询定位记录指针在
3、赵伟上CLEAR USE 学生LOCATE FOR 姓名=赵伟 IF FOUND() DISPLAY ELSE CANCEL ENDIF CONTINUE 5、用 scan 语句查询定位* 用 scan 语句查询定位记录在赵伟上CLEAR SCAN FOR 姓名=赵伟 DISPLAY ENDSCAN RETURN 6、用 scan 语句扫描符合条件的记录，并显示出来* 把年龄小于 30岁的人显示出来精品p d f 资料 - - - 欢迎下载 - - - - - - - - - - - - - - -第 3 页，共 28 页 - - - - - - - - - - 精品p d f 资料 - -
4、- 欢迎下载 - - - - - - - - - - - - - - -第 3 页，共 28 页 - - - - - - - - - - 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 精品p d f 资料 - - - 欢迎下载 - - - - - - - -
5、 - - - - - - -第 4 页，共 28 页 - - - - - - - - - - 精品p d f 资料 - - - 欢迎下载 - - - - - - - - - - - - - - -第 4 页，共 28 页 - - - - - - - - - - ENDDO RETURN * 查找男性职工CLEAR USE 职员基本信息表LOCATE FOR 性别=男 DO WHILE .t. IF FOUND() then DISPLAY ELSE & 记住最后一个 ELSE语句后面不需要条件表达式 CANCEL ENDIF CONTINUE ENDDO * 查找男性职工 set talk o
6、ff clear open database 家庭成员管理 .dbc use stu.dbf 精品p d f 资料 - - - 欢迎下载 - - - - - - - - - - - - - - -第 5 页，共 28 页 - - - - - - - - - - 精品p d f 资料 - - - 欢迎下载 - - - - - - - - - - - - - - -第 5 页，共 28 页 - - - - - - - - - - scan for not eof() if xb=女 skip else display skip endif endscan close database use se
7、t talk on return 8、新值换旧值* 有一对新生的兔子，从第三个月开始，每个月出生一对兔子，请问到第十二个月共出生多少对兔子？clear store 1 to a,b i=3 do while i=12 c=a+b a=b 精品p d f 资料 - - - 欢迎下载 - - - - - - - - - - - - - - -第 6 页，共 28 页 - - - - - - - - - - 精品p d f 资料 - - - 欢迎下载 - - - - - - - - - - - - - - -第 6 页，共 28 页 - - - - - - - - - - b=c i=i+1 end
8、do ?一年共出生兔子： ,c return 9、多位整数各个位数相加* 求多位整数各个位数之和CLEAR s=0 input 请输入一个多位整数 : to a DO WHILE a0 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) 精品p d f 资料 - - - 欢迎下载 - - - - - - - - - - - - - - -第 7 页，共 2
9、8 页 - - - - - - - - - - 精品p d f 资料 - - - 欢迎下载 - - - - - - - - - - - - - - -第 7 页，共 28 页 - - - - - - - - - - b=INT(i-100*a)/10) c=i-INT(i/10)*10 IF i=a3+b3+c3 ?i ENDIF ENDFOR RETURN 11、判断一个大于 3的数是否为素数CLEAR input 请输入一个数 (=3): to s f=0 i=2 DO WHILE i=INT(SQRT(s) IF MOD(s,i)0 i=i+1 LOOP ELSE f=1 EXIT EN
10、DIF ENDDO 精品p d f 资料 - - - 欢迎下载 - - - - - - - - - - - - - - -第 8 页，共 28 页 - - - - - - - - - - 精品p d f 资料 - - - 欢迎下载 - - - - - - - - - - - - - - -第 8 页，共 28 页 - - - - - - - - - - IF f=0 ?str(s,3)+是素数 ELSE f=1 &这个表达式可有可无，为了省事完全省略也可以。一般最后一个 ELSE语句后面不需要表达式 ?str(s,3)+不是素数 ENDIF RETURN 12、求一个班级每个学生的平均成绩*
11、计算一个班级共三十名学生，每位学生5门功课的平均成绩CLEAR & 清屏DIMENSION x(30,5) & 定义一个数组变量， r 为学生数， i 为功课数r=1 & 给30个学生的计数变量r 赋初值 1 DO WHILE r=30 & 循环30次，以计算出 30个学生的平均成绩 s=0 & 为学生一门功课成绩赋初值0 i=1 & 为五门功课计数变量赋初值1 DO WHILE i=97 AND k=122 then & 97是小写字母 a 的 ASC码值，122是小写字母 z 的 ASC码值?x, 的大写字母是 ,CHR(k-32) & 输出大写字母 .chr 函数是 ASC精品p d f
12、 资料 - - - 欢迎下载 - - - - - - - - - - - - - - -第 10 页，共 28 页 - - - - - - - - - - 精品p d f 资料 - - - 欢迎下载 - - - - - - - - - - - - - - -第 10 页，共 28 页 - - - - - - - - - - 码所对应的字符ELSE WAIT 您输入的不是小写字母 WINDOW TIMEOUT 5 cancel ENDIF RETURN & 返回到调用程序15、找出最大数和最小数CLEAR input 请输入一个数： to x STORE x TO ma,mi FOR i=2 T
13、O 10 &因为已经输入一个数X，所以循环次数只有9次input 请输入一个数： to x IF max mi=x ENDIF ENDFOR ?最大数是： ,ma 精品p d f 资料 - - - 欢迎下载 - - - - - - - - - - - - - - -第 11 页，共 28 页 - - - - - - - - - - 精品p d f 资料 - - - 欢迎下载 - - - - - - - - - - - - - - -第 11 页，共 28 页 - - - - - - - - - - ?最小数是： ,mi RETURN 16、绝对值函数的实现* 绝对值函数的实现CLEAR inp
14、ut 请输入一个数值 to n IF n=0 ?n ELSE ?-n ENDIF CANCEL 17、绝对值函数实现的另一种方法* 绝对值函数和另一种实现方法CLEAR input 请输入一个数值 to n ?IIF(n=0,n,-n) CANCEL 18、输出成绩等级精品p d f 资料 - - - 欢迎下载 - - - - - - - - - - - - - - -第 12 页，共 28 页 - - - - - - - - - - 精品p d f 资料 - - - 欢迎下载 - - - - - - - - - - - - - - -第 12 页，共 28 页 - - - - - - - -
15、 - - * 用 DO CASE 语句实现：CLEAR input 请输入一个成绩 to cj DO case CASE cj=90 dj=优秀 CASE cj=80 dj=良好 CASE cj=60 dj=合格 OTHERWISE dj=不合格 ENDCASE ?dj RETURN * 用 IF 语句实现：set talk off clear input 请输入一个成绩： to s if s=90 grade=优秀 精品p d f 资料 - - - 欢迎下载 - - - - - - - - - - - - - - -第 13 页，共 28 页 - - - - - - - - - - 精品p
16、d f 资料 - - - 欢迎下载 - - - - - - - - - - - - - - -第 13 页，共 28 页 - - - - - - - - - - else if s=80 grade=良好 else if s=60 grade=及格 else grade=不及格 endif endif endif ?ltrim(str(s)+分对应的等级是： +grade set talk on return 19、求一名学生的平均成绩* 求一个学生 5门功课的平均成绩CLEAR s=0 i=1 DO WHILE i=5 input 请输入各门功课的成绩 to x s=s+x 精品p d f 资料 - - - 欢迎下载 - - - - - - - - - - - - - - -第 14 页，共 28 页 - - - - - - - - - - 精品p d f 资料 - - - 欢迎下载 - - - - - - - - - - - - - - -第 14 页，共 28 页 - - - - - - - - - - i=i+1 ENDDO ?s/5 20、用数组的方法，计算一个学生的平均成绩
