《江苏计算机等级测验考试试题VFP归纳》由会员分享，可在线阅读，更多相关《江苏计算机等级测验考试试题VFP归纳（10页珍藏版）》请在金锄头文库上搜索。
1、第四讲程序设计考点1：程序文件的建立与执行 程序的建立或修改：modify command 程序文件的扩展名为.prg 程序文件的运行： do 运行程序文件时，系统会对程序文件（.prg）进行编译，生成“伪编译”程序（.fxp）,执行程序实际上是执行.fxp文件矚慫润厲钐瘗睞枥庑赖。 程序执行过程中，遇到以下命令作用： CANCEL：终止程序运行，清除所有私有变量，返回到命令窗口 DO：转去执行另一个程序 数据输入输出命令 ： 格式1：INPUT 字符表达式 TO 内存变量功能：该命令等待用户从键盘输入数据，当用户回车后，系统将表达式的值存入指定的内存变量注：输入的数据可以是常量、变量，也可以
2、是表达式，但不能不输入任何内容直接按回车键。输入字符串时必须加定界符，输入逻辑型常量时要用圆点定界(如.T. ,.F.)，则输入日期时间型常量时要用大括号(如2001-03-01)。聞創沟燴鐺險爱氇谴净。例：INPUT 输入二次项系数： TO a INPUT “X= TO x 格式2：ACCEPT 字符表达式 TO 内存变量功能：该命令等待用户从键盘输入字符串，当用户回车后，系统将表达式的值存入指定的内存变量。注：该命令只能接收字符串。用户在输入字符串时不需要加定界符；否则，系统会把定界符作为字符串本身的一部分。如果不输入任何内容而直接按回车键，系统会把空串赋给指定的内存变量。例：ACCEPT
3、TOA 格式3：WAIT 字符表达式 TO 内存变量 WINDOW TIMEOUT 数值表达式功能：该命令显示字符表达式的值作为提示信息，暂停程序的执行，直到用户按任意键或单击鼠标时继续程序运行。注：用来保存用户输入的字符，其类型为字符型。TIMEOUT子句用来设定等待时间(秒)例：WAIT “输入无效，请重输” WINDOW TIMEOUT 5：在VFP主窗口显示一提示窗口，显示信息“输入无效，请重输”，之后程序暂停输入，5秒后或按任意键提示窗口关闭，程序继续执行。考点2：程序基本结构 顺序结构 选择|分支结构 If else endif Do case case OtherwiseEndC
4、ase 循环结构 For .EndFor Do while EndDo Scan.EndScan IF else endif 当条件为.T.时，先执行语句序列1，再执行语句序列3；当条件为.F.时，先执行语句序列2，再执行语句序列3； IF语句可以嵌套，但不能交叉，即最先出现的if和最后出现的endif成对，最后出现的if和最先出现的endif成对残骛楼諍锩瀨濟溆塹籟。例1：下列程序段的输出结果是ACCEPTTOAIFA=123456S=0ENDIFS=1?SRETURNA0B1C由A的值决定 D程序出错酽锕极額閉镇桧猪訣锥。例2：下列程序运行后，x的值为 30 ，y的值为 -2 。CLEAR
5、x=26y=0IF INT(x/2)=x/2 y=mod(x,3) x=x+4ENDIF IF INT(x/3)=x/3y=mod(x,-4) ENDIF ?x ?y例3：下程序最后在屏幕显示的结果是：Aone Btwo Cthree DfourSET EXACT ONs=“ni”+SPACE(2)IF s=“ni”IF s=“ni”?“one”ELSE?“two”ENDIFELSEIF s=“ni”?“three”ELSE?“four”ENDIFENDIFRETURN DO CASE CASE CASE CASE OTHERWISE ENDCASE 依次判断CASE后的条件是否成立，若某个C
6、ASE后的条件成立，则执行其后的语句序列，然后执行ENDCASE后的语句序列；若所有CASE后的条件都不成立，则执行OTHERWISE后的语句序列，然后执行ENDCASE后的语句序列。 只有最先成立的CASE条件后的语句序列被执行 DO CASE和ENDCASE必须成对使用例：执行下列程序后，输出到屏幕上的结果为：ClearStore 5 to a,bStore 1 to c,dd=b2-4*a*cDo case case d0 d=300 ENDCASE ?d DO WHILE LOOP EXIT ENDDO 循环体： 先判断DO WHILE后的条件是否成立，若为.T.则执行循环体，执行到E
7、NDDO时返回DO WHILE重新判断条件是否成立，若为.T.则继续执行循环体；若为.F.则结束循环，转去执行ENDDO后的语句。彈贸摄尔霁毙攬砖卤庑。 LOOP：结束循环体的本次执行，转去DO WHILE重新判断循环条件是否成立 EXIT：结束循环体的执行，转去执行ENDDO后的语句。例1：如下程序显示的结果是 【13】 。 s=1 i=0 do while i=1twotwoSUBSTR（one，i，1）ii1ENDDO？two厦礴恳蹒骈時盡继價骚。例3：执行以下程序，屏幕显示为： 10 15 x=8DO WHILE .T. x=x+1 IF x=INT(X/4)*5 ?x ELSE LO
8、OP ENDIF IF x10 EXIT ENDIFENDDO例4：完善下列程序，使其产生10个随机的大写英文字母：CLEARi=1DO WHILE i=65 AND k0y=y+x%10x=int(x/10)ENDDO?yA54321 B12345 C51 D15茕桢广鳓鯡选块网羈泪。考点2：程序基本结构FOR 循环变量=初值 to 终值 STEP 步长 循环体 LOOP EXIT ENDFOR循环条件：循环变量=终值 (步长为负） 若循环条件成立，则执行循环体；每执行循环体，循环变量会增加一步长值，并再次判断循环条件是否成立，成立则继续执行循环体，不成立则执行ENDFOR后的语句序列。鹅娅
9、尽損鹌惨歷茏鴛賴。 步长值可正可负，默认为1. LOOP：结束循环体的本次执行，循环变量增加一个步长值，再次判断循环条件是否成立。 语句序列例1：运行下列程序后显示结果为： 南大信管系 CLEAR C=”南京大学信息管理系” FOR I=1 TO LEN(C)/2 IF I%20 ?SUBS(C,2*I-1,2) ENDIF ENDFOR例2：完善下列程序以显示7 1000以内能被7整除、且含有数字5的所有整数（例如35、56、105等）。籟丛妈羥为贍偾蛏练淨。FOR n=7 TO 1000 step 7 ch= allt(str(n) IF “5” $ ch ?n ENDIFENDFOR例3
10、：） 完善下列程序，使程序的运行结果如右图所示。CLEARFOR i=1 TO 9 FOR j=1 TO 9IF i=j ?STR(i,1)+*+STR(j,1)+=+ STR(i*j,2) +SPACE(2)預頌圣鉉儐歲龈讶骅籴。 ENDIF ENDFOR?ENDFOR例4：下列程序用来计算数列2/1，3/2，5/3，155/18，173/19，192/20，的前20项之和。CLEARm=2s=0FOR i=1 to 20s=s+m/i m= m+i ENDFOR?s例5:执行下列程序后，输出到屏幕上的结果为：3CLEARcstring=“VisualFoxPro”nresult=0m=le
11、n(cstring)FOR n=1 to m c=SUBSTR(cstring,n,1) IF !BETWEEN(ASC(c), ASC(“A”), ASC(“Z”) LOOP ENDIF nresult=nresult+1ENDFOR? nresult考点3：过程或自定义函数 过程定义PROCEDURE 过程名PARAMETERS 形式参数列表 RETURN ENDPROC 形式参数最多27个 RETURN：指定过程的返回值 RETURN：返回值为.T.自定义函数：FUNCTION 函数名PARAMETERS 形式参数列表 RETURN ENDFUNC 过程或自定义函数的调用与执行 格式1： DO 过程名 with 实参1，实参2， 格式2： 过程名（实参1，
