【文章內容簡介】 amp。amp。計數變量初值為 0 do while not eof() amp。amp。循環(huán)條件是還未到表尾 if year(date())year(出生日期 )20 n=n+1 endif skip amp。amp。修改記錄指針，指向下一記錄 ,若沒該句，將造成死循環(huán) enddo use ?年齡大于 20歲的人數有： ,n 前頁 后頁 首頁 Visual FoxPro 程序設計 .課件 37 ? 該語句的格式如下： FOR 循環(huán)變量 =初值 TO 終值 [STEP 步長] 循環(huán)體 [EXIT] [LOOP] ENDFOR|NEXT ? 語句執(zhí)行時，首先給循環(huán)變量賦予初值，與終值比較，若超過終值，則循環(huán)體一次也不執(zhí)行，直接轉去執(zhí)行 ENDFOR|NEXT后面的語句；若不超過終值，則依次執(zhí)行循環(huán)體中的語句，遇到ENDFOR｜ NEXT語句，將循環(huán)變量加上步長后，程序轉回到循環(huán)初始語句，繼續(xù)判斷，流程圖如圖 613所示。 ? 步長可正可負 .步長為 1時，可省略 STEP子句。 ? 當循環(huán)次數事先已知時，通常使用計數型循環(huán)，循環(huán)次數可以根據下式計算： INT(ABS((終值 初值 )/步長 ))+1 FOR語句 前頁 后頁 首頁 Visual FoxPro 程序設計 .課件 38 【 例 69】 編制程序實現 100以內的奇數累加和，并輸出結果。 ? 分析：實現 100以內奇數的累加，循環(huán)變量的初值應為 1，終值應為 99，循環(huán)變量的步長應為 2。 【 例 610】 從鍵盤上輸入一個大于 1的自然數，判斷是否為素數（除 1和它本身外，不能被其他任何一個整數整除的自然數）。 ? 分析：判斷某數 n是否為素數，最簡單的方法是：從 i=2，3， ? ， n1逐個判斷 n能否被 i整除，只要有一個能整除，n就不是素數，退出循環(huán)；若都不能整除，則 n是素數。可進一步證明：若 n不能被 2～中的任何一個整數整除，則 n為素數。 前頁 后頁 首頁 Visual FoxPro 程序設計 .課件 39 SCAN語句 ? 該語句的格式如下： SCAN [范圍 ] [FOR 條件 ] 循環(huán)體 [EXIT] [LOOP] ENDSCAN ? 掃描型循環(huán)語句專門用來對當前打開的數據表進行操作，它對指定范圍滿足條件的記錄逐一掃描，找到一條滿足條件的記錄就執(zhí)行一次循環(huán)體語句，每執(zhí)行一次，記錄指針后移，直到所有滿足條件的記錄都執(zhí)行完畢。 ? 說明： ? 語句中 范圍 缺省時默認為 ALL。 ? 其中的 EXIT和 LOOP子句的功能和 DO WHILE循環(huán)中的功能相同。 前頁 后頁 首頁 Visual FoxPro 程序設計 .課件 40 【 例 611】 用掃描型循環(huán) SCAN語句統(tǒng)計學生信息表student中年齡在 20歲以上的學生人數，并輸出結果。 ? 程序代碼如下： * use student n=0 scan for year(date())year(出生日期 )20 n=n+1 endscan ?年齡大于 20歲的人數有： ,n 前頁 后頁 首頁 Visual FoxPro 程序設計 .課件 41 ? 在一個循環(huán)體內又包含了一個完整的循環(huán)結構時稱為循環(huán)結構的嵌套。在實際應用中，三種循環(huán)語句可以相互嵌套，會呈現出多種復雜形式，在編程或閱讀程序時要注意各層循環(huán)變量的變化規(guī)律。 ? 在使用循環(huán)嵌套時需要注意以下幾點： ? 循環(huán)嵌套時，必須完整嵌套，不能交叉嵌套；循環(huán)體內可以嵌套分支語句，嵌套時也要求完整嵌套，不能交叉嵌套。 ? 內重循環(huán)的循環(huán)變量與外重循環(huán)的循環(huán)變量不能同名，以免混淆。 ? 多重循環(huán)的循環(huán)次數等于每一重循環(huán)的循環(huán)次數的乘積。 前頁 后頁 首頁 Visual FoxPro 程序設計 .課件 42 【 例 612】 打印九九乘法表，運行界面如圖 614所示。 ? 程序代碼如下： * clear amp。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。amp。每個算式之間空兩格 endfor ? amp。amp。當前行算式輸出完以后，換行再輸出下一行 endfor 前頁 后頁 首頁 Visual FoxPro 程序設計 .課件 43 ? 數組這種數據結構在程序設計中經常使用，在 Visual FoxPro中，只能定義一維數組和二維數組。因為數組中數組元素的下標是有序的，可以以數組元素的下標作為循環(huán)變量，利用循環(huán)結構來處理數組中每個數組元素。一般用一重循環(huán)來處理一維數組，用二重循環(huán)來處理二維數組，下面以一維數組為例進行介紹。 (1)一維數組的基本操作 ? 假設定義有一維數組 dimension a(10)，下面以該數組為例介紹一維數組的基本操作。 ②數組元素的輸出 for i=1 to 10 ??a(i) endfor ①數組元素的輸入 for i=1 to 10 input to a(i) endfor 前頁 后頁 首頁 Visual FoxPro 程序設計 .課件 44 ③數組元素的求和 s=0 for i=1 to 10 s=s+a(i) endfor ④求數組元素中的最大值 max=a(1) for i=1 to 10 if(a(i)max) max=a(i) endif endfor 前頁 后頁 首頁 Visual FoxPro 程序設計 .課件 45 ? 數組最典型的應用是排序，排序的算法有多種，如選擇法、冒泡法、插入法等，下面介紹冒泡法排序。 ? 假設定義了一個數組 dimension a(10)，則冒泡法排序的基本思想是：從第一個元素開始，對數組中兩兩相鄰的元素比較，即 a(1)與 a(2)比較，若為逆序，則 a(1)與 a(2)交換，然后 a(2)與 a(3)比較 ?? 直到最后 a(9)與 a(10)比較，這時最大的數沉底成為數組中的最后一個元素，一些較小的數如同氣泡一樣上浮一個位置，這是第一趟排序。然后對 a(1)～ a(9)中的 9個數進行同上述一樣的比較，次最大數放入a(9)中，完成第 2趟排序。依此類推，進行 9趟排序后，所有數均有序。因此可以用二重循環(huán)來實現這個排序，外循環(huán)確定進行幾趟排序，內循環(huán)確定每趟排序中比較幾次。 ? 代碼如下： for i=1 to 9 amp。amp。確定排序的趟數 for j=1 to 10I amp。amp。確定每趟排序中比較的次數 if a(j)a(j+1) amp。amp。若相鄰的兩個數為逆序，則交換 t=a(j) a(j)=a(j+1) a(j+1)=t endif endfor endfor (2)一維數組的排序 前頁 后頁 首頁 Visual FoxPro 程序設計 .課件 46 【 例 613】 隨機產生 20個學生成績，求出他們的平均成績，并統(tǒng)計出高于平均成績的學生數，再將這 20個學生成績按升序排列后輸出。 ? 分析： Visual FoxPro提供了隨機數函數 RAND()，可以產生一個 0～ 1(不包括 1)之間的隨機數。學生成績通常在0～ 100之間，為了產生這之間的隨機數，可以用表達式INT(RAND()*100)+1來實現。 ? 程序代碼如下： * 前頁 后頁 首頁 Visual FoxPro 程序設計 .課件 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 ?高于平均成績的人數為： ,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 程序設計 .課件 48 過程與過程調用 ? 子程序設計與調用 ? 過程與過程文件 ? 局部變量和全局變量、過程調用中的參數傳遞 前頁 后頁 首頁 Visual FoxPro 程序設計 .課件 49 子程序設計與調用 ? 在程序設計中，經常會遇到同一段功能代碼在不同的程序段執(zhí)行多次的情況，這時往往將該功能代碼單獨編寫成一個獨立的程序文件存在磁盤上，需要時調用它，這個獨立的模塊稱為子程序。程序之間通過相互調用來建立關系。在 Visual FoxPro中，子程序是被其他程序調用的程序文件，主程序能調用子程序，但子程序不能調用主程序，可是子程序可以調用其他的子程序，構成子程序的嵌套調用。 ? 在模塊化程序設計中，通常將功能和結構相對獨立的功能模塊，單獨編寫成一個獨立的子程序。子程序結構不僅易于調試和維護，而且當需要時可以多次調用，減少重復編程，提高程序的通用性。子程序的表現形式有過程、自定義函數和方法 3種。 前頁 后頁 首頁 Visual FoxPro 程序設計 .課件 50 ? 子程序是一個獨立的程序文件，文件擴展名為 .PRG，它的建立與前面所說的程序建立的方法一樣。 DO 子程序文件名 [WITH 實際參數列表 ] ? 其中 [WITH 實際參數列表 ]是可選項，用于主程序與子程序之間的參數傳遞，實際參數列表中的各項可以是常量、變量或表達式，相互之間用逗號隔開。 RETURN [TO MASTER|TO 過程名 ] ? 執(zhí)行子程序時，遇到 RETURN命令，就返回到調用它的主程序，或是上一級子程序中調用命令的下一條語句繼續(xù)執(zhí)行。通常子程序的最后一條語句是 RETURN命令，若缺省，則當子程序執(zhí)行到最后時將自動執(zhí)行 RETURN功能，返回到主調程序中。 前頁 后頁 首頁 Visual FoxPro 程序設計 .課件 51 ? 圖 617是子程序嵌套調用時的程序執(zhí)行過程示意圖。 前頁 后頁 首頁 Visual FoxPro 程序設計 .課件 52 【 例 614】 分別建立如上圖所示的各程序文件，