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

湖南省计算机水平考试二级VFP强化培训班讲授内容:1. 常量与运算符号常用几种常量：字符型、数字型、日期型、逻辑型运算符号：数字运算符、关系运算符、逻辑运算符2. 体现式与函数弄清常用几种类型体现式和常用函数3. 选用构造(if-endif、ifelse-endif、do case-endcase语句)4. 循环构造（do while-enddo、for-endfor、exit和loop语句）5. 数组6. 改错和填空常用问题分析和举例7.程序设计常量与运算符号常量：数字型常量字符型常量日期型常量逻辑型常量运算符号：算术运算符号：+ - * / * %关系运算符号： = = = = = != # $逻辑运算符号：not and or体现式与函数一、体现式注意事项：尤其要弄清括号使用，乘号不能省，运算先后次序二、函数某些常用函数：如 int mod sqrt year date round len right substr left 等选用构造1 格式格式1：if (体现式)语句序列 endif格式2：if (体现式)语句1 else 语句2 endif2 功能重要是进行条件判断,然后根据条件与否满足来进行对应不一样处理,实现分支构造程序设计3 执行过程过程:先进行判断条件,再进行不一样处理.4 注意(1) 体现式可以是关系体现式、逻辑体现式，其体现式值是为逻辑值. 常用关系运算符号: = = = = != # 逻辑运算符号:not and orif abcif a!=b ,b!=cif mod(7/3)=0以上三种条件都是错误(2) if语句嵌套搞不清晰时，尽量使用单if语句。如：if (a0) if (b10)c=c+1 endif endif可改成：if (a0 and b10)c=c+1 endif5 do case -endcase语句格式：do case switch case 体现式1语句序列1case 体现式2语句序列2case 常量n语句序列ndefault 语句序列n+1endcase注意:(1) 体现式为关系或逻辑体现式(2) 体现式成果是逻辑值循环构造1 do while-enddo语句 格式： do while 体现式循环体语句 enddo2 for-enddo语句 格式： for x=a to b step c 循环体语句 endfor对于上述二种循环构造要理解下面几种问题：（1） 体现式是循环控制条件，与if语句中体现式同样。（2） 二种循环语句执行过程。3 exit和loop语句数组1 数组定义格式：dime 一维数组(常量)二维数组：dime 数组名(常量1,常量2)注意:(1) 数组元素下标从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) 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 talk offx=0do while x=7 y=_ if _ ?y endifendforreturn程序改错题举例：1 变量赋初值错误。（一般状况：求和变量初值为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 return2 运算出错。常用错误：%用/，=用！=，or用and,可反过来用。如下程序求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 return3 边缘条件出错误，应当是=时，只有如下程序求1,500之间能被3 或5整除数之和。请改正程序中错误，并运行修改后程序，给出对旳程序运行成果.clearsum=0i=1/*下行有错*/do while i500 if mod(i,3)=0) or mod(i,5)=0sum=sum+i endifi=i+1enddo?sum4 算法出错 下面程序是求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成果是求个数，不是求累加和。下面程序是求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位小数)。程序： 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.编写求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_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.99995899 SET TALK OFF S=0 N=1 D=2 I=1 DO WHILE I=20_1_N=N+2_2_I=I+1 ENDDO ?SRETURN1. S=S+N/D 2. 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/IS=S+T _2_ ?”S=”,S RETURN 答案：1. T=-1 2. 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 TALK 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 ENDFORRETURN1. C=C+I 2. A=C AND AB 程序设计1.素数100，999范围内同步满足如下两个条件十进制数. 其个位数字与十位数字之和除以10所得余数是百位数字；该数是素数；求有多少个这样数？ 152. 取数字设某四位数千位数字平方与十位数字平方之和等于百位数字立方与个位数字立方之和，例如，对于四位数：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-3),f(0)=1,f(1)=2,f(2)=3,求f(0)+f(1)+f(30)。-7508748.a,b,c,d,e类设有十进制数字a,b,c,d和e，它们满足下列式子：abcd*e=bcde (a不等于0， e不等于0或1)，求满足上述条件所有四位数abcd和。36659.方程求方程8x-5y=3,在|x|=150，|y|=200内整数解。试问这样整数解有多少组？5010.其他已知AB，A和B均为正整数，且A*B=716699，求A+B最小值。 1836