vfp程序护理查房知识基础.pptVIP

调用过程或函数 过程方式调用 DO 过程名 [with 参数 ] 实际参数 函数方式调用 函数名(参数) 实际参数 [注] 过程方式和函数方式都可以调用过程及函数 显示 clear ? 调用函数 f1() 调用函数 *定义函数 function f1 ? 运行函数 endfunc 例：定义一个函数ntoc()，当传递给一个0~9之间的阿拉伯数字时，返回“A~J”中对应一个英文字母。 function ntoc parameter x source=ABCDEFGHIJ result=substr(source,x+1,1) return result Endfunc 要求写主程序调用 参数传递 1、向过程或函数传递参数 定义时参数写法(形参) 在PROCEDURE或FUNCTION命令后的第一个可执行语句必须是PARAMETERS语句。 格式： PARAMETERS参数表 形参，用逗号隔开 调用时参数写法(实参) ① 用WITH子句传参数 DO 过程名 WITH 参数表 实参，用逗号隔开 ② 函数调用方式 函数名（参数表） 用自定义函数完成 clear ? Area(3,5) m=4 n=5 ? Area(m,n) Function area Parameters x,y S=x*y Return s endfunc 用过程完成 clear Do Area with 3,5 m=4 n=5 Do Area with m,n Procedure area Parameters x,y S=x*y ? S Endproc 例：求矩形面积 2、参数传递的两种方式 ① 按引用传递（地址传递方式） 地址传递方式,是将作为实参变量的地址传递给被调程序的形参。地址传递时，主调程序的实参与被调程序的形参使用相同的存储器地址，一旦当形参的值发生改变，则实参的值也随之改变。 ② 按值传递 将实参的值直接传送给被调程序的形参，当被调程序的形参的值发生变化时,实参原来的值不变化。 用DO 命令调用过程或函数默认情况下是引用传递. 函数方式调用，默认是按值传递 例 将十进制数转换成二进制数表示。 算法：除2取余，先得到的余数是低位，后得到的余数是高位。 clear d=int(rand()*100+1) ? d binary=space(0) do while d#0 b=d%2 binary=str(b,1)+binary d=int(d/2) enddo ? binary 例7-a 将所输入的字符串倒序输出. input input a string: to ch i=1 mch= Do while i= len(ch) mch=substr(ch,i,1)+mch i=i+1 enddo ? mch 例：分析程序运行的结果 For i=1 to 5 for j=1 to 4 ?? Str( i*j) endfor ? endfor 循环嵌套 For i =1 to 5 ? Space(10-i) for k=1 to 2*i-1 ?? * endfor ? endfor 例: 输出菱形图案 控制每行的*个数 控制每行的*起始位置 三、 基于表的循环命令SCAN……ENDSCAN 格式： SCAN [NOOPTIMIZE] [范围] [FOR 条件] [WHILE 条件] 循环体 ENDSCAN 说明： 该语句主要用于对表中记录进行处理； SCAN命令自动将记录指针移到下一条满足条件的记录，并执行循环体； [NO OPTIMIZE]禁用Rushmore技术(优化数据访问技术) [范围]可用ALL、NEXT n、RECORD n、REST等，限定扫描记录的范围； [FOR 条件]限定对所有满足条件的记录进行操作； [WHILE 条件]限定对所有连续满足条件的记录进行操作； 例7-9 逐条显示xs表中的记录 clear use xs scan disp inkey(0.6)