visualfoxpro程序設計第六章結構化程序設計(編輯修改稿)

　

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