二级VF专项练习：程序设计典型例题

     RETURN
     计算圆面积的函数：
        FUNCTION  AREA
        PARAMETERS A
        S=3.1415926*A*A
        RETURN
   分析：该语句是实现对计算圆面积函数的调用，返回值赋给变量SM。这个程序所使用的是一个自定义函数，自定义函数和
子程序的区别就是自定义函数必须返回一个函数值，而子程序没有这个限制。自定义函数的编辑方法和子程序的编辑方法相同，只是要把子程序文件名改为自定义函数名。
   需要注意的几点是：自定义函数能以独立的文件存储，也可包含在调用程序中作为它的一部分。如果[FUNCTION<函数名>]缺省，这表示该函数是一个独立的文件。另外，自定义函数不能与系统函数同名，也不能与内存变量同名。
     答案：SM=AREA(R)
 例26   当变量I在奇偶之间变化时，求出下面程序的输出结果。
     程序：
       CLEAR
       I=O
       DO WHILE I<10
        IF INT(I/2)=I/2
           ?"W"
       ENDIF 
       ?"T"
       I=I+1
       ENDDO
     分析：该程序应用的是循环和条件嵌套的结构。
     答案：W,T,T连续显示5次
[例27]  填空完成下列程序，仅接受输入Y和N的程序，否则程序结束。
        DO  WHILE  .T.
          WAIT  "请输入Y/N"    TO    AS
          IF  UPPER(AS)< >"Y"AND  UPPER(AS) < >"N"
              (1)  
          ELSE
            (1)
          ENDIF
        ENDDO
    分析：该例是一个条件循环，选用EXIT是强制推出循环条件，执行它能够立即跳出循环，执行ENDDO
后面的语句。选用LOOP则是一种强制缩短循环的语句，其功能是终止本次循环体语句的执行，把控制转到
循环结构的开始。 
    答案：  (1)EXIT,(2)LOOP
[例28]   当变量X的值变化时，依次显示其结果，注意循环体内的LOOP和EXIT语句。
        程序：
           CLEAR
           X=3
           DO WHILE  .T.
           X=X+1
           IF X=INT(X/3)*3
?x
ELSE
               LOOP
ENDIF
       IF X>10
EXIT
ENDIF
ENDDO
RETURN
分析：INT（）是取整数函数
如果循环体内有LOOP命令，那么当晕到LOOP时，就结束循环的本次执行，不再执行其后的语句，而是转回DO WHILE
处重新判断条件。
如果循环体包括EXIT命令，那么当遇到EXIT时，就结束该循环语句的执行，转去执行ENDDO后面的语句。
通常LOOP或EXIT出现在循环体内嵌套的选择语句时，根据条件来决定是LOOP回去，还是EXIT出去。
答案：依次显示为：6，9，12
[例29] 填空完成下列程序，求数绝对值的程序。
INPTU’请输入一个数：‘TO X
？STR（X）+“它的绝对值是：’+STR（f（x））
FUNCTION F
（1）
———
IF T>=0
T=T
ELSE
T=-T
ENDIF