VFP常见编程实例

《VFP常见编程实例》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VFP常见编程实例1、1-100的累加**求1到100的累加值CLEARs=0i=1DOWHILEi<=100 s=s+i i=i+1ENDDO?sRETURN2、阶乘**求5的阶乘CLEARj=1i=1DOWHILEi<=5 j=j*i i=i+1ENDDO?jRETURN3、求阶乘和**求1至5的阶乘和CLEARs=0i=1j=1DOWHILEi<=5j=j*is=s+ji=i+1ENDDO?sRETURN4、条件定位**查询定位记录指针在赵伟上CLEARUSE学生LOCATEFOR姓名="赵伟"IFFOUND() DIS

2、PLAYELSE CANCELENDIFCONTINUE5、用scan语句查询定位**用scan语句查询定位记录在赵伟上CLEARSCANFOR姓名="赵伟"DISPLAYENDSCANRETURN 6、用scan语句扫描符合条件的记录，并显示出来**把年龄小于30岁的人显示出来CLEARSCANFOR年龄<30DISPLAYENDSCANRETURN 7、查找男性职工**查找男性职工CLEARLOCATEFOR性别="男"DOWHILEFOUND() DISPLAY CONTINUEENDDORETURN **查找男性职工C

3、LEARLOCATEFOR性别="男"DOWHILENOTEOF() DISPLAY CONTINUEENDDORETURN **查找男性职工CLEARUSE职员基本信息表LOCATEFOR性别="男"DOWHILE.t. IFFOUND()then   DISPLAY ELSE   CANCEL ENDIF CONTINUEENDDO 8、新值换旧值**有一对新生的兔子，从第三个月开始，每个月出生一对兔子，请问到第十二个月共出生多少对兔子？clearstore1toa,bi=3dowhilei<=12c=a+ba=bb=ci

4、=i+1enddo?"一年共出生兔子：",creturn 9、多位整数各个位数相加**求多位整数各个位数之和CLEARs=0input"请输入一个多位整数:"toaDOWHILEa<>0s=s+MOD(a,10) &&将a取余正好是个位上的数a=INT(a/10)   &&将a除10取整正好是除个位之后的数ENDDO?"这个整数的各个位数之和是：",sRETURN 10、找100-999之间的“水仙花数”CLEARFORi=100TO999 a=INT(i/100) b=INT((i-100*a)/10) c=i-INT(i/

5、10)*10 IFi=a^3+b^3+c^3 ?i ENDIFENDFORRETURN 11、判断一个大于3的数是否为素数CLEARinput"请输入一个数(>=3):"tosf=0i=2DOWHILEi<=INT(SQRT(s)) IFMOD(s,i)<>0 i=i+1 LOOP ELSE f=1 EXIT ENDIFENDDO IFf=0 ?str(s,3)+"是素数" ELSEf=1 ?str(s,3)+"不是素数" ENDIFRETURN 12、求一个班级每个学生的平均成绩**计算一个班级共三十名学生，每位学生5门功课

6、的平均成绩CLEAR    &&清屏DIMENSIONx(30,5)  &&定义一个数组变量，r为学生数，i为功课数r=1      &&给30个学生的计数变量r赋初值1DOWHILEr<=30 &&循环30次，以计算出30个学生的平均成绩 s=0    &&为学生一门功课成绩赋初值0 i=1    &&为五门功课计数变量赋初值1 DOWHILEi<=5&&为一个学生的五门功课成绩累加5次  input"请输入学生的成绩"tox(r,i)  s=s+x(r,i) &&成绩累加  i=i+1      &&功课累加  ENDDO

7、       &&返回内循环 ?"这名学生的平均成绩是：",s/5       &&显示平均成绩  r=r+1        &&学生累加ENDDO         &&返回外循环 13、计算圆的面积*计算圆的面积程序CLEARinput"请输入半径的值"torinput"请输入pi的值"to pis=pi*r^2?"圆的面积是",sRETURN 14、将小写字母转换为大写字母NOTE请将任意输入的一个小写字母转换成大写字母，也就是upper()函数的程序实现CLEAR  &&请屏WAIT"请输入一个小写字母"tox  &&交

8、互式输入一个小写字母k=ASC(x)  &&将小写字母的ASC码赋值给变量KIFk>=97ANDk<=122then  &&97是小写字母a的ASC码值，122是小写字母z的ASC码值 ?x,"的大写字母是",CHR(k-32)  &&输出大写字母.chr函数是ASC码所对应