【正文】 編程求稅金。 ?【例】 假設(shè)收入（ P）與稅率（ R）的關(guān)系如下表，編程求稅金。A39。C39。E39。B39。D39。? 〈條件表達(dá)式〉可以是各種表達(dá)式或函數(shù)的組合，其值必須是邏輯值。使用選擇語(yǔ)句應(yīng)注意的幾點(diǎn) 循環(huán)結(jié)構(gòu) 一個(gè)循環(huán)結(jié)構(gòu)一般應(yīng)具備如下幾個(gè)條件：（ 1）循環(huán)的初始條件：給循環(huán)變量賦初值；（ 2）循環(huán)頭：循環(huán)語(yǔ)句的起始，設(shè)置、判斷循環(huán)條件；（ 3）循環(huán)尾：循環(huán)語(yǔ)句的結(jié)尾；（ 4） 循環(huán)體：位于循環(huán)頭和循環(huán)尾之間、循環(huán)控制重復(fù)執(zhí)行的語(yǔ)句序列 循環(huán)結(jié)構(gòu) 循環(huán) 繼續(xù) 表達(dá)式循環(huán)變量 初值 表達(dá)式要反復(fù)執(zhí)行的語(yǔ)句 循環(huán)變量 變化 表達(dá)式 下一條語(yǔ)句不滿(mǎn)足循環(huán)結(jié)構(gòu) 1． DO WHILE循環(huán)語(yǔ)句【格式 1】 DO WHILE 條件表達(dá)式 語(yǔ)句序列 ENDDO 【例】編程求 1＋ 2＋ 3＋ …… ＋ 100S=0 用于累加和I=1 循環(huán)變量DO WHILE I=100 ENDDO? 1＋ 2＋ 3＋ …… ＋ 100＝ ,SS=S+I I=I+1將 100改為N呢？（ N從鍵盤(pán)輸入）【例】編程求 13＋ 57…… 101S=0I=1f=1DO WHILE I=101 s=① I=② f=fENDDO? 13＋ 57…… 101＝ ,Ss=s+i*fi=i+2記錄指針控制的循環(huán)? 實(shí)現(xiàn)這種循環(huán)的方法：利用邏輯表達(dá)式.()作為控制條件，在循環(huán)體內(nèi)設(shè)置指針移動(dòng)指令，當(dāng)記錄指針指向表中最后一條記錄后面時(shí)，條件 .()為 .F.，退出循環(huán)? DO WHILE ()[語(yǔ)句序列 ]skip ENDDO【例】用表記錄指針控制循環(huán)，編寫(xiě)程序求表 JBQK中最高工資和最低工資。USE JBQKDO WHILE .NOT. EOF() IF 姓名 ==何兵 SKIPLOOPENDIFDISPLAY SKIPENDDO【例】輸入一個(gè)數(shù)，判斷是否為素?cái)?shù)。執(zhí)行LOOP命令時(shí)，結(jié)束本次循環(huán)，循環(huán)變量增加一個(gè)步長(zhǎng)值，返回 FOR循環(huán)頭判斷循環(huán)條件是否成立。 SCAN［〈范圍〉］［ FOR〈條件表達(dá)式〉 ]? 〈語(yǔ)句序列〉 ? ENDSCAN? DO WHILE .NOT. EOF() IF 〈 條件表達(dá)式 〉 〈 語(yǔ)句序列 〉 ENDIF SKIPENDDO等價(jià)于：SCAN語(yǔ)句初設(shè)記錄指針在范圍內(nèi)？滿(mǎn)足 FOR條件？LOOPEXIT循環(huán)體ENDSCANSCAN循環(huán)后的語(yǔ)句記錄指針 +1NYYN【例】逐條顯示在 JBQK表中性別為 男 的所有記錄。? B、 若事先不知道循環(huán)的次數(shù)，只知道在某一條件滿(mǎn)足時(shí)結(jié)束循環(huán)，一般使用 DO WHILE循環(huán)。 5．多重循環(huán) 多重循環(huán)即循環(huán)的嵌套，是在一個(gè)循環(huán)結(jié)構(gòu)的循環(huán)體中又包含另一個(gè)循環(huán)。STR(Y,1)+*+STR(X,1)+=+STR(S,2)+FOR X=1 TO 9FOR Y=1 TO XS=X*Y?? STR(Y,1)+*+STR(X,1)+=+STR(S,2)+ ENDFOR?ENDFOR 多模塊程序設(shè)計(jì) 在程序設(shè)計(jì)時(shí)，常遇到這種情況，在同一個(gè)程序的不同處，或在不同程序中重復(fù)出現(xiàn)具有相同功能的程序段。調(diào)用過(guò)程的程序就稱(chēng)為 主程序 或 調(diào)用程序 。內(nèi)部過(guò)程 是指調(diào)用程序尾部所附過(guò)程和過(guò)程文件中的過(guò)程； 函數(shù)實(shí)質(zhì)上也是一段程序或者一個(gè)模塊，它與內(nèi)部過(guò)程的區(qū)別就在于，函數(shù)調(diào)用后要有返回值，而過(guò)程調(diào)用不用返回值。過(guò)程名 命令序列 [RETURN[表達(dá)式 ]][ENDPROC]? 說(shuō)明：– 過(guò)程名必須以字母或下劃線(xiàn)開(kāi)頭，字母、數(shù)字和下劃線(xiàn)的組合；– RETURN命令是過(guò)程返回命令，控制將轉(zhuǎn)回到調(diào)用程序（或命令窗口），并返回表達(dá)式的值，若省略表達(dá)式，則返回邏輯值 .T.； 命令序列 1[RETURN[表達(dá)式 ]][ENDPROC]……PROCEDUREPROCEDURE– （ 2）調(diào)用其他命令文件中的過(guò)程要先打開(kāi)此命令文件，再用 Do? 格式 1：– SET/RELEASE? sub1…do過(guò)程文件名　打開(kāi)過(guò)程文件打開(kāi)過(guò)程文件SetGetAreareturnProceduretoProcedureProcedureLPARAMETERS– – ⑤ 采用命令格式 1，實(shí)參是常量，按值傳遞，即把實(shí)參的值傳給形參；實(shí)參是變量，按引用傳遞，即把實(shí)參的地址傳給形參；– ⑥ 采用命令格式 2，默認(rèn)情況下都以按值方式傳遞參數(shù)，如果實(shí)參是變量，可以通過(guò)命令 SETToN,F?Str(N)+!=,FProceduretoProcedureTOＸ ,S?過(guò)程文件名函數(shù)名 (參數(shù) )SetToi=1CircleSParametersprocedureinputrtoreturn過(guò)程嵌套調(diào)用? VFP允許執(zhí)行一個(gè)過(guò)程時(shí) ,調(diào)用第三個(gè)過(guò)程。主程序　　　 　過(guò)程 1　　 1過(guò)程 過(guò)程 　　　　　　 　　 ? 命令格式– PUBLICRELEASE、QUIT等命令后，公共變量才被釋放；私有變量? 私有變量是在程序中直接使用而由系統(tǒng)自動(dòng)隱含建立的變量。內(nèi)存變量名 1[， 內(nèi)存變量名 2， 內(nèi)存變量名 3...]? 說(shuō)明– 局部變量要先建立后使用，初值是邏輯假 .F.。x2X1=1Storep6?39。,x1?39。,x3returnx1=3,x1?x3=39。x2=39。x3=20?39。p6?39。,x2?39。?39。TO變量作用域示例clearPublic 23內(nèi)存變量名 1[， 內(nèi)存變量名 2，內(nèi)存變量名 3...]? 命令功能– 定義公用變量? 注：在執(zhí)行 CLEAR 　　　 　　　　　　 　　　　　　　 ...DO　　　　　　 ...　過(guò)程 2...? 系統(tǒng)允許這種嵌套最多 126層。面積 =,circleS(r)set?半徑 r=CircleS*X*XEndFun*NF=F*inextreturnNJCParametersto求 N!的函數(shù)ClearInputProcedureProcedureCalcAreaINPUTCalcAreaPARAMETERSN,FF=1forGetJC求 N!的過(guò)程ClearInput 調(diào)用參數(shù)傳遞? （ 1）調(diào)用程序向被調(diào)用過(guò)程傳遞參數(shù)的命令：– 命令格式 1： 語(yǔ)句只能在過(guò)程中使用，且必須作為過(guò)程中 PROCEDURE語(yǔ)句后的第一條可執(zhí)行語(yǔ)句。MyProcDoR0InputToProcedure 過(guò)程文件 1[,過(guò)程文件 2,...]TO? 功能：– 關(guān)閉所有已打開(kāi)的過(guò)程文件。過(guò)程名 ()調(diào)用。[過(guò)程文件 1[,過(guò)程文件2,...]][ADDITIVE]? 功能– 打開(kāi)指定的過(guò)程文件。 命令序列 [RETURN[表達(dá)式 ]][ENDPROC]過(guò)程名 1定義內(nèi)部過(guò)程? 格式：PROCDURE 從結(jié)構(gòu)和調(diào)用方法上看，過(guò)程分 外部過(guò)程（命令文件） 、 內(nèi)部過(guò)程 和 函數(shù) 。解決這個(gè)問(wèn)題的方法是單獨(dú)設(shè)計(jì)這些共用程序段，需要時(shí)再調(diào)用。嵌套層數(shù)一般沒(méi)有限制，但內(nèi)循環(huán)的循環(huán)體必須完全包含在外循環(huán)的循環(huán)體中，不能相互交叉。 SCAN循環(huán)語(yǔ)句的功能是移動(dòng)表內(nèi)指針，所以不能處理除了表之外的其它問(wèn)題。如 for語(yǔ)句里循環(huán)變量的自加（i=i+1),do while里的 skip語(yǔ)句n 循環(huán)必須設(shè)定終結(jié)條件，以使循環(huán)停止下來(lái)。SET TALK OFFCLEARINPUT 請(qǐng)從鍵盤(pán)輸入一個(gè)數(shù)： TO ASTORE A TO MAX,MINFOR I=2 TO 10 INPUT 請(qǐng)從鍵盤(pán)輸入一個(gè)數(shù)： TO A IF MAXA MAX=A ENDIF IF MINA MIN=A ENDIFENDFOR? 最大值為： , MAX? 最小值為： , MINSET TALK ONR