VFP程序设计基础Word下载.docx

1、（包括自然变量）LOCAL作用域（可见性）从定义处起有效从定义处起及下级子程序只在定义块中可见传递方向双向（向上、向下）单向（由主到子程序）不传递生存期整个应用系统（VFP环境中）从定义处起及下级子程序中随定义块执行结束而释放特殊作用用于参数传递或结果传递屏蔽上级程序中的同名变量说明子程序中定义的全局变量，返回主程序时可见子程序中定义的自然变量，返回主程序时不可见只在本块中可见，上下级中均不可见2） 利用DO WITH 传递参数传递参数命令格式：DO 接收参数命令格式：PARAMETER参数传递与接收的规则：（1） 接收参数的命令必须出现在被调用程序（子程序）中的第一行；（2） 当WITH 中

2、是简单内存变量列表时，称为传址或引用。这时，主调程序中的内存变量被隐含起来，其值随PARAMETER中对应变量的值的变化而变化；（3） 当WITH 中是内存变量表达式列表或当个内存变量用圆括号括起来（即为明表达式）时，称为传值。这时，主调程序中的内存变量不被隐含，其值也不随PARAMETER中对应变量的值的变化而变化；（4） 对过程而言，传址或传值不受 SET UDFPARAMS TO VALUE/CONFERENCE 的影响。因为它是针对自定义函数的。8、自定义函数1）定义自定义函数可以是一个独立的命令文件（.PRG），也可以放在一个过程文件中。2）建立FUNCTION PARAMETER语

3、句序列ENDFUNC与过程不同的是必须用RETURN 返回一个值。3） 自定义函数的调用与参数传递调用形式：自定义函数名（参数表达式列表）参数传送：既可以用传值方式，也可以用引用方式。具体规则如下：（1）如果变量在参数表达式列表中是以表达式的形式出现，那么是传值方式；（2）如果变量在参数表达式列表中是以单变量的形式出现，那么取决于SET UDFPARAMS TO VALUE/CONFERENCE 的设置（缺省为传值方式）； （3）无论SET UDFPARAMS TO 可以在单变量前冠以，以强制传址。如：S（A,B,C）二、要点与难点1、 INPUT、ACCEPT与WAIT这三个与输入有关的命令

4、有何不同？INPUT命令可接受数值型、字符型、日期型等数据类型的输入，在输入时应根据数据类型加相应的定界符。ACCEPT命令只能接受字符串的输入，在输入时不必加定界符。WAIT命令只能接受单字符的输入，常用于表示程序是否继续、是否中断或是否结束的语句。2、 RETURN、RETRY、CANCEL和QUIT这四个命令有何不同？RETURN命令：指的是返回到调用行的下一行。RETRY命令：返回到调用行本身，可实现程序的重复调用。CANCEL命令：中断、异常结束。并返回到系统命令窗口。QUIT命令：返回到操作系统。3、 SCATTER FIELDS TO 4、 GATHER FROM 5、 常见的环

5、境设置语句：SET DEFAULT TO ：将设置为系统缺省的路径。SET CONSOLE ON/OFF：激活或废止从程序中向VFP主窗口或活动的用户自定义窗口的输出。SET DELETE ON/OFF：决定是否忽略表中已做过删除标记的记录。SET EXACT ON/OFF：决定字符串比较运算符“=”两边内容是否必须完全匹配，缺省是不必完全匹配。SET TALK OFF/ON：关闭或打开系统交互对话显示方式。缺省为打开显示。SET FILTER TO 指定访问当前表中记录时必须满足的条件。6、 FOR I=X TO Y SCAN语句系列 与 语句系列 有何不同？ENDFOR ENDSCAN前者

6、主要处理普通内存变量循环有关的程序；后者主要处理表中满足条件的记录循环有关的程序。7、 内存变量的属性有那几种？它们间有何不同？参见上表。8、 利用DO 传递参数与自定义函数中的参数传送有何不同。前者传递参数是在主程序与子程序之间进行调用和传递，可分为传值和引用两种方式：引用：WITH后的是内存变量列表时，每个内存变量的值传给PARAMETERS中对应变量，调用程序中的变量被隐藏。当被调用的程序中形参的值发生改变时，调用程序中的变量也跟着发生相应的变化。传值：是内存变量表达式或用括号将单个变量括起来时，每个内存变量表达式的值传给PARAMETERS中对应变量，调用程序中的变量不被隐藏。当被调用

7、的程序中形参的值发生改变时，调用程序中的变量不会跟着发生相应的变化。后者是在函数内部实行变量间的参数传送，也有传值和引用两种方式。它调用方式为：自定义函数名 （）若中以表达式出现，则是以传值方式传送；中以内存变量的形式出现，则缺省采用传值方式，若要采用引用方式，需在参数变量前加。9、 程序设计中常用的函数有：（1） 数值函数 INT（X/Y）、MOD（X，Y）、X%Y、X-INT（X/Y）*Y（2）字符串函数SUBSTR（S，N1，N2）、LEN（S）（3）日期与时间函数： DATE（）、DTOC（D）、YEAR（D）、MONTH（D）、DAY（D）、DOW（D）、CDOW（D）。（4）转换函

8、数 UPPER（C）、LOWER（C）、CTOD（S）、DTOC（D）、ASC（C）、CHR（N）、STR（N，N1，N2）、VAL（S）（5）数据库函数： FCOUNT（）字段个数函数、FIELD（）字段名函数、BOF（）、EOF（）、DELETED（）、RECCOUNT（）、RECSIZE（）、RECNO（）、（6）IIF（条件表达式，满足条件时所取的值、不满足条件时所取的值）（7）测试函数：FOUND（）测试是否找到相应的记录。10、程序设计的常用算法： 总原则：变量必须采用“先定义后使用”的原则，程序语句必须有输入和输出语句；函数采用有“先入口后出口”的原则。条件或循环语句必须配套使用

9、，即IFENDIF、FORENDFOR。1、 累加：通常采用下列步骤（1） S=（2） 此时需定义一个循环变量，一般采用I或J，同时大多采用FORENDFOR语句来完成。（3） S=S+A（4） （5） 2、累乘：（1）T=（2）（3）T=T*A（4）（5） 3、字符串的粘合：（1）S=”或S=SPACE（0）（3）S=S+A 或S=A+S 前者采用字符串的顺序粘合，后者采用字符串的倒序粘合。输出字符串S4、自定义函数：（1）PARAMETER （2）程序语句（3）RETURN 省略表示不带参数返回。三、程序阅读题。阅读下列程序，写出运行结果。1、 SET TALK OFFM=3DO WHIL

10、E M10N=2 DO WHILE NM IF INT（M/N）=M/N EXIT ENDIF N=N+1 ENDDO IF N=M ? ENDIF M=M+1ENDDOSET TALK ON2、 设N、P的输入值分别为6，3。注：字符”A”的ASCII码为65。SET TALK OFFCLEARINPUT N= TO NP= TO PFOR I=1 TO N ?SPACE（NI+1） IF I=P FOR J=1 TO 2*I1 ?CHR（ASC（A）+J1） ENDFOR ELSE FOR J=1 TO （2*I1）（IP）ENDFOR3、 注：C=一二三四五六七八九十B=ABCDR=0L

11、=LEN（B）FOR I=1 TO LW=SUBSTR（B,I,1）D=ASC（W）+R-65S=IF D+SR=R+114、 设M的值分别为：12345，205354，105075，123450S=0DO WHILE .T. CLEAR INPUT M= TO M N=M DO WHILE .T. R=N-INT（N/10）*10 IF R=0 S=S+1 N=INT（N/10） IF N=0 IF S1 EXITS5、 SET TALK OFFA=ABCDEFGHIJKLMNOPQRSTUVWXYZB=LEN（A）X=X-Y=Y-I=1DO WHILE I=B J=I X=X+SUBSTR

12、（A,I,1） IF I/2=INT（I/2） Y=Y+SUBSTR（A,I,1） I=I+1 LOOP I=I+JXY6、 设M的值为：=M IF ZS（I） IF I*2 STR（I*2,5） ELSE I=I+1+STR（S,3）*ZS.PRG*PARA XJ=2DO WHILE J+P四、程序填空：四、程序填空说明：阅读下列程序说明和程序，将程序代码缺少的内容填入 中。1、 已知某系统的口令PASSWORD（存在内存变量文件PASS.MEM中）含多个非空格字符，判断口令是否正确只需比较其长度及第3个到第6个字符是否完全相等，允许操作者录入三次（口令录入时要求关屏），如果口令正确正常返回

13、，否则给出提示信息。RESTORE （1） L= （2） TIME=1DO WHILE TIMEN，计算结果输出宽度10位，小数2位）。*MN.PRG*SET （1） INPUT “M=” TO MINPUT “N=” TO NSTORE 0 TO SM,SNDO JC2 WITH M,SM &计算M！DO JC2 WITH N,SN &计算N！DO MC2 WITH （2） “表达式结果为S=”+ （3） SET PROC TOPROC JC2PARA X,YT=1=X T=T*I （4） PROC MC2 （5） T=T*YX=T6、 下面程序可以形成一个主对角线上元素为1，其它元素为0的

14、6*6方阵。SET TLAK OFF （1） FOR I=1 TO 6 FOR J=1 TO 6 A（I,J）=0 （3） 7、 下列程序完成一个自定义函数，其功能为：对任意一个正数值型数据（该数可有小数若干位，整数部分不超过12位）自动进行小数部分四舍五入取2位，并将其转换为中文大写金额，如10230.4567转换后为壹万零千贰佰叁拾零元肆角陆分。*ZH.PRG*Y= （2） Y=Y100 （3） DO WHILE Y P=MOD（Y,10） D=S1（P）+S2（I）+D Y= （4） RETURN DPROC S1PARA AC1=”零壹贰叁肆伍陆柒捌玖”RETURN SUBSTR（C1

15、,2A+1,2）PROC S2PARA BC2=”分角元拾佰仟亿拾佰仟”RETURN （6） 8、 给定程序的功能是：在表STD.DBF中，按姓名查询记录。USE STDDO WHILE ANS ACCEPT 请输入姓名: TO XM （2） IF .NOT.FOUND（）查无此人! CLEAR学号:,学号姓名:,姓名数学成绩:,数学英语成绩:,英语政治成绩:,政治总分:,总分是否继续查询 （Y/N） TO JX IF （3） ANS=.F.USE9、 下面程序完成输出下列图形： 1 222 33333 4444444555555555 33333 1N=5P=2*N1FOR I=1 TO P IF （1） SPAC（NI+1） FOR J=1 TO （2） STR（I,1） ENDFOR FOR K=1 TO 2*（2*NI） 1STR （4） 10、 下面程序完成从键盘输入20个数，去掉20个数中的最大值和最小值，然后求平均值。N=1DO WHILE N=20 INPUT TO B S= （2） IF MAX N=N+1AVERAGE=+ （4）