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

《VFP常见编程实例(免费下载)》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、VFP常见编程实例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的阶乘和CLEARs=0i=1j=1DOWHILEi<=5j=j*is=s+ji=i+1ENDDO?sRETURN4、条件定位**查询定位记录指针在赵伟上CLEARUSE学生LOCATEFOR姓名="赵伟"IFFOUND()DISPLAYELSECANCE

2、LENDIFCONTINUE5、用scan语句查询定位**用scan语句查询定位记录在赵伟上CLEARSCANFOR姓名="赵伟"DISPLAYENDSCANRETURN6、用scan语句扫描符合条件的记录，并显示出来**把年龄小于30岁的人显示出来CLEARSCANFOR年龄<30DISPLAYENDSCANRETURN7、查找男性职工**查找男性职工CLEARLOCATEFOR性别="男"DOWHILEFOUND()DISPLAYCONTINUEENDDORETURN**查找男性职工CLEARLOCATEFOR性别="男"DOWHILENOTEOF()DISPL

3、AYCONTINUEENDDORETURN**查找男性职工CLEARUSE职员基本信息表LOCATEFOR性别="男"DOWHILE.t.IFFOUND()thenDISPLAYELSE　&&记住最后一个ELSE语句后面不需要条件表达式CANCELENDIFCONTINUEENDDO**查找男性职工settalkoffclearopendatabase家庭成员管理.dbcusestu.dbfscanfornoteof()ifxb="女"skipelsedisplayskipendifendscanclosedatabaseusesettalkonreturn8、新值

4、换旧值**有一对新生的兔子，从第三个月开始，每个月出生一对兔子，请问到第十二个月共出生多少对兔子？clearstore1toa,bi=3dowhilei<=12c=a+ba=bb=ci=i+1enddo?"一年共出生兔子：",creturn9、多位整数各个位数相加**求多位整数各个位数之和CLEARs=0input"请输入一个多位整数:"toaDOWHILEa<>0s=s+MOD(a,10)&&将a取余正好是个位上的数a=INT(a/10)&&将a除10取整正好是除个位之后的数ENDDO?"这个整数的各个位数之和是：",sRETURN10、找100-999之间的“水

5、仙花数”CLEARFORi=100TO999a=INT(i/100)b=INT((i-100*a)/10)c=i-INT(i/10)*10IFi=a^3+b^3+c^3?iENDIFENDFORRETURN11、判断一个大于3的数是否为素数CLEARinput"请输入一个数(>=3):"tosf=0i=2DOWHILEi<=INT(SQRT(s))IFMOD(s,i)<>0i=i+1LOOPELSEf=1EXITENDIFENDDOIFf=0?str(s,3)+"是素数"ELSEf=1　　&&这个表达式可有可无，为了省事完全省略也可以。一般最后一个ELSE语句后面不

6、需要表达式?str(s,3)+"不是素数"ENDIFRETURN12、求一个班级每个学生的平均成绩**计算一个班级共三十名学生，每位学生5门功课的平均成绩CLEAR&&清屏DIMENSIONx(30,5)&&定义一个数组变量，r为学生数，i为功课数r=1&&给30个学生的计数变量r赋初值1DOWHILEr<=30&&循环30次，以计算出30个学生的平均成绩s=0&&为学生一门功课成绩赋初值0i=1&&为五门功课计数变量赋初值1DOWHILEi<=5&&为一个学生的五门功课成绩累加5次input"请输入学生的成绩"tox(r,i)s=s+x(r,i)&&成绩累加i=i

7、+1&&功课累加ENDDO&&返回内循环?"这名学生的平均成绩是：",s/5&&显示平均成绩r=r+1&&学生累加ENDDO&&返回外循环13、计算圆的面积*计算圆的面积程序CLEARinput"请输入半径的值"torinput"请输入pi的值"topis=pi*r^2?"圆的面积是",sRETURN14、将小写字母转换为大写字母NOTE请将任意输入的一个小写字母转换成大写字母，也就是upper()函数的程序实现CLEAR&&请屏WAIT"请输入一个小写字母"tox&&交互式输入一个小写字母k=ASC(x)&&将小写字母的ASC码赋值给变量KIFk>=97AND