00-精选VFP常见编程实例.docVIP

精选VFP常见编程实例 1、1-100的累加 2、阶乘 求5的阶乘 3、求阶乘和 求1至5的阶乘和 4、条件定位 查询定位记录指针在赵伟上 5、用scan语句查询定位 用scan语句查询定位记录在赵伟上 6、用scan语句扫描符合条件的记录，并显示出来 把年龄小于30岁的人显示出来 7、查找男性职工 查找男性职工 8、新值换旧值 有一对新生的兔子，从第三个月开始，每个月出生一对兔子，请问到第十二个月共出生多少对兔子？ 9、多位整数各个位数相加 10、找100-999之间的“水仙花数” 11、判断一个大于3的数是否为素数 12、求一个班级每个学生的平均成绩 计算一个班级共三十名学生，每位学生5门功课的平均成绩 13、计算圆的面积 14、将小写字母转换为大写字母 NOTE 请将任意输入的一个小写字母转换成大写字母，也就是upper()函数的程序实现 15、找出最大数和最小数 16、绝对值函数的实现 17、绝对值函数实现的另一种方法 18、输出成绩等级 19、求一名学生的平均成绩 求一个学生5门功课的平均成绩 20、用数组的方法，计算一个学生的平均成绩 用数组保存一个学生五门功课的成绩，然后再计算机其平均成绩 21、用do case语句实现符号函数的功能 请输入一个数，当这个数是负数，就返回-1，当这个数是零，就返回零，当这个数是正数，就返回1 22、用一般选择语句实现符号函数的功能 符号函数的实现 23、用简单选择语句实现符号函数功能 符号函数的实现 24、打开数据库和数据表 25、显示表中指定信息 26、询问后再由用户按（Y/N)键执行的程序实现 求任意一个数的阶乘 27、根据exact的设置进行字符串匹配比较 exact设置的变化对取值结果的影响 28、使一个多位正整数逆序排列 29、按编号查找并列出一条记录 30、打开一个数据库，并显示其中的表内容 31、验证密码程序 32、编程求税金 33、用三角形列出乘法口诀表 34、将变量A、B值互换 35、找出已知三个数的中间数 36、用参数传递计算圆的面积 37、我国古代数学家张丘建在“算经”里提出一个世界数学史上有名的百 鸡问题：鸡翁一，值钱五，鸡母一，值钱三，鸡雏三，值钱一，百钱买 百鸡，问鸡翁，母，雏各几何? 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、新值换旧值 有一对新生的兔子，从第三个月开始，每个月出生一对兔子，请问到第十二个月共出生多少对兔