精选VFP常见编程实例.doc

《精选VFP常见编程实例.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、精选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、求一个班级每个学生的平均

2、成绩计算一个班级共三十名学生，每位学生5门功课的平均成绩13、计算圆的面积14、将小写字母转换为大写字母NOTE请将任意输入的一个小写字母转换成大写字母，也就是upper()函数的程序实现15、找出最大数和最小数16、绝对值函数的实现17、绝对值函数实现的另一种方法18、输出成绩等级19、求一名学生的平均成绩求一个学生5门功课的平均成绩20、用数组的方法，计算一个学生的平均成绩用数组保存一个学生五门功课的成绩，然后再计算机其平均成绩21、用docase语句实现符号函数的功能请输入一个数，当这个数是负数，就返回-1

3、，当这个数是零，就返回零，当这个数是正数，就返回122、用一般选择语句实现符号函数的功能符号函数的实现23、用简单选择语句实现符号函数功能符号函数的实现24、打开数据库和数据表25、显示表中指定信息26、询问后再由用户按（Y/N)键执行的程序实现求任意一个数的阶乘27、根据exact的设置进行字符串匹配比较exact设置的变化对取值结果的影响28、使一个多位正整数逆序排列29、按编号查找并列出一条记录30、打开一个数据库，并显示其中的表内容31、验证密码程序32、编程求税金33、用三角形列出乘法口诀表34、将变量

4、A、B值互换35、找出已知三个数的中间数36、用参数传递计算圆的面积37、我国古代数学家张丘建在“算经”里提出一个世界数学史上有名的百鸡问题：鸡翁一，值钱五，鸡母一，值钱三，鸡雏三，值钱一，百钱买百鸡，问鸡翁，母，雏各几何?1、1-100的累加求1到100的累加值CLEARs=0i=1DOWHILEi<=100s=s+ii=i+1&&一定记住先累加后循环ENDDO?sRETURN2、阶乘求5的阶乘CLEARj=1i=1DOWHILEi<=5j=j*ii=i+1ENDDO?jRETURN3、求阶乘和求1至5的阶乘和

5、CLEARs=0i=1j=1DOWHILEi<=5j=j*is=s+ji=i+1ENDDO?sRETURN4、条件定位查询定位记录指针在赵伟上CLEARUSE学生LOCATEFOR姓名="赵伟"IFFOUND()DISPLAYELSECANCELENDIFCONTINUE5、用scan语句查询定位用scan语句查询定位记录在赵伟上CLEARSCANFOR姓名="赵伟"DISPLAYENDSCANRETURN6、用scan语句扫描符合条件的记录，并显示出来把年龄小于30岁的人显示出来CLEARSCANFOR年龄<3

6、0DISPLAYENDSCANRETURN7、查找男性职工查找男性职工CLEARLOCATEFOR性别="男"DOWHILEFOUND()DISPLAYCONTINUEENDDORETURN查找男性职工CLEARLOCATEFOR性别="男"DOWHILENOTEOF()DISPLAYCONTINUEENDDORETURN查找男性职工CLEARUSE职员基本信息表LOCATEFOR性别="男"DOWHILE.t.IFFOUND()thenDISPLAYELSE　&&记住最后一个ELSE语句后面不需要条件表达式CA

7、NCELENDIFCONTINUEENDDO查找男性职工settalkoffclearopendatabase家庭成员管理.dbcusestu.dbfscanfornoteof()ifxb="女"skipelsedisplayskipendifendscanclosedatabaseusesettalkonreturn8、新值换旧值有一对新生的兔子，从第三个月开始，每个月出生一对兔子，请问到第十二个月共出生多少对兔子？clearstore1toa,bi=3dowhilei<=12c=a+ba=bb=ci=i+1e

8、nddo?"一年共出生兔子：",creturn9、多位整数各个位数相加CLEARs=0input"请输入一个多位整数:"toaDOWHILEa<>0s=s+MOD(a,10)&&将a取余正好是个位上的数a=INT(a/10)&&将a除10取整正好是除个位之后的数ENDDO?"这个整数的各个位数之和是：",sRETURN10、找100-999之间的“水仙花数”CLEARFO