VFP常见编程实例(免费下载).doc

VFP常见编程实例1、1-100的累加* 求1到100的累加值CLEARs=0i=1DO WHILE i=100s=s+ii=i+1 &一定记住先累加后循环ENDDO?sRETURN2、阶乘* 求5的阶乘CLEARj=1i=1DO WHILE i=5j=j*ii=i+1ENDDO?jRETURN3、求阶乘和* 求1至5的阶乘和CLEARs=0i=1j=1DO WHILE i=5j=j*is=s+ji=i+1ENDDO?sRETURN4、条件定位* 查询定位记录指针在赵伟上CLEARUSE 学生LOCATE FOR 姓名=赵伟IF FOUND() DISPLAYELSE CANCELENDIFCONTINUE5、用scan语句查询定位* 用scan语句查询定位记录在赵伟上CLEARSCAN FOR 姓名=赵伟DISPLAYENDSCANRETURN6、用scan语句扫描符合条件的记录，并显示出来* 把年龄小于30岁的人显示出来CLEARSCAN FOR 年龄30DISPLAYENDSCANRETURN7、查找男性职工* 查找男性职工CLEARLOCATE FOR 性别=男DO WHILE FOUND() DISPLAY CONTINUEENDDORETURN* 查找男性职工CLEARLOCATE FOR 性别=男DO WHILE NOT EOF()DISPLAYCONTINUEENDDORETURN* 查找男性职工CLEARUSE 职员基本信息表LOCATE FOR 性别=男DO WHILE .t. IF FOUND() then DISPLAY ELSE&记住最后一个ELSE语句后面不需要条件表达式 CANCELENDIFCONTINUEENDDO* 查找男性职工 set talk offclearopen database 家庭成员管理.dbcuse stu.dbfscan for not eof()if xb=女skipelsedisplayskipendifendscanclose databaseuseset talk onreturn8、新值换旧值* 有一对新生的兔子，从第三个月开始，每个月出生一对兔子，请问到第十二个月共出生多少对兔子？clearstore 1 to a,bi=3do while i=12c=a+ba=bb=ci=i+1enddo?一年共出生兔子：,creturn9、多位整数各个位数相加* 求多位整数各个位数之和CLEARs=0input 请输入一个多位整数: to aDO WHILE a0s=s+MOD(a,10) &将a取余正好是个位上的数a=INT(a/10) &将a除10取整正好是除个位之后的数ENDDO?这个整数的各个位数之和是：,sRETURN10、找100-999之间的“水仙花数”CLEARFOR i=100 TO 999 a=INT(i/100) b=INT(i-100*a)/10) c=i-INT(i/10)*10 IF i=a3+b3+c3 ?i ENDIFENDFORRETURN11、判断一个大于3的数是否为素数CLEARinput 请输入一个数(=3): to sf=0i=2DO WHILE i=INT(SQRT(s) IF MOD(s,i)0 i=i+1 LOOP ELSE f=1 EXIT ENDIFENDDO IF f=0 ?str(s,3)+是素数 ELSE f=1&这个表达式可有可无，为了省事完全省略也可以。一般最后一个ELSE语句后面不需要表达式 ?str(s,3)+不是素数 ENDIFRETURN12、求一个班级每个学生的平均成绩* 计算一个班级共三十名学生，每位学生5门功课的平均成绩CLEAR & 清屏DIMENSION x(30,5) & 定义一个数组变量，r为学生数，i为功课数r=1 & 给30个学生的计数变量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码所对应的字符ELSE WAIT 您输入的不是小写字母 WINDOW TIMEOUT 5 cancelENDIFRETURN & 返回到调用程序15、找出最大数和最小数CLEARinput 请输入一个数： to xSTORE x TO ma,miFOR i=2 TO 10 &因为已经输入一个数X，所以循环次数只有9次input 请输入一个数： to xIF maxmi=xENDIFENDFOR?最大数是：,ma?最小数是：,miRETURN16、绝对值函数的实现* 绝对值函数的实现CLEARinput 请输入一个数值 to nIF n=0?nELSE?-nENDIFCANCEL17、绝对值函数实现的另一种方法* 绝对值函数和另一种实现方法CLEARinput 请输入一个数值 to n?IIF(n=0,n,-n)CANCEL18、输出成绩等级* 用DO CASE语句实现：CLEARinput 请输入一个成绩 to cjDO caseCASE cj=90 dj=优秀CASE cj=80 dj=良好CASE cj=60 dj=合格OTHERWISE dj=不合格ENDCASE?djRETURN*用IF语句实现：set talk offclearinput 请输入一个成绩： to sif s=90 grade=优秀 else if s=80 grade=良好 else if s=60 grade=及格 else grade=不及格 endif endifendif?ltrim(str(s)+分对应的等级是：+gradeset talk onreturn19、求一名学生的平均成绩* 求一个学生5门功课的平均成绩CLEARs=0i=1DO WHILE i=5input 请输入各门功课的成绩 to xs=s+xi=i+1ENDDO?s/520、用数组的方法，计算一个学生的平均成绩* 用数组保存一个学生五门功课的成绩，然后再计算机其平均成绩CLEARDIMENSION x(5)s=0i=1DO WHILE i0 s=1 CASE n=0 s=0 CASE n0 s=1 ELSE IF n=0 s=0 ELSE IF n0s=1ENDIFIF n0s=-1ENDIF?s24、打开数据库和数据表SET talk offCLEARaccept 请输入数据库名 to xOPEN DATABASE &xaccept 请输入数据表名 to yUSE &yLISTuseSET talk offreturn25、显示表中指定信息SET TALK OFFCLEAROPEN DATABASE 时代超越总公司职员信息数据库USE 职员基本信息表WAIT 请输入待查职工的编号(1-3) TO nIF VAL(n)3WAIT 输入无效，结束程序运行! WINDOW timeout 5RETURNELSESTORE 0+n TO aLIST for 职员编号=aENDIFCLOSE DATABASESSET TALK ONreturn26、询问后再由用户按（Y/N)键执行的程序实现* 求任意一个数的阶乘CLEARDO WHILE .t.input 请输入一个数 to np=1s=0FOR i=1 TO np=p*is=s+pENDFOR?sWAIT 是否继续计算(Y/N) TO yn windowIF UPPER(yn)=Y THEN LOOPELSE EXITENDIFENDDORETURN27、根据exact的设置进行字符串匹配比较* exact设置的变化对取值结果的影响SET exact ON & exact为打开状态,字符精确匹配s=in+SPACE(2)IF s=inIF s=in ?aELSE ?bENDIFELSEIF s=in ?cELSE ?dENDIFENDIFRETURN28、使一个多位正整数逆序排列CLEARinput 请输入一个整数： to xDO WHILE x0y=x%10?yx=INT(x/10)ENDDORETURN29、按编号查找并列出一条记录set talk offclearaccept 请输入数据库名：家庭成员管理： to aopen databaseaccept 请输入数据表名：stu： to buselistwait 请输入一个编号: to c windows timeout 5if val(c)4wait 输入的数字不合法，请重新输入一个合法的数字: to c windows timeout 5elsestore 0+c to aaalist for bh=aaaendifclose databaseset talk onreturn30、打开一个数据库，并显示其中的表内容set talk offclearaccept 请输入一个数据库名：家庭成员管理.dbc to xopen databaseaccept 请输入一个数据表名：stu.dbf to yuselistuseset talk onreturn30、验证密码程序：set talk offclearaccept 请输入密码： to aaaif aaa=abcclearwait 欢迎使用本系统!elsewait 密码错误，程序将在5秒钟退出！ windows timeout 5endifset talk onreturn31、编程求税金set talk offclearinput 请输入营业收入： to pdo casecase p800r=0case p=2000r=0.05case p=5000r=0.1endcasex=p*r?应纳税金为： , xset talk onreturn32、用三角形列出乘法口诀表：set talk offclearX=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 ENDDO?X=X+1ENDDOSET TALK ONRETURN33、将变量A、B值互换：a=1b=2a=a+bb=a-ba=a-b?a,b34、找出已知三个数的中间数：INPUT 请输入a 的值： TO aINPUT 请输入b 的值： TO bINPUT 请输入c 的值： TO cIF MAX(a,b)c ? MAX(a,b)ELSE IF MIN(a, b)c ? c ELSE ? MIN(a,b) ENDIFENDIF35、调用子程序：* MAIN.PRGSET TALK OFF? ”正在执行主程序”DO SUB1SET TALK ONProcedure SUB1? ”正在执行SUB1”RETURN36、用参数传递计算圆的面积：set talk offclearinput 请输入圆的半径 to rs=0 &用参数传递计算必须给实际参数赋初值do arer with r,s&调用子程序，并指定实际参数r,s?圆的面积为：,sset talk on?procedure arer &被调用的子程序arerparameter x,y &指定的形式参数x,yy=3.14*x2returnset talk on37、我国古代数学