【正文】 ? * 請按照題目要求，在下面編寫程序代碼。 ? * ? SET TALK ON ? CLEAR ? **********Program********** ? ********** End ********** ? CLOSE DATA ? SET TALK OFF 答案： USE STUDENT DO WHILE .NOT. EOF() IF 筆試 =80 .AND. 上機 =80 REPL 等級 WITH 優(yōu)秀 ENDIF SKIP ENDD LIST ? * ? *【 程序設(shè)計 】 ? * ? *題目：學(xué)生劉一的信息存在數(shù)據(jù)表 。 ? * 請用 DO WHILE ...ENDDO語句編寫。 ? * 將人數(shù)存入變量 Y中 ? * 請按照題目要求，在下面編寫程序代碼。 * ? SET TALK OFF ? AN=Y ? SELECT 0 ? USE GZ ? INDEX ON 雇員號 TO GZ1 ? SELECT 0 ? USE YG ? ***********FOUND********** ? SET RELATION ON 雇員號 TO GZ ? DO WHILE UPPER(AN)=Y ? CLEAR ? GW=教授 ? ? 請輸入崗位： , GW ? ***********FOUND********** ? SEEK 崗位 ? IF !FOUND() ? ? 沒有此崗位 ! ? ELSE ? ? 崗位 ,GZ崗位工資 ,GZ科研津貼 ? LIST OFF 姓名 ,性別 ,職稱 ,崗位 FOR 崗位 =GW ? ENDIF ? ***********FOUND********** ? INPUT 是否繼續(xù) ? TO UPPER(AN) ? ENDDO ? ? 再見 ! ? SET TALK ON 答案： =======(答案 1)======= SET★ RELA★ TO★ 雇員號★ INTO★ GZ =========或 ========= SET★ RELA★ TO★ 雇員號★ INTO★ A =======(答案 2)======= LOCA★ FOR★ 崗位 =GW =======(答案 3)======= WAIT★ 是否繼續(xù) ?★ TO★ AN =========或 ========= ACCE★ 是否繼續(xù) ?★ TO★ AN 程序設(shè)計 ? * ? *【 程序設(shè)計 】 ? * ? *題目：設(shè)表 ：學(xué)號（ C， 5），姓名（ C， 6）， ? * 職稱（ C， 6）統(tǒng)計出 工程師 的 ? * 人數(shù)。 給定 的崗位查詢相應(yīng) 的崗位工資、教學(xué)津貼和科研津貼，并顯示聘任為該崗位 的人員情況。 ? * ? *注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。 ? * ? *注意：不可以增加或刪除程序行，也不可以更改程序的結(jié)構(gòu)。 ? * ? SET TALK OFF ? CLEAR ? SELE A ? USE GZ ? INDEX ON 編號 TO GZBHSY ? SELE B ? USE DA ? ***********SPACE********** ? INDE ON 【 ?】 TO DABHSY ? SELE A ? ***********SPACE********** ? UPDA ON 編號 FROM DA REPL 基本工資 WITH 【 ?】 ? ***********SPACE********** ? 【 ?】 應(yīng)發(fā)工資 WITH 基本工資 +獎金 ,扣款合計 WITH 水費 +電費 +房租費 ,實發(fā)工資 WITH 實發(fā)工資 扣款合計 ? LIST ? CLOSE DATABASE ? SET TALK ON ? RETURN 答案： =======(答案 1)======= 編號 =======(答案 2)======= =========或 ========= B基本工資 =======(答案 3)======= REPL ALL 程序改錯 ? * ? *【 程序改錯 】 ? * ? *題目：表 ：學(xué)號（ C， 6），姓名（ C， 6）， 性別（ C， 2），入學(xué)成績（ N， 6， 2）。 ? * 要求對職工工資庫文件中的“基本工資”、“應(yīng)發(fā)工資” ? * 、“扣款工資”和“實發(fā)工資”的字段進行賦值。請在 【】 處添上適當 ? * 的內(nèi)容，使程序完整。 ? * 請在 【】 處添上適當?shù)膬?nèi)容，使程序完整。 【 例 721】 全局變量、 局部變量及其作用域示例。 ③ 本地變量 Local 用 Local定義的本地內(nèi)存變量只能在定義它的程序模塊中存在，一旦定義它的程序運行完畢，本地變量就會從內(nèi)存中釋放。沒被說明，但在程序中被賦初值，系統(tǒng)默認其為單元的局部變量（隱式說明）。 ?局部變量也可以用 PRIVATE來說明。 ?局部變量一旦離開定義它們的程序，就將失去意義。 ?全局變量須先說明（定義）后使用，通常在主程序中定義，也可在子程序中定義，還可在命令窗口中定義。 (2) 按變量的作用域來劃分 , 變量可分為種： ①全局變量（ public） ②私有變量（ private） ③ 本地變量（ local） ① 全局變量 PUBLIC ?在所有程序模塊中都有效的內(nèi)存變量 ?全局變量在程序或過程結(jié)束后不會自動釋放，必須使用 RELEASE或 CLEAR MEMORY命令才能釋放。 SET UDFPARMS TO REFERENCE Clear ?采用格式 2的參數(shù)傳遞 Y=1 ? 格式 2按值傳遞 PP(Y) ? 外部 ,Y ? Y=1 Set UDFPAR To REFERE ? 格式 2按地址傳遞 PP(Y) ? 外部 ,Y ? ?采用格式 1的參數(shù)傳遞 Y=1 ? 格式 1按地址傳遞 DO PP WITH Y ? 外部 ,Y ? Y=1 Set UDFPARMS To Values ? 格式 1按值傳遞 DO PP WITH Y ? 外部 ,Y ? Y=1 ? 格式 1常量按值傳遞 DO PP WITH 1 ? 外部 ,Y ? RETURN *過程 PP* PROC PP PARA X X=2*X+1 ? 內(nèi)部 ,X RETURN ENDPROC 【 例 720】 兩種格式、兩種方式的參數(shù)傳遞應(yīng)用。 ?參數(shù)傳遞方式的設(shè)置： SET UDFPARMS TO VALUE | REFERENCE 其中： VALUE表示按值傳遞， REFERENCE表示按地址傳遞。 **主程序： ** Clear Input 請輸入一個整數(shù) : To M Do sub1 with M Retrun **** paramerters N P=1 FOR i=1 TO N P=P*i ENDFOR ?N,的階乘為 , p Return (1) 參數(shù)傳遞在 VFP中分為兩種方式 ?第一種參數(shù)傳遞方式： 按值傳遞 將實參值的副本傳遞給形參，形參值的改變不影響實參變量的值。返回 P 的值 ENDFUNC )!(!!rnrnC rn?? 參數(shù)傳遞和變量的作用域 1．參數(shù)傳遞 在主程序調(diào)用子程序時，有時需要調(diào)用程序與被調(diào)用程序之間進行 參數(shù)傳遞 。 ?用戶自定義函數(shù)的語法格式： FUNCTION 函數(shù)名 PARAMETER 形參變量名表 命令序列 RETURN [表達式 ] ENDFUNC 【 例 719】 用函數(shù)實現(xiàn)求組合 CLEAR INPUT 第一個數(shù) : TO r INPUT 第二個數(shù) : TO n C=JC(n) / (JC(r) * JC(nr) ) ?從 ， n， 里取 ， r， 的組合為 , C RETURN ***JC( )函數(shù)：求任意一個數(shù) x的階乘 ** FUNCTION JC PARAMETERS X P=1 FOR i=1 TO X P=P*i ENDFOR RETURN P amp。 過程文件打開后，文件中所有過程都可以被調(diào)用 參數(shù) ADDITIVE表示不關(guān)閉原先已打開過程文件 ?過程文件的關(guān)閉 SET PROCEDURE TO 或 CLOSE PROCEDURE 【 例 718】 輸入任意半徑，計算圓的周長，圓的面積和球的體積用過程文件實現(xiàn)。 ?語法格式： PROCEDURE 過程名 1 命令序列 1 RETURN ENDPROC PROCEDURE 過程名 2 命令序列 2 RETURN ENDPROC ………… PROCEDURE 過程名 n 命令序列 n RETURN ENDPROC ?過程文件的建立 : 與程序文件的建立方法完全相同 ?過程文件的打開與過程的調(diào)用 ?要調(diào)用過程，必須先打開包含此過程的過程文件。 ?過程定義的語法格式： PROCEDURE過程名 PARAMETERS 參數(shù)表 命令序列 [RETURN [表達式 ] ] ENDPROC 【 例 717】 把求任意一個數(shù)的階乘的程序用過程來實現(xiàn)。 Clear Input 請輸入要求階乘的數(shù)： To M Do With M Return ** ** PARAMETERS N P=1 FOR i=1 TO N P=P*i ENDFOR ?N, 的階乘為 , p RETURN 主程序 （帶兩個參數(shù)）： Clear Input 請輸入要求階乘的數(shù)： To M X=1 Do With M， X ?M, 的階乘為 , X Return ** ** PARAMETERS N, P FOR i=1 TO N P=P*i ENDFOR RETURN 過程和過程文件 1．過程 ?過程的的概念： 過程是以 PROCEDURE過程名 開頭，以 ENDPROC結(jié)尾的一段程序。調(diào)用子程序 Return : P=1 FOR i=1 TO 100 P=P*i ENDFOR ?100的階乘為 , p RETURN 子程序 2．子程序的建立： MODIFY COMMAND 子程序文件名 3．子程序的調(diào)用 ?調(diào)用語句格式： DO 子程序文件名 [With 參數(shù)列表 ] 說明： WITH 用于主程序和子程序間參數(shù)的傳遞 ?子程序參數(shù)定義： PARAMETERS 參數(shù)列表 ?子程序返回語句的四種格式 RETURN 返回到調(diào)用它的上一級主程序或 VFP窗口