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