【正文】 ,y RETURN PROC sub PARAMETERS a,b a=a+b b=a RETURN a+b ENDP 例題 x是地址傳遞， y是值傳遞 返回主程序后， x的值變?yōu)?22， y的值仍為 7 x， y均為值傳遞。 返回主程序后， x和 y的值不變。 顯示結(jié)果 58 ,22,7 變量的作用域 多模塊程序中，在一個模塊中定義的變量在其他模塊中不一定能夠使用。不同的變量有不同的作用域，即每個變量有其發(fā)揮作用的有效范圍。根據(jù)變量作用域不同，變量分為全局變量、局部變量和私有變量。 全局變量也稱為公共變量，是在任何語句和各個程序模塊中都有效的內(nèi)存變量 。 PUBLIC 內(nèi)存變量表 定義全局內(nèi)存變量 全局內(nèi)存變量 全局變量應(yīng)先定義后賦值，不能在賦值一個變量后再將其定義為全局變量。 全局變量在定義以后，默認的初值是邏輯假 .F 定義全局變量的程序運行結(jié)束后，全局變量并未被釋放，仍然可以在其他程序中使用。只有在執(zhí)行 CLEAR MEMORY、 RELEASE等命令或退出 VFP后，全局變量才被釋放。 在命令窗口所建立的內(nèi)存變量，默認為全局變量。 全局內(nèi)存變量 在程序中所有未經(jīng)說明而直接建立的內(nèi)存變量都是私有變量。私有變量可以在創(chuàng)建它的模塊及其調(diào)用的下層模塊中使用。一旦建立它的模塊程序運行結(jié)束，這些私有變量將被清除。也就是說，在下層模塊定義的私有變量，無法在其上層模塊中使用。 私有變量 局部變量只能在建立它的模塊中使用，不能在上層或下層模塊中使用。當(dāng)建立它的模塊程序運行結(jié)束，局部變量被釋放。 LOCAL內(nèi)存變量表 命令定義的變量是局部變量，并賦予其初值為邏輯值假 .F.。同樣，局部變量也要先定義后使用。 局部變量 LOCAL a STORE 10 TO a,b ?39。執(zhí)行過程前 a,b的值 39。,a,b DO p1 ?39。執(zhí)行過程后 a,b的值 39。,a,b ??c=?,c PROC p1 STORE 20 to a,b ?39。執(zhí)行過程時 a,b的值 39。,a,b PUBLIC c c=30 ENDPROC 例題：變量作用域 顯示結(jié)果 10 10 顯示結(jié)果 10 20 顯示結(jié)果 20 20 由于一個大型的程序可能由多人開發(fā)，在下級子程序中可能會無意地改變上級程序中的私有變量。為了避免這種情況，可以在過程中使用 PRIVATE 內(nèi)存變量表 。 該命令并不建立變量，而是用來隱藏在上層程序中可能已經(jīng)存在的內(nèi)存變量，使得這些變量在當(dāng)前模塊程序中暫時無效。這樣，這些變量名可以用來命名在當(dāng)前模塊或其下屬模塊中需要的私有變量，并且不會改變上層模塊中同名變量的取值。一旦當(dāng)前模塊程序運行結(jié)束返回上層模塊，那些被隱藏的內(nèi)存變量就恢復(fù)原有的取值。 隱藏變量 LOCAL a STORE 10 TO a,b ?39。執(zhí)行過程前 a,b的值 39。,a,b DO p1 ?39。執(zhí)行過程后 a,b的值 39。,a,b ??c=?,c PROC p1 PRIVATE a,b STORE 20 to a,b ?39。執(zhí)行過程時 a,b的值 39。,a,b PUBLIC c c=30 ENDPROC 例題：變量作用域 顯示結(jié)果 10 10 顯示結(jié)果 10 10 顯示結(jié)果 20 20 存儲過程 存儲過程是保存在數(shù)據(jù)庫文件中的過程，屬于數(shù)據(jù)庫對象的一部分。它可以被數(shù)據(jù)庫中的對象調(diào)用，例如，可作為數(shù)據(jù)表字段的默認值和有效性規(guī)則。 數(shù)據(jù)庫 編輯存儲過程 存儲過程 快捷菜單 編輯存儲過程 單擊數(shù)據(jù)庫設(shè)計器工具欄的 “ 編輯存儲過程 ” 按鈕 PROCEDURE newtxm() SELE MAX(條形碼 ) FROM 圖書 INTO ARRAY ltxm lntxm=ALLTRIM(STR(VAL(RIGHT(ltxm(1),7))+1)) RETU 39。P39。+REPLICATE(39。039。,7LEN(lntxm))+lntxm ENDPROC 例題：存儲過程 建立一個存儲過程，獲得一個條形碼。該條形碼以字母 P開頭，后 7位數(shù)字為當(dāng)前圖書表中書籍編號的最大值加一 例題：存儲過程 設(shè)置為默認值 一個三位正整數(shù)等于它的各位數(shù)字的立方和，該數(shù)稱為水仙花數(shù)。顯示所有的水仙花數(shù) FOR m=100 TO 999 m1= amp。amp。 求出 m的百位數(shù) m2= amp。amp。 求出 m的十位數(shù) m3=mm1*100m2*10 amp。amp。 求出 m的個位數(shù) IF m=m1*m1*m1+m2*m2*m2+m3*m3*m3 ?m ENDIF ENDFOR INT(m/100) INT((mm1*100)/10 ) 例題：計數(shù)循環(huán)結(jié)構(gòu)程序 從鍵盤輸入一組不大于１００的正整數(shù)；求出這組數(shù)中的有效數(shù)據(jù)之和、數(shù)據(jù)個數(shù)、最大數(shù)、最小數(shù)及其它們所在的位置。 在輸入數(shù)據(jù)時，程序能實現(xiàn)輸入錯誤時，可重新輸入；并以 0作為輸入數(shù)據(jù)的結(jié)束標(biāo)記。 例題：循環(huán)結(jié)構(gòu)程序 CLEAR INPUT ?x=? TO x amp。amp。第一次輸入 x的值 STORE x TO s,max1,min1 amp。amp。s為存放求和值的變量， max1為存放最大值的變量， min1為存放最小值的變量 STORE 1 TO n,p,q amp。amp。n為存放個數(shù)的變量， p為存放最大值位置的變量， q為存放最小值位置的變量 DO WHILE .T. amp。amp。絕對循環(huán) INPUT ?x=? TO x amp。amp。輸入下一個 x的值 DO CASE CASE x=0 amp。amp。若 x為 0則退出循環(huán) WAIT 結(jié)束輸入 ,退出循環(huán) ! TIME 2 EXIT CASE x0 .OR. x100 .OR. INT(x) x *若 x不符合條件，則不進行累計求和等操作，重輸入 x WAIT 數(shù)據(jù)錯誤，重新輸入！ TIME 1 LOOP ENDCASE 例題：循環(huán)結(jié)構(gòu)程序 s=s+x amp。amp。將 x的值累加到 s中 n=n+1 amp。amp。次數(shù)加一 IF xmax1 amp。amp。如果 x大于最大值 max1=x p=n ENDIF IF min1x amp。amp。如果 x小于最小值 min1=x q=n ENDIF ENDDO ?數(shù)據(jù)之和為： ,s,數(shù)據(jù)個數(shù)為： ,n ?“第” +str(p,2)+“數(shù)最大 ,值為： ,max1 ?“第” +str(q,2)+“數(shù)最小 ,值為： ,min1 例題：循環(huán)結(jié)構(gòu)程序 打印如下圖形 * ** *** **** ***** FOR i=1 TO 5 ? SPACE(20+6i) FOR j=1 to i ???*? ENDFOR ENDFOR 例題：多重循環(huán)程序 打印如下圖形 * *** ***** ******* ********* FOR i=1 TO 5 ? SPACE(20+6I) FOR j=1 to 2* I1 ???*? ENDFOR ENDFOR 例題：多重循環(huán)程序 打印如下圖形 1 121 12321 1234321 123454321 FOR i=1 TO 5 ? SPACE(20+6I) FOR j=1 to I ??STR(J,1) ENDFOR FOR j=I1 to 1 STEP 1 ??STR(J,1) ENDFOR ENDFOR 例題：多重循環(huán)程序 打印如下圖形 A AB ABC ABCD ABCDE FOR i=1 TO 5 ? FOR j=1 to I ??CHR(96+J) ENDFOR ENDFOR 例題：多重循環(huán)程序 打印如下圖形 * *** ***** ******* ********* ******* ***** *** * FOR i=4 TO 4 ? SPACE(20+ABS(i)) FOR j=1 to 2*(4ABS(i))+1 ?? 39。*39。 ENDFOR ENDFOR 例題：多重循環(huán)程序