RETURN
     計算圓面積的函數(shù)：
        FUNCTION  AREA
        PARAMETERS A
        S=3.1415926*A*A
        RETURN
   分析：該語句是實現(xiàn)對計算圓面積函數(shù)的調用，返回值賦給變量SM。這個程序所使用的是一個自定義函數(shù)，自定義函數(shù)和
子程序的區(qū)別就是自定義函數(shù)必須返回一個函數(shù)值，而子程序沒有這個限制。自定義函數(shù)的編輯方法和子程序的編輯方法相同，只是要把子程序文件名改為自定義函數(shù)名。
   需要注意的幾點是：自定義函數(shù)能以獨立的文件存儲，也可包含在調用程序中作為它的一部分。如果[FUNCTION<函數(shù)名>]缺省，這表示該函數(shù)是一個獨立的文件。另外，自定義函數(shù)不能與系統(tǒng)函數(shù)同名，也不能與內存變量同名。
     答案：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
     分析：該程序應用的是循環(huán)和條件嵌套的結構。
     答案：W,T,T連續(xù)顯示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
    分析：該例是一個條件循環(huán)，選用EXIT是強制推出循環(huán)條件，執(zhí)行它能夠立即跳出循環(huán)，執(zhí)行ENDDO
后面的語句。選用LOOP則是一種強制縮短循環(huán)的語句，其功能是終止本次循環(huán)體語句的執(zhí)行，把控制轉到
循環(huán)結構的開始。 
    答案：  (1)EXIT,(2)LOOP
[例28]   當變量X的值變化時，依次顯示其結果，注意循環(huán)體內的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（）是取整數(shù)函數(shù)
如果循環(huán)體內有LOOP命令，那么當暈到LOOP時，就結束循環(huán)的本次執(zhí)行，不再執(zhí)行其后的語句，而是轉回DO WHILE
處重新判斷條件。
如果循環(huán)體包括EXIT命令，那么當遇到EXIT時，就結束該循環(huán)語句的執(zhí)行，轉去執(zhí)行ENDDO后面的語句。
通常LOOP或EXIT出現(xiàn)在循環(huán)體內嵌套的選擇語句時，根據(jù)條件來決定是LOOP回去，還是EXIT出去。
答案：依次顯示為：6，9，12
[例29] 填空完成下列程序，求數(shù)絕對值的程序。
INPTU’請輸入一個數(shù)：‘TO X
？STR（X）+“它的絕對值是：’+STR（f（x））
FUNCTION F
（1）
———
IF T>=0
T=T
ELSE
T=-T
ENDIF