二級(jí)VF專項(xiàng)練習(xí)：程序設(shè)計(jì)典型例題

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