【正文】 x3=39。x2=39。,x1?x3=20?39。x1=3p6?39。,x3return,x2?39。,x1?39。?39。p6?39。TOx2X1=1Store變量作用域示例clearPublic內(nèi)存變量名 1[， 內(nèi)存變量名 2， 內(nèi)存變量名 3...]? 說明– 局部變量要先建立后使用，初值是邏輯假 .F.。 23RELEASE、QUIT等命令后，公共變量才被釋放；私有變量? 私有變量是在程序中直接使用而由系統(tǒng)自動隱含建立的變量。內(nèi)存變量名 1[， 內(nèi)存變量名 2，內(nèi)存變量名 3...]? 命令功能– 定義公用變量? 注：在執(zhí)行 CLEAR? 命令格式– PUBLIC 　　　 　　 　　　　　　 　　　　　　 　　　　　　　 過程 過程 1...DO　　 　　　　　　 ...　過程 2...　過程 1主程序　　　 ? 系統(tǒng)允許這種嵌套最多 126層。調(diào)用第三個過程。toreturn過程嵌套調(diào)用? VFP允許執(zhí)行一個過程時 ,面積 =,circleS(r)set?r半徑 r=inputCircleSprocedure*X*XEndFun*CircleSParametersNF=F*inextreturni=1NJCParametersToto求 N!的函數(shù)ClearInput過程文件名函數(shù)名 (參數(shù) )SetProcedureProcedureＸ ,S?CalcAreaTOINPUTProcedureCalcAreaPARAMETERStoN,FF=1forN,F?Str(N)+!=,FProcedureGetJCTo求 N!的過程ClearInput– ⑤ 采用命令格式 1，實參是常量，按值傳遞，即把實參的值傳給形參；實參是變量，按引用傳遞，即把實參的地址傳給形參；– ⑥ 采用命令格式 2，默認情況下都以按值方式傳遞參數(shù)，如果實參是變量，可以通過命令 SET – 調(diào)用參數(shù)傳遞? （ 1）調(diào)用程序向被調(diào)用過程傳遞參數(shù)的命令：– 命令格式 1： LPARAMETERS語句只能在過程中使用，且必須作為過程中 PROCEDURE語句后的第一條可執(zhí)行語句。ProcedureMyProcDoProcedureR0toInputGetAreareturnProcedureTo過程文件名　打開過程文件打開過程文件SetProceduresub1…do ? 過程文件 1[,過程文件 2,...]/RELEASETO? 功能：– 關閉所有已打開的過程文件。? 格式 1：– SET過程名 ()調(diào)用。– （ 2）調(diào)用其他命令文件中的過程要先打開此命令文件，再用 Do[過程文件 1[,過程文件2,...]][ADDITIVE]? 功能– 打開指定的過程文件。PROCEDURE 命令序列 [RETURN[表達式 ]][ENDPROC] 命令序列 1[RETURN[表達式 ]][ENDPROC]……PROCEDURE過程名 1過程名 命令序列 [RETURN[表達式 ]][ENDPROC]? 說明：– 過程名必須以字母或下劃線開頭，字母、數(shù)字和下劃線的組合；– RETURN命令是過程返回命令，控制將轉(zhuǎn)回到調(diào)用程序（或命令窗口），并返回表達式的值，若省略表達式，則返回邏輯值 .T.； 定義內(nèi)部過程? 格式：PROCDURE內(nèi)部過程 是指調(diào)用程序尾部所附過程和過程文件中的過程； 函數(shù)實質(zhì)上也是一段程序或者一個模塊，它與內(nèi)部過程的區(qū)別就在于，函數(shù)調(diào)用后要有返回值，而過程調(diào)用不用返回值。 從結(jié)構(gòu)和調(diào)用方法上看，過程分 外部過程（命令文件） 、 內(nèi)部過程 和 函數(shù) 。調(diào)用過程的程序就稱為 主程序 或 調(diào)用程序 。解決這個問題的方法是單獨設計這些共用程序段，需要時再調(diào)用。FOR X=1 TO 9FOR Y=1 TO XS=X*Y?? STR(Y,1)+*+STR(X,1)+=+STR(S,2)+ ENDFOR?ENDFOR 多模塊程序設計 在程序設計時，常遇到這種情況，在同一個程序的不同處，或在不同程序中重復出現(xiàn)具有相同功能的程序段。STR(Y,1)+*+STR(X,1)+=+STR(S,2)+嵌套層數(shù)一般沒有限制，但內(nèi)循環(huán)的循環(huán)體必須完全包含在外循環(huán)的循環(huán)體中，不能相互交叉。 5．多重循環(huán) 多重循環(huán)即循環(huán)的嵌套，是在一個循環(huán)結(jié)構(gòu)的循環(huán)體中又包含另一個循環(huán)。 SCAN循環(huán)語句的功能是移動表內(nèi)指針，所以不能處理除了表之外的其它問題。? B、 若事先不知道循環(huán)的次數(shù)，只知道在某一條件滿足時結(jié)束循環(huán)，一般使用 DO WHILE循環(huán)。如 for語句里循環(huán)變量的自加（i=i+1),do while里的 skip語句n 循環(huán)必須設定終結(jié)條件，以使循環(huán)停止下來。 SCAN［〈范圍〉］［ FOR〈條件表達式〉 ]? 〈語句序列〉 ? ENDSCAN? DO WHILE .NOT. EOF() IF 〈 條件表達式 〉 〈 語句序列 〉 ENDIF SKIPENDDO等價于：SCAN語句初設記錄指針在范圍內(nèi)？滿足 FOR條件？LOOPEXIT循環(huán)體ENDSCANSCAN循環(huán)后的語句記錄指針 +1NYYN【例】逐條顯示在 JBQK表中性別為 男 的所有記錄。SET TALK OFFCLEARINPUT 請從鍵盤輸入一個數(shù)： TO ASTORE A TO MAX,MINFOR I=2 TO 10 INPUT 請從鍵盤輸入一個數(shù)： TO A IF MAXA MAX=A ENDIF IF MINA MIN=A ENDIFENDFOR? 最大值為： , MAX? 最小值為： , MINSET TALK ONRETURN 【例】編程實現(xiàn) 1＋ 2＋ 3＋ …… ＋ 100S=0I=1DO WHILE I=100S=S+I I=I+1ENDDO? SS=0FOR I=1 TO 100S=S+IENDFOR?S【 例 】 編程求 13＋ 57…… 101S=0I=1f=1DO WHILE I=101 S=S+I*F I=I+2f=fENDDO? SS=0f=1FOR I=1 TO 101 STEP 2 S=S+I*F f=fNEXT? S【例】編程輸出 1— 100之間的所有素數(shù)。執(zhí)行LOOP命令時，結(jié)束本次循環(huán)，循環(huán)變量增加一個步長值，返回 FOR循環(huán)頭判斷循環(huán)條件是否成立。store 0 to s,i,xdo while i100input 請輸入一個數(shù)： to xif x0s=s+xendifi=i+1enddo?正數(shù)之和為 +str(s,3)【格式】FOR 循環(huán)變量 =初值 TO 終值 [STEP步長 ] 循環(huán)體 [LOOP][EXIT] ENDFOR 2． FOR循環(huán)語句 使用 FOR循環(huán)語句的有關說明：① 省略 STEP 步長 ，則〈步長〉為默認值 1；② 〈初值〉、〈終值〉和〈步長〉都可以是數(shù)值表達式，但這些表達式僅在循環(huán)語句開始執(zhí)行時計算一次。USE JBQKDO WHILE .NOT. EOF() IF 姓名 ==何兵 SKIPLOOPENDIFDISPLAY SKIPENDDO【例】輸入一個數(shù)，判斷是否為素數(shù)。clearuse jbqkDO WHILE .NOT. EOF() if 性別 =男 display endif SKIPENDDOusereturn【格式 2】 DO WHILE 條件表達式 語句序列 1 [LOOP] 語句序列 2 [EXIT]