VFP常见编程37例文档格式.docx

1、307、查找男性职工* 查找男性职工LOCATE FOR 性别=男DO WHILE FOUND（） CONTINUEDO WHILE NOT EOF（）USE 职员基本信息表DO WHILE .t. IF FOUND（） then ELSE&记住最后一个ELSE语句后面不需要条件表达式* 查找男性职工set talk offclearopen database 家庭成员管理.dbcuse stu.dbfscan for not eof（）if xb=女skipelsedisplayendifendscanclose databaseuseset talk onreturn8、新值换旧值* 有一

2、对新生的兔子，从第三个月开始，每个月出生一对兔子，请问到第十二个月共出生多少对兔子？store 1 to a,bi=3do while i=12c=a+ba=bb=cenddo一年共出生兔子：,c9、多位整数各个位数相加* 求多位整数各个位数之和input 请输入一个多位整数: to aDO WHILE as=s+MOD（a,10）将a取余正好是个位上的数a=INT（a/10）将a除10取整正好是除个位之后的数这个整数的各个位数之和是：,s10、找100-999之间的“水仙花数”FOR i=100 TO 999 a=INT（i/100） b=INT（i-100*a）/10） c=i-INT（i

3、/10）*10 IF i=a3+b3+c3 ?i ENDIFENDFOR11、判断一个大于3的数是否为素数请输入一个数（=3）: to sf=0i=2=INT（SQRT（s） IF MOD（s,i） i=i+1 LOOP ELSE f=1 EXIT IF f=0str（s,3）+是素数 ELSE f=1&这个表达式可有可无，为了省事完全省略也可以。一般最后一个ELSE语句后面不需要表达式不是素数12、求一个班级每个学生的平均成绩* 计算一个班级共三十名学生，每位学生5门功课的平均成绩CLEAR 清屏DIMENSION x（30,5） 定义一个数组变量，r为学生数，i为功课数r=1 给30个学生

4、的计数变量r赋初值1DO 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码所对应的字符 WAIT 您输入的不是小写字母 WINDOW TIMEOUT 5 cancelRETURN 返回到调用程序15、找出最大数和最小数请输入一个数： to xSTORE x TO ma,miFOR i=2 TO 10因为已经输入一个数X，

5、所以循环次数只有9次IF maxmi=x最大数是：,ma最小数是：,mi16、绝对值函数的实现* 绝对值函数的实现请输入一个数值 to nIF n=0n-nCANCEL17、绝对值函数实现的另一种方法* 绝对值函数和另一种实现方法 请输入一个数值IIF（n=0,n,-n）18、输出成绩等级* 用DO CASE语句实现：请输入一个成绩 to cjDO caseCASE cj=90 dj=优秀=80良好=60合格OTHERWISE不合格ENDCASEdj*用IF语句实现：请输入一个成绩：if s grade= else if s及格不及格 endifltrim（str（s）+分对应的等级是：+gr

6、ade19、求一名学生的平均成绩* 求一个学生5门功课的平均成绩请输入各门功课的成绩s=s+xs/520、用数组的方法，计算一个学生的平均成绩* 用数组保存一个学生五门功课的成绩，然后再计算机其平均成绩DIMENSION x（5） to x（i）s=s+x（i）21、用do case语句实现符号函数的功能* 请输入一个数，当这个数是负数，就返回-1，当这个数是零，就返回零，当这个数是正数，就返回1请输入一个数DO CASE CASE n s=1 CASE n=0 s=0 CASE n s=-122、用一般选择语句实现符号函数的功能* 符号函数的实现 s=1 IF n=0 IF n23、用简单选

7、择语句实现符号函数功能IF n=0s=1IF ns=-124、打开数据库和数据表SET talk offaccept 请输入数据库名OPEN DATABASE &请输入数据表名 to yUSE &yLIST25、显示表中指定信息SET TALK OFFOPEN DATABASE 时代超越总公司职员信息数据库请输入待查职工的编号（1-3） TO nIF VAL（n）3输入无效，结束程序运行! WINDOW timeout 5STORE 0+n TO aLIST for 职员编号=aCLOSE DATABASESSET TALK ON26、询问后再由用户按（Y/N）键执行的程序实现* 求任意一个数

8、的阶乘p=1FOR i=1 TO np=p*is=s+p是否继续计算（Y/N） TO yn windowIF UPPER（yn）=Y THEN27、根据exact的设置进行字符串匹配比较* exact设置的变化对取值结果的影响SET exact ON exact为打开状态,字符精确匹配s=in+SPACE（2）IF s=IF s=abcd28、使一个多位正整数逆序排列请输入一个整数：DO WHILE xy=x%10x=INT（x/10）29、按编号查找并列出一条记录请输入数据库名：家庭成员管理：open database请输入数据表名：stu： to blistwait 请输入一个编号: to

9、 c windows timeout 5if val（c）4输入的数字不合法，请重新输入一个合法的数字:store +c to aaalist for bh=aaa30、打开一个数据库，并显示其中的表内容请输入一个数据库名：家庭成员管理.dbc请输入一个数据表名：stu.dbf30、验证密码程序：请输入密码： to aaaif aaa=abc欢迎使用本系统!密码错误，程序将在5秒钟退出！ windows timeout 531、编程求税金请输入营业收入： to pdo casecase p800r=0case p=5000r=0.1endcasex=p*r应纳税金为： , x32、用三角形列出

10、乘法口诀表：X=1DO WHILE X=9 Y=1 DO WHILE Y=X S=X*Y STR（Y,1）+*+STR（X,1）+=+STR（S,2）+ Y=Y+1 ENDDOX=X+133、将变量A、B值互换：a=1b=2a=a+bb=a-ba=a-ba,b34、找出已知三个数的中间数：INPUT 请输入a 的值： TO a请输入b 的值： TO b请输入c 的值： TO cIF MAX（a,b）c MAX（a,b） IF MIN（a, b） c MIN（a,b）35、调用子程序：* MAIN.PRG ”正在执行主程序”DO SUB1Procedure SUB1 ”正在执行SUB1”36、用

11、参数传递计算圆的面积：请输入圆的半径s=0用参数传递计算必须给实际参数赋初值do arer with r,s&调用子程序，并指定实际参数r,s圆的面积为：procedure arer被调用的子程序arerparameter x,y指定的形式参数x,yy=3.14*x237、我国古代数学家张丘建在“算经”里提出一个世界数学史上有名的百鸡问题：鸡翁一，值钱五，鸡母一，值钱三，鸡雏三，值钱一，百钱买百鸡，问鸡翁，母，雏各几何?*依题列出方程：x+y+z=1005x+3y+z/3=100for x=1 to 100 for y=1 to 100 z=100-x-y if 5*x+3*y+z/3=100鸡翁：+str（x,3）鸡母：+str（y,3）鸡雏：+str（z,3） endforendfor