VFP程序步骤.docxVIP

第一部分:程序入门一级一、选择结构（ IF- ELSE - ENDIF）语句格式：IF〈条件〉〈语句序列1〉[ ELSE〈语句序列2〉]ENDIF说明：IF和ENDIF必须配对使用，而ELSE可选。三个语句应各占一行。若省略ELSE子句，条件为真时，则执行〈语句序列1〉，然后再执行ENDIF后的语句；否则，若条件为假，即执行ENDIF后的语句。二、循环结构1、条件循环：语句格式：DO WHILE 〈条件表达式〉　　　　　　　〈语句序列1〉　　　　　　　　[　LOOP]　　　　　　　〈语句序列2〉[ EXIT ]〈语句序列3 〉ENDDO说明：系统执行该语句时，先测试条件表达式的值，若为真，则执行循环体，在循环体中修改循环条件，直到条件为假时，脱离循环，执行循环体ENDDO后的语句。若遇到LOOP语句，则直接返回执行DO语句，测试条件以决定是否继续循环。若执行循环体时遇到EXIT语句，则不执行下面的语句，直接跳出循环，执行ENDDO后面的语句。注意：DO　WHILE　　必须和ENDDO配合使用，两者缺一不可，DO WHILE语句前一定要有条件变量的初始值。2、计数循环　FOR　〈循环变量〉=〈循环初值〉TO　〈循环终值〉[STEP〈步长〉]〈语句序列1〉 [LOOP]〈语句序列2〉 [EXIT]〈语句序列3〉ENDFOR/NEXT说明：使用和DO WHILE 基本一致，注意步长和ENDFOR语句。三、程序举例：A. 简单整除，求和求个数。Eg:求出[10,100]内所有能被2整除的整数的和(2530)，个数(46)set talk offclearn=0 设置计数变量s=0 设置求和变量for i=10 to 100if mod(i,2)=0 n=n+1 满足条件计数变量加1 s=s+i满足条件，求和变量增加endifendfor? n,sset talk onreturnA1.求出[10,100]内所有能被7和9中至少一个数整除的整数的个数(22),和(1250).A2.求出[10,100]内所有能被7但不能被9整除的整数的个数(12), (665) A3.求出[10,100]内所有能被7和9中的一个且只有一个数整除的整数的个数(21),(1187) A4.编写程序，求出1~7000以内能被3或者7整除的数的个数(3000)。A5. 编写程序，求[1，500]既能被6整除又能被7整除的数之和。(2772)A6.求前[1,100]内能被6或8整除的所有自然数的平方根的和（将第1位小数四舍五入，结果只保留整数）。（162）A8.将大于1000且能被3和5中至少一个数整除的所有整数按从小到大顺序排列后，求前面20个数之和。 (20465)set talk off cleark=1 s=0 设置求和变量 x=1000 do while k=20 x=x+1if mod(x,3)=0 or mod(x,5)=0 s=s+x满足条件，求和变量增加k=k+1endifenddo? sset talk onreturnA9 将小于2000且能被4和6中至少一个数整除的所有整数按从小到大顺序排列后，求最后20个数之和。(39390)B类: 简单余数Eg: 编写程序，求出100到500之间同时满足除5余4和除7余2条件的数的个数及和。(12 ) (3678)Set talk offS=0N=0For I=100 to 500If mod(I,5)=4 and mod(I,7)=2S=s+IN=n+1EndifEndf?n,sset talk onreturnB1、.编写程序，求在10~1000之间所有能被4除余2，被7除余3，被9除余5的数之和。2000B2. 求出[200,800]内被除3余1并且被除5余3的整数的和。20020C类:退出控制Eg: 编写程序，求出1到6000之间的能被5整除的前若干个偶数之和，当和值大于650时退出并输出和值。660Set talk offS=0For I=1 to 6000 If mod(I,5)=0 and mod(I,2)=0S=s+IEndifIf s650ExitEndifEndf?sC1: 编写程序，求出1到5000之间的能被7整除的前若干个数之和，当和值大于等于1500时退出并输出和值。1617C2: 编写程序，已知：S=2+4+8+16+32+…，求S不大于980的最大值。510Set talk offS=0For I =1 to 1000X=2**iS=s+x?x,sIf s980Exit EndifEndf?s-xC3: 编写程序，已知：S=1+3+5+7+9+…，求S不大于1000