[其它考试]公共基础-程序设计基础2.pptVIP

Visual FoxPro 6.0程序设计 程序设计基础 过程和函数（了解） （４）子程序嵌套：子程序或过程调用及返回示意图 2 . 过程： 过程保存于 . PRG 文件中 ? 格式： PROCEDURE 过程名 [PARAMETERS 参数表] 命令序列 [RETURN] ?过程调用命令： DO 过程名 [WITH 参数表] [ IN 程序文件名] ? 过程文件的打开和关闭 SET PROCEDURE TO [ 过程文件名 ] CLEAR YMJ=0 BJ=0 @5,10 SAY “请输入半径：” GET BJ READ DO JS WITH BJ,YMJ ?”YMJ=”,YMJ RETURN PROCEDURE JS PARAMETERS R,S S=PI( )*R*R RETURN MAIN_2.PRG 主程序和过程在同一文件中。 PROCEDURE JS PARAMETERS R,S S=PI( )*R*R RETURN JS_3.PRG CLEAR YMJ=0 BJ=0 @5,10 SAY “请输入半径：”　GET BJ READ DO JS WITH BJ,YMJ IN JS_3 ?”YMJ=”,YMJ RETURN MAIN_3.PRG 主程序和过程不在同一文件中，Do 命令用In 子句打开过程文件。 PROCEDURE JS PARAMETERS R,S S=PI( )*R*R RETURN JS_4.PRG CLEAR SET PROCEDURE TO JS_4 YMJ=0 BJ=0 @5,10 SAY “请输入半径：”　GET BJ READ DO JS WITH BJ,YMJ ?”YMJ=”,YMJ SET PROCEDURE TO RETURN MAIN_4.PRG 主程序和过程不在同一文件中，事先用SET PROCEDURE TO 命令打开过程文件。 3 . 自定义函数 （1）自定义函数的建立 [ FUNCTION 函数名] PARAMETERS 参数表 语句序列 [ RETURN 表达式] CLEAR YMJ=0 BJ=0 @5,10 SAY “请输入半径：” GET BJ READ YMJ=JS(BJ) ?”YMJ=”,YMJ RETURN FUNCTION JS PARAMETERS R S=PI( )*R*R RETURN S MAIN_5.PRG 主程序和函数在同一文件中。 PARAMETERS R S=PI( )*R*R RETURN S JS_6.PRG CLEAR YMJ=0 BJ=0 @5,10 SAY “请输入半径：”　GET BJ READ YMJ=JS_6(BJ) ?”YMJ=”,YMJ RETURN MAIN_6.PRG 主程序和函数不在同一文件中，省略FUNCTION命令， 将函数所在的文件名作为函数名。 4. 参数传递 值传递 引用传递 传递方式 （1）子程序的两种调用格式： 【格式1】 　DO 子程序名 [WITH 参数表] 【格式2】 子程序名（ 参数表） * 目 录 上一页 下一页 退 出 * 本 章 要 点 返 回 　交互式输入输出命令 程序文件　 程序控制结构 过程和函数 VFP的交互式输入输出命令 格式：ACCEPT [提示信息] TO 内存变量名 功能：将从键盘上接收的字符串数据存入指定的内存变量中。 （1）输入语句（接受字符型数据） 返 回 例，试编程完成下述功能：从键盘随机输入某个表 的文件名，要求打开并显示此表的内容。 CLEAR SET TALK OFF ACCEPT 请输入表文件名 TO FileName USE FileName LIST USE RETURN 在命令窗口输入下列命令： MODIFY COMMAND L503 (文件名中的扩展名.PRG