VFP常见编程实例.docVIP

VFP常见编程实例1、1-100的累加* 求1到100的累加值CLEARs=0i=1DO WHILE i=100s=s+ii=i+1ENDDO?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 CANCELENDIFCONTINUEENDDO8、新值换旧值* 有一对新生的兔子，从第三个月开始，每个月出生一对兔子，请问到第十二个月共出生多少对兔子？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 ?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、输出成绩等级* 成绩等级判断语句CLEARinput 请输入一个成绩 to cjDO caseCASE cj=90 dj=优秀CASE cj=80 dj=良好CASE cj=60 dj=合格OTHERWISE dj=不合格ENDCASE?djRETURN19、求一名学生的平均成绩* 求一个学生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+S