【正文】 IF ? 注意： IF和 ENDIF必須成對使用，并分兩行書寫。無論是否執(zhí)行語句塊中的語句，程序都將轉(zhuǎn)向 ENDIF后面的下一條語句繼續(xù)執(zhí)行。 前頁 后頁 首頁 Visual FoxPro 程序設(shè)計 .課件 26 【 例 63】 從鍵盤上輸入兩個數(shù) x和 y，比較大小，若 x小于 y，則交換兩個變量值，使得 x不小于 y。 ? 由于計算機內(nèi)存有易被覆蓋的特點，因此計算機中交換兩個變量的值只能借助于第三個中間變量來間接交換，如圖 69所示，則交換兩個變量值的代碼應(yīng)為： ?t=x ?x=y ?y=t 前頁 后頁 首頁 Visual FoxPro 程序設(shè)計 .課件 27 ? 本題程序代碼如下： * input x= to x input y= to y if xy t=x x=y y=t endif ?x=,x ?y=,y 前頁 后頁 首頁 Visual FoxPro 程序設(shè)計 .課件 28 (2)雙分支形式 ? 雙分支格式： IF 條件表達式 語句塊 1 ELSE 語句塊 2 ENDIF ? 語句執(zhí)行時，根據(jù)條件表達式的值選擇執(zhí)行兩個語句塊中的一個。其流程圖如圖 610所示。 ? 分析：假設(shè) ab且 ac，則最大值肯定是 a，若這個條件不滿足，而所滿足的條件是 ba且 bc，則最大值肯定是 b，否則最大值肯定是 c。 編寫程序，實現(xiàn)輸入購物款數(shù)，計算并輸出優(yōu)惠后的價格。 1. 當型循環(huán) DO WHILE語句 ? 該語句的格式如下： DO WHILE 條件表達式 循環(huán)體 [EXIT] [LOOP] ENDDO 前頁 后頁 首頁 Visual FoxPro 程序設(shè)計 .課件 35 【 例 67】 編制程序求 1+2+3+…+100 的和，并輸出結(jié)果。 ? 程序代碼如下： * s=0 i=1 do while i=100 s=s+i i=i+1 enddo ?s=,s 前頁 后頁 首頁 Visual FoxPro 程序設(shè)計 .課件 36 【 例 68】 統(tǒng)計學生信息表 student中年齡在 20歲以上的學生人數(shù)，并輸出結(jié)果。amp。amp。amp。 ? 步長可正可負 .步長為 1時，可省略 STEP子句。 ? 分析：實現(xiàn) 100以內(nèi)奇數(shù)的累加，循環(huán)變量的初值應(yīng)為 1，終值應(yīng)為 99，循環(huán)變量的步長應(yīng)為 2。 ? 分析：判斷某數(shù) n是否為素數(shù)，最簡單的方法是：從 i=2，3， ? ， n1逐個判斷 n能否被 i整除，只要有一個能整除，n就不是素數(shù)，退出循環(huán)；若都不能整除，則 n是素數(shù)。 前頁 后頁 首頁 Visual FoxPro 程序設(shè)計 .課件 39 SCAN語句 ? 該語句的格式如下： SCAN [范圍 ] [FOR 條件 ] 循環(huán)體 [EXIT] [LOOP] ENDSCAN ? 掃描型循環(huán)語句專門用來對當前打開的數(shù)據(jù)表進行操作，它對指定范圍滿足條件的記錄逐一掃描，找到一條滿足條件的記錄就執(zhí)行一次循環(huán)體語句，每執(zhí)行一次，記錄指針后移，直到所有滿足條件的記錄都執(zhí)行完畢。 ? 其中的 EXIT和 LOOP子句的功能和 DO WHILE循環(huán)中的功能相同。 ? 程序代碼如下： * use student n=0 scan for year(date())year(出生日期 )20 n=n+1 endscan ?年齡大于 20歲的人數(shù)有： ,n 前頁 后頁 首頁 Visual FoxPro 程序設(shè)計 .課件 41 ? 在一個循環(huán)體內(nèi)又包含了一個完整的循環(huán)結(jié)構(gòu)時稱為循環(huán)結(jié)構(gòu)的嵌套。 ? 在使用循環(huán)嵌套時需要注意以下幾點： ? 循環(huán)嵌套時，必須完整嵌套，不能交叉嵌套；循環(huán)體內(nèi)可以嵌套分支語句，嵌套時也要求完整嵌套，不能交叉嵌套。 ? 多重循環(huán)的循環(huán)次數(shù)等于每一重循環(huán)的循環(huán)次數(shù)的乘積。 ? 程序代碼如下： * clear amp。先將 VFP主窗口清空 1,30 say 九九乘法表 2,28 say ? for i=1 to 9 for j=1 to 9 ??str(i,1)+*+STR(j,1)+=+str(i*j,2) ??space(2) amp。每個算式之間空兩格 endfor ? amp。當前行算式輸出完以后，換行再輸出下一行 endfor 前頁 后頁 首頁 Visual FoxPro 程序設(shè)計 .課件 43 ? 數(shù)組這種數(shù)據(jù)結(jié)構(gòu)在程序設(shè)計中經(jīng)常使用，在 Visual FoxPro中，只能定義一維數(shù)組和二維數(shù)組。一般用一重循環(huán)來處理一維數(shù)組，用二重循環(huán)來處理二維數(shù)組，下面以一維數(shù)組為例進行介紹。 ②數(shù)組元素的輸出 for i=1 to 10 ??a(i) endfor ①數(shù)組元素的輸入 for i=1 to 10 input to a(i) endfor 前頁 后頁 首頁 Visual FoxPro 程序設(shè)計 .課件 44 ③數(shù)組元素的求和 s=0 for i=1 to 10 s=s+a(i) endfor ④求數(shù)組元素中的最大值 max=a(1) for i=1 to 10 if(a(i)max) max=a(i) endif endfor 前頁 后頁 首頁 Visual FoxPro 程序設(shè)計 .課件 45 ? 數(shù)組最典型的應(yīng)用是排序，排序的算法有多種，如選擇法、冒泡法、插入法等，下面介紹冒泡法排序。然后對 a(1)～ a(9)中的 9個數(shù)進行同上述一樣的比較，次最大數(shù)放入a(9)中，完成第 2趟排序。因此可以用二重循環(huán)來實現(xiàn)這個排序，外循環(huán)確定進行幾趟排序，內(nèi)循環(huán)確定每趟排序中比較幾次。amp。amp。amp。 ? 分析： Visual FoxPro提供了隨機數(shù)函數(shù) RAND()，可以產(chǎn)生一個 0～ 1(不包括 1)之間的隨機數(shù)。 ? 程序代碼如下： * 前頁 后頁 首頁 Visual FoxPro 程序設(shè)計 .課件 47 clear dimension a(20) for i=1 to 20 a(i)=int(rand()*100)+1 endfor s=0 for i=1 to 20 s=s+a(i) endfor av=s/20 ?平均成績是： ,av n=0 for i=1 to 20 if a(i)av n=n+1 endif endfor ?高于平均成績的人數(shù)為： ,n for i=1 to 19 for j=1 to 20i if a(j)a(j+1) t=a(j) a(j)=a(j+1) a(j+1)=t endif endfor endfor ? for i=1 to 20 ??a(i) endfor 前頁 后頁 首頁 Visual FoxPro 程序設(shè)計 .課件 48 過程與過程調(diào)用 ? 子程序設(shè)計與調(diào)用 ? 過程與過程文件 ? 局部變量和全局變量、過程調(diào)用中的參數(shù)傳遞 前頁 后頁 首頁 Visual FoxPro 程序設(shè)計 .課件 49 子程序設(shè)計與調(diào)用 ? 在程序設(shè)計中，經(jīng)常會遇到同一段功能代碼在不同的程序段執(zhí)行多次的情況，這時往往將該功能代碼單獨編寫成一個獨立的程序文件存在磁盤上，需要時調(diào)用它，這個獨立的模塊稱為子程序。在 Visual FoxPro中，子程序是被其他程序調(diào)用的程序文件，主程序能調(diào)用子程序，但子程序不能調(diào)用主程序，可是子程序可以調(diào)用其他的子程序，構(gòu)成子程序的嵌套調(diào)用。子程序結(jié)構(gòu)不僅易于調(diào)試和維護，而且當需要時可以多次調(diào)用，減少重復編程，提高程序的通用性。 前頁 后頁 首頁 Visual FoxPro 程序設(shè)計 .課件 50 ? 子程序是一個獨立的程序文件，文件擴展名為 .PRG，它的建立與前面所說的程序建立的方法一樣。 RETURN [TO MASTER|TO 過程名 ] ? 執(zhí)行子程序時，遇到 RETURN命令，就返回到調(diào)用它的主程序，或是上一級子程序中調(diào)用命令的下一條語句繼續(xù)執(zhí)行。 前頁 后頁 首頁 Visual FoxPro 程序設(shè)計 .課件 51 ? 圖 617是子程序嵌套調(diào)用時的程序執(zhí)行過程示意圖。程序代碼如下： * clear ?正在執(zhí)行 ?開始調(diào)用子程序 do sub1 ?從子程序 * ?正在執(zhí)行 ?開始調(diào)用子程序 do sub2 ?從子程序 ?開始調(diào)用子程序 do sub3 ?從子程序 return * ?正在執(zhí)行 return * ?正在執(zhí)行 return 前頁 后頁 首頁 Visual FoxPro 程序設(shè)計 .課件 53 過程與過程文件 ? 在編寫一個大型程序時，可能劃分為許多功能模塊，如果都寫成子程序，就要創(chuàng)建很多程序文件，這些程序文件都存放在磁盤上，每調(diào)用一次子程序就訪問一次磁盤，需要花費一定的時間，如果程序中調(diào)用子程序較多，訪問磁盤的次數(shù)就多，因此影響程序運行速度。 ? 因此引入過程的概念，其實過程和子程序非常類似，只是將多個子程序的功能模塊代碼保存在一個程序文件中，在該程序文件中每個子程序都單獨定義，而含有多個子程序的程序文件就稱為過程文件，這樣打開一個過程文件就意味著打開了所有的過程。 前頁 后頁 首頁 Visual FoxPro 程序設(shè)計 .課件 54 ? 過程定義的語法格式如下： PROCEDURE 過程名 [PARAMETERS 形式參數(shù)列表 ] 語句序列 [RETURN] [ENDPROC] ? 其中各參數(shù)的說明如下： PROCEDURE 過程名 ：過程的起始語句。有參過程中，該子句必須是第一條命令語句。 [RETURN [表達式 ]]：該子句表示將控制返回到調(diào)用該過程的語句的下一條語句繼續(xù)執(zhí)行。 [ENDPROC]：過程的結(jié)束語句，該語句可以省略，若省略，則過程結(jié)束于下一條 PROCEDURE語句或程序文件尾。 【 例 615】 利用過程來計算圓面積。 ? 調(diào)用過程文件中的過程前，首先要打開包含它的過程文件。 ? 可以同時打開多個過程文件，如果命令中帶有 ADDITIVE子句，則在打開當前過程文件時，以前打開的過程文件不關(guān)閉，即以前打開的過程文件中的過程仍可以被調(diào)用；若命令中未帶該子句，則在打開當前過程文件時，以前打開的所有過程文件都會被關(guān)閉，即以前打開的過程文件中的所有過程都不能再被調(diào)用。 程序代碼如下： * clear set procedure to jc input 請