湖南省计算机水平考试强化培训班二级VFP

1、湖南省计算机水平考试二级VFP强化培训班讲授内容:常量与运算符号常用的几种常量：字符型、数字型、日期型、逻辑型运算符号：数字运算符、关系运算符、逻辑运算符表达式与函数搞清常用的几种类型表达式和常用的函数选择结构(if-endif、ifelse-endif、do case-endcase语句)循环结构（do while-enddo、for-endfor、exit和loop语句）数组改错和填空常见问题分析和举例7.程序设计常量与运算符号常量：数字型常量字符型常量日期型常量逻辑型常量运算符号：算术运算符号：+ - * / * %关系运算符号： = = = = = != # $逻辑运算符号：not a

2、nd or表达式与函数一、表达式注意事项：特别要搞清括号的使用，乘号不能省，运算的先后顺序二、函数一些常用函数：如 int mod sqrt year date round len right substr left 等选择结构格式格式1：if (表达式)语句序列 endif格式2：if (表达式)语句1 else 语句2 endif功能主要是进行条件判断,然后根据条件是否满足来进行相应不同的处理,实现分支结构的程序设计执行过程过程:先进行判断条件,再进行不同的处理.注意表达式可以是关系表达式、逻辑表达式，其表达式的值是为逻辑值. 常用关系运算符号: = = = = != # 逻辑运算符号:n

3、ot and orif abcif a!=b ,b!=cif mod(7/3)=0以上三种条件都是错误的if语句嵌套搞不清楚时，尽量使用单if语句。如：if (a0) if (b10)c=c+1 endif endif可改成：if (a0 and b10)c=c+1 endifdo case -endcase语句格式：do case switch case 表达式1语句序列1case 表达式2语句序列2case 常量n语句序列ndefault 语句序列n+1endcase注意:表达式为关系或逻辑表达式表达式的结果是逻辑值循环结构do while-enddo语句 格式： do while 表达式

4、循环体语句 enddofor-enddo语句 格式： for x=a to b step c 循环体语句 endfor对于上述二种循环结构要了解下面几个问题：表达式是循环控制条件，与if语句中的表达式一样。二种循环语句的执行过程。exit和loop语句数组数组的定义格式：dime 一维数组(常量)二维数组：dime 数组名(常量1,常量2)注意:数组元素下标从1开始到长度dime a(5)数组元素有：a(1) a(2) a(3) a(4) a(5)下标从1变化到5dime b(2,4)数组元素有： b(1,1) b(1,2) b(1,3) b(1,4) b(2,1) b(2,2) b(2,3)

5、 b(2,4)数组没送初始值时,一律为.F.2. 数组的引用引用数组元素名（直接方式）和引用数组名。 a=100表示把a数组中所有元素送初值为100 a(1)=”1111”改错题clears=0for n=10 to 200*下行有错if mod(n,6)=0 and mod(n,8)=0*下行有错s=sqrt(s+n)endifendfor?round(s,0)单击”考生文件夹”,进入下面界面首先看清题目，有几个错误提示行，则必须改正几个错误。每一个错误在提示行的下一行。运行程序，填上正确的答案。前后不要加空格，数据输出不要在汉字输入状态 程序填空题:单击考生文件夹,进入下个界面set ta

6、lk offx=0do while x=7 y=_ if _ ?y endifendforreturn程序改错题举例：变量赋初值错误。（一般的情况：求和变量初值为0，求积初始值为1）。 以下程序求1,1000之间能被5 和 7 整除的数之和。请改正程序中的错误，并运行修改后的程序，给出正确程序运行结果，填入相应窗口。clear/*下行有错*/sum=1for i=1 to 1000 /*下行有错*/ if mod(i,5)=0 or mod(i,7)=0 sum=sum+i;?sum return运算出错。常见的错误：%用/，=用！=，or用and,可反过来用。以下程序求1,1000之间能被5

7、 和 7 整除的数之和。请改正程序中的错误，并运行修改后的程序，给出正确程序运行结果，填入相应窗口。clear/*下行有错*/sum=1for i=1 to 1000 /*下行有错*/ if mod(i,5)=0 or mod(i,7)=0 sum=sum+i;?sum return边缘条件出错误，应该是=时，只有以下程序求1,500之间能被3 或5整除的数之和。请改正程序中的错误，并运行修改后的程序，给出正确程序运行结果.clearsum=0i=1/*下行有错*/do while i500 if mod(i,3)=0) or mod(i,5)=0sum=sum+i endifi=i+1end

8、do?sum算法出错 下面的程序是求500以内的所有的素数之和。请修改程序中的错误，使它能得出正确的结果，并给出正确结果。程序：clears=0for x=2 to 500f=1for y=2 to x-1/*下行有错*/if x/y=0f=0endifendforif f=1 s=s+xendifendfor?sreturn 8表达式出错（“*”导致的错误）T=1+1/(2*3)+1/(3*4)+1/(m*(m+1) 当M为70时，求出上述表达式的值。CLEAR/*下行程序有错*/T=0FOR I=2 TO 70/*下行程序有错*/ T=T+1/I*(I+1)ENDFOR?TRETURN9结

9、果是求个数，不是求累加和。下面程序是求20,1000之间同时满足除4余3或除5余4条件的数的个数。请修改程序中的错误，使它能得出正确的结果，并给出正确结果，填入相应窗口。程序：clear count=0;for i=20 to 1000 if mod(i,4)=3 or mod(i,5)=4 /*下行有错*/ count=count+i; endifendfor?countReturn10for语句的三个表达式出错。下面的程序是求表达式的值： s=1+1/3+(1*2)/(3*5)+(1*2*3)/(3*5*7)+.+(1*2*3*.*n)/(3*5*7*.(2*n+1) 当n=20时，程序的

10、运行结果(按四舍五入保留10位小数)。程序： clear /*下行有错*/ s=0 t=1 /*下行有错*/ for i=1 to 20 step -1 t=t*i/(2*i+1);s=s+t endfor ?round(s,0)return11奇偶数问题下面程序是求20,160之间的所有偶数的平方和。请修改程序中的错误，使它能得出正确的结果，并给出正确结果，填入相应窗口。程序： clear sum=0 /*下行有错*/ for i=160 to 20 /*下行有错*/ if (mod(i/2)!=0) sum=sum+i*i; endifendfor?sumreturn程序填空题举例：1.编

11、写求10000以内所有完数之和（该数等于其不重复因子相加，因子包括1。例如6=1+2+3是完数，但是81+2+4，所以不是完数。）8659SET TALK OFFCLEARSUM=0FOR X=1 TO 10000s=1 FOR I=2 TO X-1 IF _1_ s=s+i ENDIFENDFOR IF X=S SUM=SUM+1_2_ ENDFOR ?SUMSET TALK ON1. X%I=02. ENDIF 2.该程序是求10000之内能被3和7整除的个数。477SET TALK OFFX=0Y=0DO WHIL X=10000 _1_Y=Y+1X=X+1LOOP ENDIFX=X+1

12、_2_?YSET TALK ON1. IF X%3=0 AND X%7=0 2.ENDDO3.求数列1/2,3/4,5/8,7/16,9/32的前20项之和，显示这个结果。2.999958992004 SET TALK OFF S=0 N=1 D=2 I=1 DO WHILE I=20_1_N=N+2_2_I=I+1 ENDDO ?SRETURNS=S+N/D D=D*2 4.计算下列数列前6项之和。X-X2/2!+ X3/3!- X4/4!+ 当输入X为2时，结果为多少？0.8444SET TALK OFF S=0 _1_ INPUT “X=” TO X FOR I=1 TO 6T=-T*X

13、/IS=S+T _2_ ?”S=”,S RETURN 答案：T=-1 ENDFOR5.输出6到1000之间的所有”完数”的个数(一个数的因子和等于其自身,如 6=1+2+3,28=1+2+4+7+24) 3SET TALK OFF A=0FOR I=6 TO 1000 S=0 FOR J=1 TO _1_IF I%J=0 S=S+JENDIF ENDFOR IF _2_A=A+1 ENDIFENDFOR?ARETURN1.I-1 2.S=I 6.在6到5000内找出最大的一对的亲密数对,若a,b为一对亲密数对,则a的因子和等于b,b的因子和等于a,且a不等于b。 2924 2620 SET T

14、ALK OFF FOR A=5000 TO 6 STEP -1B=0C=0FOR I=1 TO A-1 IF A%I=0 B=B+I ENDIFENDFORFOR I=1 TO B-1 IF B%I=0 _1_ ENDIFENDFORIF _2_ ?A,B EXITENDIF ENDFORRETURNC=C+I A=C AND AB 程序设计1.素数100，999范围内同时满足以下两个条件的十进制数. 其个位数字与十位数字之和除以10所得的余数是百位数字；该数是素数; 求有多少个这样的数？ 152. 取数字设某四位数的千位数字平方与十位数字的平方之和等于百位数字的立方与个位数字的立方之和，例如

15、，对于四位数：3201，32+02=23+13，试问所有这样的四位数之和是多少？979933. 分硬币把一张一元钞票,换成一分、二分和五分硬币,每种至少8枚,问有多少种方案?804. 勾股、弦数 A,B,C是三个小于或等于100正整数，当满足1/A2+1/B2=1/C2关系时，称为倒勾股数。求130A+B+CBC的倒勾股数有多少组。15.完数因子求在10，1000之间的所有完数之和。各真因子之和（不包括自身）等于其本身的正整数称为完数。例如：6=1+2+3，6是完数。5246.平方数若一个四位正整数是另一个正整数的平方，且各位数字的和是一个平方数，则称该四位正整数是“四位双平方数”。例如： 由于7396=862，且7+3+9+6=25=52，则称7396是“四位双平方数”。求所有“四位双平方数”之和。819777.Fibonaci(累加数列) 已知 f(n)=f(n-1)+2f(n-2)-5f(n-