new.pptVIP

教学目的与要求 掌握程序的创建、调试及运行的方法 掌握自定义函数的使用 了解面向对象的程序设计的的概念 掌握类和对象的概念、类的特点 掌握对象的属性、方法和事件概念 掌握基类、子类和父类的概念，类的类型 掌握引用对象、设置对象属性和调用对象的方法程序的方法 掌握对象对事件的响应、容器层次与类层次中的事件发生情况以及事件激发顺序 了解最小事件集和核心事件集 了解事件驱动和事件循环的概念 掌握常用的事件 补充介绍三条输入命令： 1、等待键盘输入任意一个字符命令WAIT 语法： WAIT [cMessageText] [TO VarName] [WINDOW [AT nRow,nColumn]] 功能：显示信息并暂停VisualFoxPro的执行，按某个键或单击鼠标后继续执行。 补充命令2：从键盘接收多个字符的命令ACCEPT： 语法：ACCEPT [cMessageText] TO VarName 功能：从键盘接收一个或多个字符，并可以保存到变量VarName中。 实例：ACCEPT “请输入密码：” TO MM 补充命令3：从键盘接收任意类型数据的命令INPUT： ???语法：INPUT [cMessageText] [TO VarName] 功能：从键盘接收数据并可保存到变量中。 实例：INPUT “请输入系数：” TO S 例：从键盘输入一个密码，判断密码正确与否，给出不同的提示信息。 ACCEPT “请输入密码：” TO PW IF PW=”654321” ？“欢迎使用” ELSE ？“密码不对，谢绝使用” ENDIF P144 例5.8 CLEAR c=“金字大宝塔” n=LEN(c)/2 FOR i=1 TO n ?SPACE(70-i) FOR j=1 TO I ??SUBS(c,2*i-1,2) =INKEY(0.5) ENDFOR ENDFOR 下列程序是用来计算1！+2！+3！+4！+5！的值，将程序补充完整 SET TALK OFF P=0 For I=1 to 5 P=P+jc(I) ENDfor ？P 参数传递的两种方式 1、按值传递 自定义函数默认按值传递 SET udfparms to refrence 设置以引用传递 强行按值传递加（） 2、按引用传递 过程默认以引用传递 Set udfparms to value 设置按值传递 强行以引用传递加@ 下列程序执行后，输出A= ？，B=？ A=2 B=5 K=PFH(A,B) ?A,B FUNCTION PFH PARAMETERS M,N S=0 FOR I=M TO N S=S+I*I NEXT I M=S N=M+S RETURN S 结果：2，5 A=2 B=5 SET UDFPARMS TO REFERENCE K=PFH(A,B) ?A,B FUNCTION PFH PARAMETERS M,N S=0 FOR I=M TO N S=S+I*I NEXT I M=S N=M+S RETURN S ENDFUNC 结果：54，108 A=2 B=5 K=PFH(@A,@B) 强行以引用传递 ?A,B FUNCTION PFH PARAMETERS M,N S=0 FOR I=M TO N S=S+I*I NEXT I M=S N=M+S RETURN S ENDFUNC A=2 B=5 SET UDFPARAMS TO REFERENCE 设置引用传递 K=PFH((A),(B)) 强行以值传递 ?A,B,K FUNCTION PFH PARAMETERS M,N S=0 FOR I=M TO N S=S+I*I NEXT I M=S N=M+S RETURN S ENDFUNC 下列程序的功能是将一个字符串中的所有空格删除的自定义函数，请完善程序。 FUNCTION DS PARAMETERS CSTR CR=SPACE(0) FOR N=1 TO LEN(CSTR) IF SUBSTR(CSTR,N,1)=SPACE(1) (35) ENDIF CR=CR+SUBSTR(CSTR,N,1) ENDFOR RETURN (36) ENDFUNC STORE 10 TO M1,M2 DO P1 ?M1=,M1, ? M2=,M2 *?m3=,m3 PROCEDURE P1 PRIVATE M1 local m3