【正文】 SET TALK ON RETURN note 該程序修改了教師的職稱信息 119 ? 用于對程序執(zhí)行的環(huán)境進(jìn)行設(shè)置，這組命令均 以 SET開頭 。 ? （ 1）設(shè)置對話方式 ? 格式： SET TALK ON|OFF ? 功能：設(shè)置系統(tǒng)的對話方式為開或關(guān)狀態(tài)，默認(rèn)值為 ON。 ? 說明： 一些命令在執(zhí)行時會返回一些與執(zhí)行狀態(tài)有關(guān)的信息，該信息通常顯示在主窗口或狀態(tài)欄，對程序中輸入、輸出命令在主窗口顯示的信息形成干擾。 ? 為此，一般在程序開頭設(shè)置對話方式為 OFF狀態(tài)，在程序執(zhí)行完畢后，再將其恢復(fù)至 ON狀態(tài)。 120 （ 3）設(shè)置默認(rèn)盤符、路徑 ? 格式： SET DEFAULT TO [盤符 路徑 ] ? 功能：設(shè)置系統(tǒng)默認(rèn)的盤符、路徑，即文件的存放位置。若缺省可選項，則系統(tǒng)默認(rèn)的文件存放位置為 C盤根目錄。 ? SET DEFAULT TO只是做臨時設(shè)置，一旦關(guān)閉 VF就失效。 ? 例如， SET DEFAULT TO d:\vf USE 圖書 amp。amp。在 d盤 vf文件夾中打開圖書表 121 4. 清屏命令 CLEAR ? 格式： CLEAR 功能：清除主窗口中的輸出信息。 不能清除命令窗口中的信息。 122 ?終止命令－ CANCEL 終止當(dāng)前程序運行（菜單程序 取消），并返回到系統(tǒng)命令窗口。 ?返回命令－ RETURN 返回到主調(diào)程序中調(diào)用行的下一行，無上級程序則返回到命令窗口。 ?退出命令－ QUIT 退出 VFP，返回到操作系統(tǒng)，并自動刪去磁盤中的臨時文件。同菜單“文件－退出”的操作。 程序結(jié)束命令 123 IF條件語句程序舉例 【 例 】 編程求任意三個數(shù)的最大數(shù)。 ? SET TALK OFF ? CLEAR ? INPUT 請輸入第一個數(shù) : TO num1 ? INPUT 請輸入第二個數(shù) : TO num2 ? INPUT 請輸入第三個數(shù) : TO num3 ? IF num1num2 ? max=num1 ? ENDIF ? IF NUM2NUM1 ? max=num2 ? ENDIF ? IF num3max ? max=num3 ? ENDIF ? ?最大數(shù)為 ,max ? SET TALK ON ? RETURN 124 【 例 】 按學(xué)號查找學(xué)生信息，若找到，顯示該生信息，否則，顯示“找不到”提示信息 ? CLEA ? USE 學(xué)生 ? ACCEPT “請輸入要查找的學(xué)生學(xué)號：” TO XH ? LOCA ALL FOR 學(xué)號 =XH ? IF FOUND() ? DISP ? ELSE ? ??該生不存在！’ ? ENDIF ? USE IF條件語句程序舉例 125 CASE多分支語句程序舉例 ? 【 例 】 一個簡單的購買圖書計費程序。 ? 要求輸入某種圖書的金額和購買數(shù)量，按購書金額的大小，予以優(yōu)惠收費。優(yōu)惠額度為： ? 若購書金額小于等于 500元，優(yōu)惠 5%。 ? 若購書金額大于 500元，且小于等于 1000元，優(yōu)惠 12%。 ? 若購書金額大于 1000元，且小于等于 1500元，優(yōu)惠 15%。 ? 若購書金額大于 1500元，優(yōu)惠 20%。 126 ? CASE amount500 ? p= ? CASE amount0 ? p= ? OTHERWISE amp。amp。amount=0 ? ?“數(shù)據(jù)錯誤！” ? RETURN ? ENDCASE ? amount=amount*(1p) amp。amp。計算優(yōu)惠金額 ? ?“優(yōu)惠” +STR(p*100,2)+“%，實際金額為：” ,amount ? SET TALK ON ? RETURN 程序如下： SET TALK OFF CLEAR INPUT “請輸入圖書單價：” TO price INPUT “請輸入圖書數(shù)量：” TO num amount=price*num *計算金額（未優(yōu)惠） DO CASE CASE amount1500 p= CASE amount1000 p= 127 DO WHILE循環(huán)語句程序舉例 【 例 】 編寫程序，查詢 1998年以后出版的圖書，并輸出書號、書名、作者及可借閱否等數(shù)據(jù)。 USE 圖書 DO WHILE .() IF LEFT(ALLTRIM(出版日期 ),4)=’1998’ DISP FIELDS 書號 ,書名 ,作者 ,可借閱否 ENDIF SKIP ENDDO 128 DO WHILE循環(huán)語句程序舉例 【 例 】 編寫程序，查詢 1998年以后出版的圖書，并輸出書號、書名、作者及可借閱否等數(shù)據(jù)。 USE 圖書 SCAN IF LEFT(ALLTRIM(出版日期 ),4)=’1998’ DISP FIELDS 書號 ,書名 ,作者 ,可借閱否 ENDIF ENDSCAN 129 程序如下： USE 圖書 DO WHILE .T. ACCEPT “請輸入書名 :” TO bookname LOCATE FOR 書名 =bookname IF .() ?“庫內(nèi)無 《 ”+bookname+“》 !” ELSE ?【 例 】 編寫一個圖書查詢程序。要求按書名進(jìn)行檢索，若找到，則輸出此書的書號、作者、出版社、可借閱否等信息，并且能夠根據(jù)需要多次進(jìn)行檢索。 DO WHILE .() ?“書號 :”,書號 ,“作者 :”,作者 ,“出版社 :”,。 出版社 ,“可借閱否 :”,可借閱否 CONTINUE ENDDO ENDIF WAIT “還繼續(xù)檢索嗎 (y/N)?” TO 。 t WINDOW IF LOWER(ALLTRIM(t))=“n” EXIT ENDIF ENDDO 130 FOR循環(huán)語句程序舉例 ? 讀程序?qū)戇\行結(jié)果： SET TALK OFF CLEAR S=0 FOR I=1 TO 10 IF I/2=INT(I/2) LOOP ENDIF S=S+I ENDFOR ??S=?,S SET TALK ON 多模塊程序設(shè)計 132 多模塊程序設(shè)計 ? [目的要求 ]： 了解自定義過程，掌握自定義過程的格式、參數(shù)傳遞、子程序和過程調(diào)用 . 掌握有關(guān)形參與實參的概念 ,掌握調(diào)用過程與函數(shù)時參數(shù)的傳遞 . ? [重點 ]： 過程的格式、傳遞、子程序、過程調(diào)用及變量的作用域等 . 133 ? 一個較大的應(yīng)用程序通常可能由若干個模塊構(gòu)成，大模塊又可以細(xì)分為小模塊，每個小模塊，完成一種基本功能，模塊間存在著調(diào)用關(guān)系。 ? 程序模塊： 可單獨命名的程序段。 ? 實現(xiàn)模塊結(jié)構(gòu)程序設(shè)計的工具如下： 多模塊程序設(shè)計 –過程、子程序、自定義函數(shù) 134 過 程 1. 定義過程 可以一個過程包含在一個獨立的程序文件中，也可以多個過程包含在同一個程序文件中。 語法格式 PROCEDURE 過程名 [PARAMETERS 形參表 ] 語句序列 RETURN 說明 – 過程名字惟一。要注意區(qū)別過程名與過程文件名。 – PARAMETERS子句中的參數(shù)稱為形式參數(shù)，簡稱形參。 – RETURN 語句的功能是結(jié)束本過程運行，返回到調(diào)用它的程序。 – RETURN TO MASTER表示過程結(jié)束時返回到最高一級主程序。 PROCEDURE xs parameters m m=m+4 ? m RETURN 135 過 程 2. 過程的調(diào)用 DO 過程名 [ WITH 實參表 ] [IN 文件名 ] 說明： – 調(diào)用過程時，會產(chǎn)生參數(shù)傳遞。 – DO With子句中的參數(shù)稱為實際參數(shù)，簡稱實參。 – 值傳遞 ：將實參 (常量或表達(dá)式 )的值傳遞給形參，形參的任何變化不會影響到實參。 – 地址傳遞 ：將實參 (變量 )的地址傳遞給形參，形參的變化會影響到實參 (變量 )。 如 : n=5 DO xs WITH 5 amp。amp。值傳遞 DO xs WITH n+5 amp。amp。值傳遞 DO xs WITH (n) amp。amp。值傳遞 DO xs WITH n amp。amp。地址傳遞 PROCEDURE xs parameters m m=m+4 ? m RETURN 136 過 程 2. 過程的調(diào)用 ? 可把過程和主程序放入一個程序文件中，但是過程必須位于主程序的后面； ? 也可將一個或多個過程放在一個文件中，稱為過程文件，建立方法與建立程序文件相同，后綴仍為 .PRG。 ? 若過程和主程序位于不同的程序文件中 , 調(diào)用過程時需用IN子句指定過程所在文件的文件名 . n=5 do xs with n PROCEDURE xs ..... RETURN n=5 do xs with n in 過程 PROCEDURE xs ..... RETURN 過程 程序 程序 137 USE 圖書 INDEX ON 書名 TAG SM INPUT ?請輸入要查找的 。書名：’ TO BNAME DO CHAXUN WITH BNAME *主程序 【 例 ,21】 編寫一個過程，按書名進(jìn)行查詢。 PROCEDURE CHAXUN PARA BOOKNAME SEEK BOOKNAME IF FOUND() DISP ELSE ??無此書’ ENDIF RETURN *過程 138 子程序 ? 定義： 子程序是相對于主程序而言的一個獨立的程序文件 ，其建立方法與建立程序文件的方法相同 ， 擴展名為 PRG。 與過程相比： 子程序在建立時無過程首部 ， 且只能單獨存放于一個程序文件中 。 ? 子程序的定義 [PARAMETERS 參數(shù)表 ] 語句序列 RETURN ? 子程序的 調(diào)用和返回方法與過程相同 。 139 程序之間的調(diào)用和返回 子程序 140 例：輸入一個半徑 r 值 ， 求出圓的面積 。 ***** ** ***主程序 *** YMJ=0 INPUT “請輸入圓的半徑 ” TO BJ DO SUB WITH BJ, YMJ amp。amp。 調(diào)用子程序 ？ 圓的面積 =, YMJ amp。amp。 顯示圓面積 RETURN ***子程序 ****** PARAMETERS R, S amp。amp。 接收參數(shù) S=PI()*R*R amp。amp。 計算圓面積 ， PI()返回 π 值 RETURN amp。amp。 返回主程序 要建立兩個程序文件 , 141 自定義函數(shù) 1. 定義自定義函數(shù) 自定義函數(shù)是一個子程序（ .PRG），它可以返回一個值到調(diào)用程序。 格式 : [FUNCTION 函數(shù)名 ] [PARAMETERS 參數(shù)名 ] 語句序列 RETURN 表達(dá)式 – 與過程相似，自定義函數(shù)可以在一個獨立的程序文件中，也可以在一個過程文件中。 – 與過程不同， 自定義函數(shù)必須返回一個值 。 – 若函數(shù)名缺省，表示是一個獨立的程序文件，文件名可作為函數(shù)名。